1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
C
C**** "debug.h" - This include file contains a set of basic constants
C interpolation
C
C PURPOSE
C _______
C
C Basic constants for the interpolation library
C
C INTERFACE
C _________
C
C #include "debug.h"
C
C Input parameters
C ________________
C
C NONE
C
C Common block usage
C __________________
C
C NONE
C
C EXTERNALS
C _________
C
C NONE
C
C METHOD
C ______
C
C NONE
C
C REFERENCE
C _________
C
C NONE
C
C COMMENTS
C ________
C
C Contains sections 0 to 4
C
C AUTHOR
C ______
C
C K. Fielding *ECMWF* Dec 1993
C
C MODIFICATIONS
C _____________
C
C NONE
C
C _______________________________________________________
C
C
C* Section 0. Definition of variables.
C _______________________________________________________
C
C* Prefix conventions for variable names
C
C Logical L (but not LP), global or common.
C O, dummy argument
C G, local variable
C LP, parameter.
C Character C, global or common.
C H, dummy argument
C Y (but not YP), local variable
C YP, parameter.
C Integer M and N, global or common.
C K, dummy argument
C I, local variable
C J (but not JP), loop control
C JP, parameter.
C REAL A to F and Q to X, global or common.
C P (but not PP), dummy argument
C Z, local variable
C PP, parameter.
C
C
C _______________________________________________________
C
C
C* Section 1. Area definitions which are really local
C _______________________________________________________
C
COMMON /DEBUG/ IIAREA, IOAREA
|
