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
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
C
C**** "nifld.common"
C
C Purpose
C _______
C
C This file contains all the input field definition variables.
C
C
C Interface
C _________
C
C
C Common block usage
C __________________
C
C JDCFLAGS
C --------
C
C LCHANGE - This flag indicates whether a change of
C interpolating process has occurred.
C LSMCHNG - This flag indicates whether a change of LSM flag
C has occurred.
C LSM - This flag indicates whether a land sea mask
C should be used for interpolation.
C LSMSET - This flag indicates whether the user has defined
C the LSM flag.
C LSMPAR - This flag indicates whether the LSM variable is
C being interpolated.
C LSMPARSET - This flag indicates whether the user has defined
C the LSMPAR flag.
C LPREC - This flag indicates whether a precipitation
C variable is being interpolated.
C LPRECSET - This flag indicates whether the user has defined
C the LPREC flag.
C LWIND - This flag indicates whether a wind variable is
C being interpolated.
C LWINDSET - This flag indicates whether the user has defined
C the LWIND flag.
C LNIGAUS - Flag to say whether or not user specified NIGAUS
C LNGSPEC - Flag to say whether or not user specified NGSPEC
C LIGIVEL - Flag to say whether or not user specified latitudes
C for the input gaussian grid
C LIGIVEP - Flag to say whether or not user specified number of
C points along latitudes for the input gaussian grid
C LIMISSV - Flag to say whether or not user specified input
C field missing data value
C LIMISSA - Flag to say whether or not user specified input
C field missing data value grib_api merging
C LNIISCL - Flag to say whether or not user specified islscp
C processing.
C LNOAREA - Flag to say whether or not user specified NOAREA
C LNOGAUS - Flag to say whether or not user specified NOGAUSS
C LNOREDL - Flag to say whether or not user specified NOREDLL
C LOGIVEL - Flag to say whether or not user specified latitudes
C for the output gaussian grid
C LOGIVEP - Flag to say whether or not user specified number of
C points along latitudes for the output gaussian grid
C LNORESO - Flag to say whether or not user specified NORESO
C LNOACC - Flag to say whether or not user specified NOACC
C LNOREPR - Flag to say whether or not user specified NOREPR
C LNOTABL - Flag to say whether or not user specified NOTABLE
C LNOPARA - Flag to say whether or not user specified NOPARAM
C LNOLEVL - Flag to say whether or not user specified NOLEVEL
C LNOLEVT - Flag to say whether or not user specified NOLEVT
C LNOGRID - Flag to say whether or not user specified NOGRID
C LARESOL - Flag to say whether or not user specified 'Autoresol'
C LNOBITMP - Flag to say whether or not user specified NOBITMP
C LNOFRAME - Flag to say whether or not user specified NOFRAME
C LNOSTYLE - Flag to say whether or not user specified NOSTYLE
C LSTAGGL - Flag to say if is the input field staggered grid
C LOCEAN - Flag to say if is the ocean input field
C
C JDNIFLD
C -------
C
C NILOCAL - Input field ECMWF local definition number
C NISTREM - Input field ECMWF stream number
C NIFORM - Input field data format (0-Unpacked, 1-Grib).
C NIREPR - Input field representation. Supported
C representations are
C Spherical harmonic
C Regular Gaussian grid
C Reduced Gaussian grid
C Latitude/longitude grid
C NIGAUSS - Input field Gaussian truncation.
C NGSPEC - Reduced gaussian grid specification
C NIRESO - Input field spherical harmonic resolution.
C NIGRID - Input field grid definition (WE/NS).
C NIAREA - Input field area definition (N/W/S/E).
C NINS - Number of grid points in NS direction for input
C field.
C NIWE - Number of grid points in WE direction for input
C field.
C NIPARAM - Input field parameter number
C NISCNM - Input field scanning mode.
C NITABLE - Input field table number.
C NILEVEL - Input field level.
C NILEVT - Input field level type.
C NIACC - Number of packing bits to be used for input
C GRIB field.
C NISLSCP - Index returned from PBOPEN for islscp land-sea mask
C GRIB product file
C NIPOGRB - Pointer to memory allocated to hold islscp old land-sea
C mask GRIB product
C NIPOGRS - Size in bytes of memory allocated to hold islscp old
C land-sea mask GRIB product
C NIPNGRB - Pointer to memory allocated to hold islscp new land-sea
C mask GRIB product
C NIMATR - Number of matrix values
C NIPNGRS - Size in bytes of memory allocated to hold islscp new
C land-sea mask GRIB product
C
C PILATS - Array of reduced gaussian grid latitudes(N to S pole)
C (RIGAUSS in grspace.h used instead now)
C NILPTS - Array of reduced gaussian grid no.of pts. per latitude
C (MILLEN in grspace.h used instead now)
C NIPCNT - Total number of pts in input reduced gaussian field
C NJDCDOT - 'magic number', set when basic initialisation has been
C done
C NIDATE - Input field date
C NICOMP - Spectral truncation above which interpolation coefficients
C are calculated 'on the fly'
C RISTRET - Stretching factor used in the input field
C RMISSGV - Input field missing data value
C
C JNPRECP
C -------
C RPRECIP - Precipitation threshold value
C
C
C NILOCAL - Input field ECMWF local definition number
C
C
C Reference
C _________
C
C None.
C
C
C Comments
C ________
C
C None.
C
C
C AUTHOR
C ______
C
C J.D.Chambers ECMWF Aug 1994
C
C
C Modifications
C _____________
C
C None.
C
C
C _______________________________________________________
C
C* Section 1. Flag variables
C _______________________________________________________
C
LOGICAL
1 LCHANGE , LSMCHNG , LSM , LWIND , LPREC , LSMPAR ,
2 LSMSET , LWINDSET, LPRECSET,LSMPARSET, LNOREDL , LNIGAUS ,
3 LIGIVEL , LIGIVEP , LNOGAUS , LOGIVEL , LOGIVEP , LNORESO ,
4 LNOACC , LNOREPR , LNOTABL , LNOPARA , LNOLEVL , LNOLEVT ,
5 LNOGRID , LARESOL , LNOBITMP, LNOFRAME, LNOSTYLE, LNOAREA ,
6 LFILEIO , LMEMORY , LSHARED , LON_FLY , LMAPPED, LNGSPEC ,
7 LIFIRST , LIMISSV , LNIISCL , LSTAGGL , LOCEAN, LIMISSA
C
COMMON /JDCFLAGS/
1 LCHANGE , LSMCHNG , LSM , LWIND , LPREC , LSMPAR ,
2 LSMSET , LWINDSET, LPRECSET,LSMPARSET, LNOREDL , LNIGAUS ,
3 LIGIVEL , LIGIVEP , LNOGAUS , LOGIVEL , LOGIVEP , LNORESO ,
4 LNOACC , LNOREPR , LNOTABL , LNOPARA , LNOLEVL , LNOLEVT ,
5 LNOGRID , LARESOL , LNOBITMP, LNOFRAME, LNOSTYLE, LNOAREA ,
6 LFILEIO , LMEMORY , LSHARED , LON_FLY , LMAPPED, LNGSPEC ,
7 LIFIRST , LIMISSV , LNIISCL , LSTAGGL , LOCEAN, LIMISSA
C
SAVE /JDCFLAGS/
C
C _______________________________________________________
C
C* Section 2. Field definition variables
C _______________________________________________________
C
INTEGER
X NILOCAL, NISTREM, NGSPEC ,
X NIFORM , NIREPR , NIGRID , NIAREA , NIGAUSS, NIRESO ,
X NIWE , NINS , NISCNM , NIPARAM, NITABLE, NIACC ,
X NJDCDOT, NIPCNT , NILEVEL, NILEVT , NIDATE , NICOMP ,
X NISLSCP, NIPOGRS, NIPNGRS, NIMATR
REAL RISTRET, RMISSGV
DIMENSION NIGRID(2)
DIMENSION NIAREA(4)
C
COMMON /JDNIFLD/
X RISTRET, RMISSGV,
X NILOCAL, NISTREM, NGSPEC ,
X NIFORM , NIREPR , NIGAUSS, NIRESO ,
X NIWE , NINS , NISCNM , NIPARAM, NITABLE, NIACC ,
X NJDCDOT, NIPCNT , NILEVEL, NILEVT , NIDATE , NICOMP ,
X NISLSCP, NIPOGRS, NIPNGRS, NIGRID , NIAREA , NIMATR
C
SAVE /JDNIFLD/
C
#ifdef POINTER_64
INTEGER*8 NIPOGRB, NIPNGRB
#else
INTEGER NIPOGRB, NIPNGRB
#endif
COMMON /JDNIPTR/
X NIPOGRB, NIPNGRB
C
SAVE /JDNIPTR/
C
REAL ZPRECIP
COMMON /JNPRECP/ ZPRECIP
SAVE /JNPRECP/
C _______________________________________________________
C
C* Section 3. Ocean
C _______________________________________________________
C
INTEGER
X NIOCO3, NIOCO4,
X NIOCO4F, NIOCO3F, NIOCO4L, NIOCO3L,
X NIOIINC, NIOJINC,
X NIOIRGR, NIONOST,NICOORN,
X NIVCDEF
INTEGER OCCOOR
DIMENSION OCCOOR(1000)
C
COMMON /JOCEANI/
X NIOCO3, NIOCO4,
X NIOCO4F, NIOCO3F, NIOCO4L, NIOCO3L,
X NIOIINC, NIOJINC,
X NIOIRGR, NIONOST, NICOORN,
X NIVCDEF,
X OCCOOR
C
SAVE /JOCEANI/
|
