| File |
Line number |
Procedure |
Code |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
102 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
103 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcss' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
106 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
125 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
126 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcsw' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
129 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
148 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
149 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcse' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
152 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
57 |
GRDCHK_GET_OBCS_MASK |
character*( 80) fname |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
79 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
80 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcsn' |
|
./pkg/grdchk/grdchk_get_obcs_mask.F |
83 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
|
./pkg/grdchk/grdchk_getadxx.F |
100 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
107 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
108 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
115 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
116 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
123 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
124 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
131 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
132 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
139 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
140 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
147 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
148 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
155 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
156 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
163 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
164 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
171 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
172 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
179 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
180 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
187 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
188 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
195 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
196 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
203 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
204 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
211 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
212 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
219 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
220 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
227 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
228 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
235 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
236 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
243 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
244 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
251 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
252 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
259 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
260 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
267 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
268 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
275 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
276 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
283 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
284 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
291 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
292 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
299 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
300 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
307 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
308 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
315 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
316 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
323 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
324 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
331 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
332 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
339 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
340 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
347 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
348 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
355 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
356 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
363 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
364 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
371 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
372 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
379 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
380 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
387 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
388 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
395 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
396 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
403 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
404 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
411 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
412 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
419 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
420 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
427 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
428 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
435 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
436 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
446 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
447 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
459 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
460 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
472 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getadxx.F |
473 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getadxx.F |
496 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getadxx.F |
504 |
GRDCHK_GETADXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getadxx.F |
513 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
|
./pkg/grdchk/grdchk_getadxx.F |
522 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
|
./pkg/grdchk/grdchk_getadxx.F |
77 |
GRDCHK_GETADXX |
character*(80) fname |
|
./pkg/grdchk/grdchk_getadxx.F |
99 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getxx.F |
105 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
108 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
117 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
120 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
129 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
132 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
141 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
144 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
153 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
156 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
165 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
168 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
177 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
180 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
189 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
192 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
201 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
204 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
213 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
216 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
225 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
228 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
237 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
240 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
249 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
252 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
261 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
264 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
273 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
276 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
285 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
288 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
297 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
300 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
309 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
312 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
321 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
324 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
333 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
336 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
345 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
348 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
357 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
360 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
369 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
372 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
380 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getxx.F |
382 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
385 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
393 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_getxx.F |
395 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
398 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
407 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
410 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
419 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
422 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
431 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
434 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
443 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
446 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
455 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
458 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
467 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
470 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
479 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
482 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
491 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
494 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
503 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
506 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
515 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
518 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
527 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
530 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
539 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
542 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
551 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
554 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
563 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
566 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
575 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
578 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
587 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
590 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
599 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
602 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
611 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
614 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
626 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
629 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
643 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
646 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
660 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
663 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_getxx.F |
690 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
699 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_getxx.F |
705 |
GRDCHK_GETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
714 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
721 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
730 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
737 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
746 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
|
./pkg/grdchk/grdchk_getxx.F |
83 |
GRDCHK_GETXX |
character*(80) fname |
|
./pkg/grdchk/grdchk_getxx.F |
96 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_setxx.F |
102 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
105 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
114 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
117 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
126 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
129 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
138 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
141 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
150 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
153 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
162 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
165 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
174 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
177 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
186 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
189 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
198 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
201 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
210 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
213 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
222 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
225 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
234 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
237 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
246 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
249 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
258 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
261 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
271 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
274 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
284 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
287 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
297 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
300 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
310 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
313 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
323 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
326 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
336 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
339 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
349 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
352 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
361 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
364 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
373 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
376 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
384 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_setxx.F |
386 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
389 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
397 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/grdchk/grdchk_setxx.F |
399 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
402 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
411 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
414 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
423 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
426 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
435 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
438 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
447 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
450 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
460 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
463 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
472 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
475 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
484 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
487 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
496 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
499 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
508 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
511 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
520 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
523 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
532 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
535 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
544 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
547 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
556 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
559 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
568 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
571 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
580 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
583 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
592 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
595 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
604 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
607 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
616 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
619 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
631 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
634 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
648 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
651 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
665 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
668 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/grdchk/grdchk_setxx.F |
692 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
697 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
|
./pkg/grdchk/grdchk_setxx.F |
703 |
GRDCHK_SETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
708 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
715 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
720 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
727 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
732 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
|
./pkg/grdchk/grdchk_setxx.F |
80 |
GRDCHK_SETXX |
character*(80) fname |
|
./pkg/grdchk/grdchk_setxx.F |
93 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/mnc/mnc_cw_cvars.F |
12 |
MNC_CW_WRITE_CVAR |
I fname, |
|
./pkg/mnc/mnc_cw_cvars.F |
39 |
MNC_CW_WRITE_CVAR |
character*(*) fname |
|
./pkg/mnc/mnc_cw_cvars.F |
410 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
418 |
MNC_CW_WRITE_CVAR |
i = ILNBLNK( fname ) |
|
./pkg/mnc/mnc_cw_cvars.F |
420 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
428 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
436 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
444 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_cvars.F |
448 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_ENDDEF(fname, myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
457 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
|
./pkg/mnc/mnc_cw_model_attr.F |
101 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi', |
|
./pkg/mnc/mnc_cw_model_attr.F |
103 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj', |
|
./pkg/mnc/mnc_cw_model_attr.F |
106 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
108 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
110 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
112 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
115 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
117 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
119 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
121 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
123 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
128 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNx', 1, sNx, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
129 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
12 |
MNC_CW_SET_GATTR |
I fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
130 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
131 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
132 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
133 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
134 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
135 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
136 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
137 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
138 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
37 |
MNC_CW_SET_GATTR |
character*(*) fname |
|
./pkg/mnc/mnc_cw_model_attr.F |
43 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
48 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name', |
|
./pkg/mnc/mnc_cw_model_attr.F |
53 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version', |
|
./pkg/mnc/mnc_cw_model_attr.F |
58 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user', |
|
./pkg/mnc/mnc_cw_model_attr.F |
63 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host', |
|
./pkg/mnc/mnc_cw_model_attr.F |
68 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date', |
|
./pkg/mnc/mnc_cw_model_attr.F |
73 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL', |
|
./pkg/mnc/mnc_cw_model_attr.F |
75 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id', |
|
./pkg/mnc/mnc_cw_model_attr.F |
77 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver', |
|
./pkg/mnc/mnc_cw_model_attr.F |
81 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
82 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
83 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid) |
|
./pkg/mnc/mnc_cw_model_attr.F |
93 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
95 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
|
./pkg/mnc/mnc_cw_model_attr.F |
99 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_pij', |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
176 |
MNC_CW_WRITE_GRID_COORD |
I fname, |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
190 |
MNC_CW_WRITE_GRID_COORD |
character*(*) fname |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
195 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_SET_UDIM(fname, 0, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
196 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XC',xC, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
197 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YC',yC, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
198 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'XG',xG, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
199 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_RS_W('R',fname,0,0,'YG',yG, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
745 |
MNC_CW_FILE_AORC |
I fname, |
|
./pkg/mnc/mnc_cwrapper.F |
762 |
MNC_CW_FILE_AORC |
character*(*) fname |
|
./pkg/mnc/mnc_cwrapper.F |
769 |
MNC_CW_FILE_AORC |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
775 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
778 |
MNC_CW_FILE_AORC |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
|
./pkg/mnc/mnc_cwrapper.F |
782 |
MNC_CW_FILE_AORC |
CALL MNC_CW_SET_GATTR(fname, lbi,lbj, uniq_tnum, myThid) |
|
./pkg/mnc/mnc_dim.F |
101 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dim.F |
103 |
MNC_DIM_INIT_ALL_CV |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_dim.F |
120 |
MNC_DIM_INIT_ALL_CV |
& fname(1:nf), ''' and its size cannot be changed' |
|
./pkg/mnc/mnc_dim.F |
12 |
MNC_DIM_INIT |
I fname, |
|
./pkg/mnc/mnc_dim.F |
144 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_dim.F |
147 |
MNC_DIM_INIT_ALL_CV |
& 'dim ''', dname(dnf:dnl), ''' in file ''', fname(1:nf) |
|
./pkg/mnc/mnc_dim.F |
153 |
MNC_DIM_INIT_ALL_CV |
CALL MNC_CW_WRITE_CVAR(fname, dname(dnf:dnl), |
|
./pkg/mnc/mnc_dim.F |
175 |
MNC_DIM_UNLIM_SIZE |
I fname, |
|
./pkg/mnc/mnc_dim.F |
190 |
MNC_DIM_UNLIM_SIZE |
character*(*) fname |
|
./pkg/mnc/mnc_dim.F |
200 |
MNC_DIM_UNLIM_SIZE |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_dim.F |
203 |
MNC_DIM_UNLIM_SIZE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_dim.F |
205 |
MNC_DIM_UNLIM_SIZE |
write(msgbuf,'(3a)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_dim.F |
220 |
MNC_DIM_UNLIM_SIZE |
& 'determine unlimited dim size in file ''', fname(1:nf) |
|
./pkg/mnc/mnc_dim.F |
22 |
MNC_DIM_INIT |
character*(*) fname, dname |
|
./pkg/mnc/mnc_dim.F |
25 |
MNC_DIM_INIT |
CALL MNC_DIM_INIT_ALL(fname, dname, dlen, 'Y', myThid) |
|
./pkg/mnc/mnc_dim.F |
36 |
MNC_DIM_INIT_ALL |
I fname, |
|
./pkg/mnc/mnc_dim.F |
50 |
MNC_DIM_INIT_ALL |
character*(*) fname, dname |
|
./pkg/mnc/mnc_dim.F |
54 |
MNC_DIM_INIT_ALL |
CALL MNC_DIM_INIT_ALL_CV(fname,dname,dlen,doWrite,-1,-1,myThid) |
|
./pkg/mnc/mnc_dim.F |
65 |
MNC_DIM_INIT_ALL_CV |
I fname, |
|
./pkg/mnc/mnc_dim.F |
83 |
MNC_DIM_INIT_ALL_CV |
character*(*) fname, dname |
|
./pkg/mnc/mnc_dim.F |
95 |
MNC_DIM_INIT_ALL_CV |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
100 |
MNC_FILE_OPEN |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
101 |
MNC_FILE_OPEN |
mnc_f_names(indf)(1:n) = fname(1:n) |
|
./pkg/mnc/mnc_file.F |
117 |
MNC_FILE_ADD_ATTR_STR |
I fname, |
|
./pkg/mnc/mnc_file.F |
12 |
MNC_FILE_CREATE |
I fname, |
|
./pkg/mnc/mnc_file.F |
130 |
MNC_FILE_ADD_ATTR_STR |
character*(*) fname, atname, sval |
|
./pkg/mnc/mnc_file.F |
135 |
MNC_FILE_ADD_ATTR_STR |
CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 1, |
|
./pkg/mnc/mnc_file.F |
146 |
MNC_FILE_ADD_ATTR_DBL |
I fname, |
|
./pkg/mnc/mnc_file.F |
160 |
MNC_FILE_ADD_ATTR_DBL |
character*(*) fname, atname |
|
./pkg/mnc/mnc_file.F |
166 |
MNC_FILE_ADD_ATTR_DBL |
CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 2, |
|
./pkg/mnc/mnc_file.F |
177 |
MNC_FILE_ADD_ATTR_REAL |
I fname, |
|
./pkg/mnc/mnc_file.F |
191 |
MNC_FILE_ADD_ATTR_REAL |
character*(*) fname, atname |
|
./pkg/mnc/mnc_file.F |
195 |
MNC_FILE_ADD_ATTR_REAL |
CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 3, |
|
./pkg/mnc/mnc_file.F |
206 |
MNC_FILE_ADD_ATTR_INT |
I fname, |
|
./pkg/mnc/mnc_file.F |
220 |
MNC_FILE_ADD_ATTR_INT |
character*(*) fname, atname |
|
./pkg/mnc/mnc_file.F |
225 |
MNC_FILE_ADD_ATTR_INT |
CALL MNC_FILE_ADD_ATTR_ANY(fname,atname, 4, |
|
./pkg/mnc/mnc_file.F |
236 |
MNC_FILE_ADD_ATTR_ANY |
I fname, |
|
./pkg/mnc/mnc_file.F |
23 |
MNC_FILE_CREATE |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
252 |
MNC_FILE_ADD_ATTR_ANY |
character*(*) fname, atname, sv |
|
./pkg/mnc/mnc_file.F |
266 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
268 |
MNC_FILE_ADD_ATTR_ANY |
nf = ILNBLNK( fname ) |
|
./pkg/mnc/mnc_file.F |
270 |
MNC_FILE_ADD_ATTR_ANY |
& fname(1:nf), ''' must be opened first' |
|
./pkg/mnc/mnc_file.F |
277 |
MNC_FILE_ADD_ATTR_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_file.F |
29 |
MNC_FILE_CREATE |
CALL MNC_FILE_OPEN(fname, 0, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
321 |
MNC_FILE_CLOSE |
I fname, |
|
./pkg/mnc/mnc_file.F |
335 |
MNC_FILE_CLOSE |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
345 |
MNC_FILE_CLOSE |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
348 |
MNC_FILE_CLOSE |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
350 |
MNC_FILE_CLOSE |
write(msgbuf,'(3a)') 'MNC Warning: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_file.F |
357 |
MNC_FILE_CLOSE |
write(msgbuf,'(3a)') ' cannot close file ''', fname(1:nf), '''' |
|
./pkg/mnc/mnc_file.F |
40 |
MNC_FILE_OPEN |
I fname, |
|
./pkg/mnc/mnc_file.F |
410 |
MNC_FILE_CLOSE_ALL_MATCHING |
I fname, |
|
./pkg/mnc/mnc_file.F |
424 |
MNC_FILE_CLOSE_ALL_MATCHING |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
433 |
MNC_FILE_CLOSE_ALL_MATCHING |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
437 |
MNC_FILE_CLOSE_ALL_MATCHING |
IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN |
|
./pkg/mnc/mnc_file.F |
494 |
MNC_FILE_REDEF |
I fname, |
|
./pkg/mnc/mnc_file.F |
508 |
MNC_FILE_REDEF |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
519 |
MNC_FILE_REDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
521 |
MNC_FILE_REDEF |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
523 |
MNC_FILE_REDEF |
& fname(1:n), ''' must be opened first' |
|
./pkg/mnc/mnc_file.F |
547 |
MNC_FILE_ENDDEF |
I fname, |
|
./pkg/mnc/mnc_file.F |
561 |
MNC_FILE_ENDDEF |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
56 |
MNC_FILE_OPEN |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
572 |
MNC_FILE_ENDDEF |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, ind, myThid) |
|
./pkg/mnc/mnc_file.F |
574 |
MNC_FILE_ENDDEF |
n = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
576 |
MNC_FILE_ENDDEF |
& fname(1:n), ''' must be opened first' |
|
./pkg/mnc/mnc_file.F |
600 |
MNC_FILE_READALL |
I fname, |
|
./pkg/mnc/mnc_file.F |
613 |
MNC_FILE_READALL |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
623 |
MNC_FILE_READALL |
nff = IFNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
624 |
MNC_FILE_READALL |
nlf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
625 |
MNC_FILE_READALL |
CALL MNC_FILE_TRY_READ(fname, ierr, indf, myThid) |
|
./pkg/mnc/mnc_file.F |
627 |
MNC_FILE_READALL |
& fname(nff:nlf), ''' for read/write access' |
|
./pkg/mnc/mnc_file.F |
639 |
MNC_FILE_TRY_READ |
I fname, |
|
./pkg/mnc/mnc_file.F |
655 |
MNC_FILE_TRY_READ |
character*(*) fname |
|
./pkg/mnc/mnc_file.F |
670 |
MNC_FILE_TRY_READ |
nff = IFNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
671 |
MNC_FILE_TRY_READ |
nlf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
672 |
MNC_FILE_TRY_READ |
err = NF_OPEN(fname, NF_WRITE, fid) |
|
./pkg/mnc/mnc_file.F |
680 |
MNC_FILE_TRY_READ |
mnc_f_names(indf)(1:(nlf-nff+1)) = fname(nff:nlf) |
|
./pkg/mnc/mnc_file.F |
686 |
MNC_FILE_TRY_READ |
& ' in file ''', fname(nff:nlf), '''' |
|
./pkg/mnc/mnc_file.F |
694 |
MNC_FILE_TRY_READ |
& fname(nff:nlf), '''' |
|
./pkg/mnc/mnc_file.F |
69 |
MNC_FILE_OPEN |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_file.F |
702 |
MNC_FILE_TRY_READ |
CALL MNC_DIM_INIT_ALL(fname,name(ns:ne),dlen,'N', myThid) |
|
./pkg/mnc/mnc_file.F |
70 |
MNC_FILE_OPEN |
CALL MNC_GET_IND(MNC_MAX_FID, fname,mnc_f_names,indf,myThid) |
|
./pkg/mnc/mnc_file.F |
721 |
MNC_FILE_TRY_READ |
& fname(nff:nlf), '''' |
|
./pkg/mnc/mnc_file.F |
72 |
MNC_FILE_OPEN |
write(msgbuf,'(3a)') 'MNC_FILE_OPEN ERROR: ''', fname(1:nf), |
|
./pkg/mnc/mnc_file.F |
732 |
MNC_FILE_TRY_READ |
CALL MNC_GRID_INIT_ALL(fname, name, ndv, dnames, indg, myThid) |
|
./pkg/mnc/mnc_file.F |
78 |
MNC_FILE_OPEN |
write(msgbuf,'(3a)') 'opening ''', fname(1:nf), '''' |
|
./pkg/mnc/mnc_file.F |
82 |
MNC_FILE_OPEN |
err = NF_CREATE(fname, NF_CLOBBER, fid) |
|
./pkg/mnc/mnc_file.F |
88 |
MNC_FILE_OPEN |
CALL MNC_FILE_READALL(fname, myThid) |
|
./pkg/mnc/mnc_grid.F |
116 |
MNC_GRID_INIT_ALL |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_grid.F |
12 |
MNC_GRID_INIT |
I fname, |
|
./pkg/mnc/mnc_grid.F |
198 |
MNC_GRID_INIT_ALL |
& fname(1:nf), '''' |
|
./pkg/mnc/mnc_grid.F |
26 |
MNC_GRID_INIT |
character*(*) fname,gname |
|
./pkg/mnc/mnc_grid.F |
33 |
MNC_GRID_INIT |
CALL MNC_GRID_INIT_ALL(fname, gname, ndim, dnames, ind, myThid) |
|
./pkg/mnc/mnc_grid.F |
44 |
MNC_GRID_INIT_ALL |
I fname, |
|
./pkg/mnc/mnc_grid.F |
67 |
MNC_GRID_INIT_ALL |
character*(*) fname,gname |
|
./pkg/mnc/mnc_grid.F |
85 |
MNC_GRID_INIT_ALL |
nf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_grid.F |
87 |
MNC_GRID_INIT_ALL |
file_name(1:nf) = fname(1:nf) |
|
./pkg/mnc/mnc_utils.F |
190 |
MNC_GET_FVINDS |
I fname, |
|
./pkg/mnc/mnc_utils.F |
206 |
MNC_GET_FVINDS |
character*(*) fname |
|
./pkg/mnc/mnc_utils.F |
220 |
MNC_GET_FVINDS |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_var.F |
103 |
MNC_VAR_INIT_INT |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
107 |
MNC_VAR_INIT_INT |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_INT, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
118 |
MNC_VAR_INIT_ANY |
I fname, |
|
./pkg/mnc/mnc_var.F |
135 |
MNC_VAR_INIT_ANY |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
152 |
MNC_VAR_INIT_ANY |
lenf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_var.F |
157 |
MNC_VAR_INIT_ANY |
CALL MNC_GET_IND(MNC_MAX_FID, fname, mnc_f_names, indf, myThid) |
|
./pkg/mnc/mnc_var.F |
159 |
MNC_VAR_INIT_ANY |
nf = ILNBLNK( fname ) |
|
./pkg/mnc/mnc_var.F |
160 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:nf), |
|
./pkg/mnc/mnc_var.F |
180 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(3A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
202 |
MNC_VAR_INIT_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
217 |
MNC_VAR_INIT_ANY |
& fname(1:lenf), ''' but using a different grid shape' |
|
./pkg/mnc/mnc_var.F |
231 |
MNC_VAR_INIT_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_var.F |
244 |
MNC_VAR_INIT_ANY |
& ''' in file ''', fname(1:lenf), '''' |
|
./pkg/mnc/mnc_var.F |
268 |
MNC_VAR_ADD_ATTR_STR |
I fname, |
|
./pkg/mnc/mnc_var.F |
281 |
MNC_VAR_ADD_ATTR_STR |
CHARACTER*(*) fname,vname,atname,sval |
|
./pkg/mnc/mnc_var.F |
291 |
MNC_VAR_ADD_ATTR_STR |
CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
302 |
MNC_VAR_ADD_ATTR_DBL |
I fname, |
|
./pkg/mnc/mnc_var.F |
316 |
MNC_VAR_ADD_ATTR_DBL |
CHARACTER*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
31 |
MNC_VAR_INIT_DBL |
I fname, |
|
./pkg/mnc/mnc_var.F |
326 |
MNC_VAR_ADD_ATTR_DBL |
CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
338 |
MNC_VAR_ADD_ATTR_REAL |
I fname, |
|
./pkg/mnc/mnc_var.F |
352 |
MNC_VAR_ADD_ATTR_REAL |
CHARACTER*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
362 |
MNC_VAR_ADD_ATTR_REAL |
CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
373 |
MNC_VAR_ADD_ATTR_INT |
I fname, |
|
./pkg/mnc/mnc_var.F |
387 |
MNC_VAR_ADD_ATTR_INT |
CHARACTER*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
397 |
MNC_VAR_ADD_ATTR_INT |
CALL MNC_VAR_ADD_ATTR_ANY( fname,vname,atname, |
|
./pkg/mnc/mnc_var.F |
409 |
MNC_VAR_ADD_ATTR_ANY |
I fname, |
|
./pkg/mnc/mnc_var.F |
425 |
MNC_VAR_ADD_ATTR_ANY |
CHARACTER*(*) fname,vname,atname |
|
./pkg/mnc/mnc_var.F |
445 |
MNC_VAR_ADD_ATTR_ANY |
lenf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_var.F |
450 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
452 |
MNC_VAR_ADD_ATTR_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
45 |
MNC_VAR_INIT_DBL |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
462 |
MNC_VAR_ADD_ATTR_ANY |
CALL MNC_FILE_REDEF(fname, myThid) |
|
./pkg/mnc/mnc_var.F |
479 |
MNC_VAR_ADD_ATTR_ANY |
& ''' to file ''', fname(1:lenf), '''' |
|
./pkg/mnc/mnc_var.F |
488 |
MNC_VAR_WRITE_DBL |
I fname, |
|
./pkg/mnc/mnc_var.F |
495 |
MNC_VAR_WRITE_DBL |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
49 |
MNC_VAR_INIT_DBL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_DOUBLE, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
506 |
MNC_VAR_WRITE_DBL |
CALL MNC_VAR_WRITE_ANY( fname, vname, 1, 0, |
|
./pkg/mnc/mnc_var.F |
515 |
MNC_VAR_WRITE_REAL |
I fname, |
|
./pkg/mnc/mnc_var.F |
522 |
MNC_VAR_WRITE_REAL |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
533 |
MNC_VAR_WRITE_REAL |
CALL MNC_VAR_WRITE_ANY( fname, vname, 2, 0, |
|
./pkg/mnc/mnc_var.F |
542 |
MNC_VAR_WRITE_INT |
I fname, |
|
./pkg/mnc/mnc_var.F |
549 |
MNC_VAR_WRITE_INT |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
560 |
MNC_VAR_WRITE_INT |
CALL MNC_VAR_WRITE_ANY( fname, vname, 3, 0, |
|
./pkg/mnc/mnc_var.F |
569 |
MNC_VAR_APPEND_DBL |
I fname, |
|
./pkg/mnc/mnc_var.F |
577 |
MNC_VAR_APPEND_DBL |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
588 |
MNC_VAR_APPEND_DBL |
CALL MNC_VAR_WRITE_ANY( fname, vname, 1, append, |
|
./pkg/mnc/mnc_var.F |
597 |
MNC_VAR_APPEND_REAL |
I fname, |
|
./pkg/mnc/mnc_var.F |
605 |
MNC_VAR_APPEND_REAL |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
60 |
MNC_VAR_INIT_REAL |
I fname, |
|
./pkg/mnc/mnc_var.F |
616 |
MNC_VAR_APPEND_REAL |
CALL MNC_VAR_WRITE_ANY( fname, vname, 2, append, |
|
./pkg/mnc/mnc_var.F |
625 |
MNC_VAR_APPEND_INT |
I fname, |
|
./pkg/mnc/mnc_var.F |
633 |
MNC_VAR_APPEND_INT |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
644 |
MNC_VAR_APPEND_INT |
CALL MNC_VAR_WRITE_ANY( fname, vname, 3, append, |
|
./pkg/mnc/mnc_var.F |
653 |
MNC_VAR_WRITE_ANY |
I fname, |
|
./pkg/mnc/mnc_var.F |
668 |
MNC_VAR_WRITE_ANY |
CHARACTER*(*) fname, vname |
|
./pkg/mnc/mnc_var.F |
686 |
MNC_VAR_WRITE_ANY |
lenf = ILNBLNK(fname) |
|
./pkg/mnc/mnc_var.F |
689 |
MNC_VAR_WRITE_ANY |
CALL MNC_GET_FVINDS(fname, vname, indf, ind_fv_ids, myThid) |
|
./pkg/mnc/mnc_var.F |
691 |
MNC_VAR_WRITE_ANY |
WRITE(msgBuf,'(5A)') 'MNC ERROR: file ''', fname(1:lenf), |
|
./pkg/mnc/mnc_var.F |
726 |
MNC_VAR_WRITE_ANY |
CALL MNC_FILE_ENDDEF(fname, myThid) |
|
./pkg/mnc/mnc_var.F |
741 |
MNC_VAR_WRITE_ANY |
& ''' to file ''', fname(1:lenf), '''' |
|
./pkg/mnc/mnc_var.F |
74 |
MNC_VAR_INIT_REAL |
CHARACTER*(*) fname,gname,vname |
|
./pkg/mnc/mnc_var.F |
78 |
MNC_VAR_INIT_REAL |
CALL MNC_VAR_INIT_ANY( fname,gname,vname, NF_FLOAT, irv,myThid ) |
|
./pkg/mnc/mnc_var.F |
89 |
MNC_VAR_INIT_INT |
I fname, |
|
./pkg/openad/the_model_main.F |
306 |
THE_MODEL_MAIN |
CHARACTER*(MAX_LEN_FNAM) fname |
|
./pkg/openad/the_model_main.F |
486 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
488 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
493 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
495 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
500 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
502 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
507 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
509 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
514 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
516 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
521 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
523 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
528 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
530 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
535 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
537 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
542 |
THE_MODEL_MAIN |
write(fname(1:MAX_LEN_FNAM),'(3a)') |
|
./pkg/openad/the_model_main.F |
544 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
549 |
THE_MODEL_MAIN |
write(fname,'(A,I2.2,A)') 'adxx_genarr2d_',ik,'.' |
|
./pkg/openad/the_model_main.F |
550 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/openad/the_model_main.F |
557 |
THE_MODEL_MAIN |
write(fname,'(A,I2.2,A)') 'adxx_genarr3d_',ik,'.' |
|
./pkg/openad/the_model_main.F |
558 |
THE_MODEL_MAIN |
call WRITE_FLD_XYZ_RL(fname,suff,foo,myIter,1) |
|
./pkg/openad/the_model_main.F |
564 |
THE_MODEL_MAIN |
write(fname,'(A,I2.2,A)') 'adxx_gentim2d_',ik,'.' |
|
./pkg/openad/the_model_main.F |
565 |
THE_MODEL_MAIN |
call WRITE_FLD_XY_RL(fname,suff,foo2D,myIter,1) |
|
./pkg/profiles/profiles_readparms.F |
136 |
PROFILES_READPARMS |
fname = profilesfiles(num_file)(1:IL)//'.nc' |
|
./pkg/profiles/profiles_readparms.F |
137 |
PROFILES_READPARMS |
inquire( file=fname, exist=exst ) |
|
./pkg/profiles/profiles_readparms.F |
41 |
PROFILES_READPARMS |
character*(128) fname |
|
./pkg/regrid/regrid_init_varia.F |
128 |
REGRID_INIT_VARIA |
fname(k:k) = ' ' |
|
./pkg/regrid/regrid_init_varia.F |
131 |
REGRID_INIT_VARIA |
write(fname,'(a,i3.3,a)') |
|
./pkg/regrid/regrid_init_varia.F |
133 |
REGRID_INIT_VARIA |
nnb = ILNBLNK(fname) |
|
./pkg/regrid/regrid_init_varia.F |
134 |
REGRID_INIT_VARIA |
INQUIRE( FILE=fname, EXIST=exst ) |
|
./pkg/regrid/regrid_init_varia.F |
139 |
REGRID_INIT_VARIA |
& fname(1:nnb), '" does not exist' |
|
./pkg/regrid/regrid_init_varia.F |
145 |
REGRID_INIT_VARIA |
open(unit=iUnit, file=fname, status='old', iostat=errIO) |
|
./pkg/regrid/regrid_init_varia.F |
151 |
REGRID_INIT_VARIA |
& fname(1:nnb), '"' |
|
./pkg/regrid/regrid_init_varia.F |
156 |
REGRID_INIT_VARIA |
WRITE(msgBuf,'(3a)') 'Reading file "', fname(1:nnb),'"' |
|
./pkg/regrid/regrid_init_varia.F |
42 |
REGRID_INIT_VARIA |
CHARACTER*(MAX_LEN_FNAM) fname |
|
./pkg/streamice/streamice_check.F |
295 |
STREAMICE_CHECK |
WRITE(fname,'(A,I1,A,I1,A,I1)') |
|
./pkg/streamice/streamice_check.F |
297 |
STREAMICE_CHECK |
CALL WRITE_FLD_XY_RL (fname, "", |
|
./pkg/streamice/streamice_check.F |
34 |
STREAMICE_CHECK |
CHARACTER*(10) fname |
|
./verification/flt_example/extra/cvprofiles.F |
324 |
NO PROCEDURE |
IL=ILNBLNK( fname ) |
|
./verification/flt_example/extra/cvprofiles.F |
325 |
NO PROCEDURE |
outname2=fname(1:IL)//'.cdf' |
|
./optim/optim_initmod.F |
46 |
OPTIM_INITMOD |
character*(80) fname |
|
./optim/optim_initmod.F |
52 |
OPTIM_INITMOD |
write(fname(1:80),'(80a)') ' ' |
|
./optim/optim_initmod.F |
53 |
OPTIM_INITMOD |
write(fname(1:80),'(4a,i10.10,a)') |
|
./optim/optim_readdata.F |
132 |
OPTIM_READDATA |
write(fname(1:128),'(4a,i4.4)') |
|
./optim/optim_readdata.F |
134 |
OPTIM_READDATA |
open( funit, file = fname, |
|
./optim/optim_readdata.F |
138 |
OPTIM_READDATA |
print*, 'opened file ', fname |
|
./optim/optim_readdata.F |
340 |
OPTIM_READDATA |
& ' records in '//fname(1:28)//'.' |
|
./optim/optim_readdata.F |
79 |
OPTIM_READDATA |
character*(128) fname |
|
./optim/optim_writedata.F |
100 |
OPTIM_WRITEDATA |
open( funit, file = fname, |
|
./optim/optim_writedata.F |
66 |
OPTIM_WRITEDATA |
character*(128) fname |
|
./optim/optim_writedata.F |
98 |
OPTIM_WRITEDATA |
write(fname(1:128),'(4a,i4.4)') |
|
./pkg/autodiff/active_file_ad.F |
107 |
ADACTIVE_READ_XY |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
108 |
ADACTIVE_READ_XY |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
113 |
ADACTIVE_READ_XY |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_ad.F |
188 |
ADACTIVE_READ_XYZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
196 |
ADACTIVE_READ_XYZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
197 |
ADACTIVE_READ_XYZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
202 |
ADACTIVE_READ_XYZ |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_ad.F |
277 |
ADACTIVE_READ_XZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
285 |
ADACTIVE_READ_XZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
286 |
ADACTIVE_READ_XZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
291 |
ADACTIVE_READ_XZ |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_ad.F |
366 |
ADACTIVE_READ_YZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
374 |
ADACTIVE_READ_YZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
375 |
ADACTIVE_READ_YZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
380 |
ADACTIVE_READ_YZ |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_ad.F |
446 |
ADACTIVE_WRITE_XY |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
455 |
ADACTIVE_WRITE_XY |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
456 |
ADACTIVE_WRITE_XY |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
462 |
ADACTIVE_WRITE_XY |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_ad.F |
528 |
ADACTIVE_WRITE_XYZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
537 |
ADACTIVE_WRITE_XYZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
538 |
ADACTIVE_WRITE_XYZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
544 |
ADACTIVE_WRITE_XYZ |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_ad.F |
609 |
ADACTIVE_WRITE_XZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
618 |
ADACTIVE_WRITE_XZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
619 |
ADACTIVE_WRITE_XZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
625 |
ADACTIVE_WRITE_XZ |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_ad.F |
691 |
ADACTIVE_WRITE_YZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_ad.F |
700 |
ADACTIVE_WRITE_YZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_ad.F |
701 |
ADACTIVE_WRITE_YZ |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_ad.F |
707 |
ADACTIVE_WRITE_YZ |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_ad.F |
99 |
ADACTIVE_READ_XY |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
108 |
G_ACTIVE_READ_XY |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_g.F |
176 |
G_ACTIVE_READ_XYZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
184 |
G_ACTIVE_READ_XYZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
185 |
G_ACTIVE_READ_XYZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
195 |
G_ACTIVE_READ_XYZ |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_g.F |
263 |
G_ACTIVE_READ_XZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
271 |
G_ACTIVE_READ_XZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
272 |
G_ACTIVE_READ_XZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
282 |
G_ACTIVE_READ_XZ |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_g.F |
350 |
G_ACTIVE_READ_YZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
358 |
G_ACTIVE_READ_YZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
359 |
G_ACTIVE_READ_YZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
369 |
G_ACTIVE_READ_YZ |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_g.F |
430 |
G_ACTIVE_WRITE_XY |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
439 |
G_ACTIVE_WRITE_XY |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
440 |
G_ACTIVE_WRITE_XY |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
451 |
G_ACTIVE_WRITE_XY |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_g.F |
512 |
G_ACTIVE_WRITE_XYZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
521 |
G_ACTIVE_WRITE_XYZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
522 |
G_ACTIVE_WRITE_XYZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
533 |
G_ACTIVE_WRITE_XYZ |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_g.F |
594 |
G_ACTIVE_WRITE_XZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
603 |
G_ACTIVE_WRITE_XZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
604 |
G_ACTIVE_WRITE_XZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
615 |
G_ACTIVE_WRITE_XZ |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_g.F |
676 |
G_ACTIVE_WRITE_YZ |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
685 |
G_ACTIVE_WRITE_YZ |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
686 |
G_ACTIVE_WRITE_YZ |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_g.F |
697 |
G_ACTIVE_WRITE_YZ |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_g.F |
89 |
G_ACTIVE_READ_XY |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_g.F |
97 |
G_ACTIVE_READ_XY |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_g.F |
98 |
G_ACTIVE_READ_XY |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
107 |
ADACTIVE_READ_XY_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
108 |
ADACTIVE_READ_XY_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
113 |
ADACTIVE_READ_XY_LOC |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_ad.F |
188 |
ADACTIVE_READ_XYZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
196 |
ADACTIVE_READ_XYZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
197 |
ADACTIVE_READ_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
202 |
ADACTIVE_READ_XYZ_LOC |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_ad.F |
277 |
ADACTIVE_READ_XZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
285 |
ADACTIVE_READ_XZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
286 |
ADACTIVE_READ_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
291 |
ADACTIVE_READ_XZ_LOC |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_ad.F |
366 |
ADACTIVE_READ_YZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
374 |
ADACTIVE_READ_YZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
375 |
ADACTIVE_READ_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
380 |
ADACTIVE_READ_YZ_LOC |
& fname, adactive_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_ad.F |
446 |
ADACTIVE_WRITE_XY_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
455 |
ADACTIVE_WRITE_XY_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
456 |
ADACTIVE_WRITE_XY_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
462 |
ADACTIVE_WRITE_XY_LOC |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_loc_ad.F |
528 |
ADACTIVE_WRITE_XYZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
537 |
ADACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
538 |
ADACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
544 |
ADACTIVE_WRITE_XYZ_LOC |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_loc_ad.F |
609 |
ADACTIVE_WRITE_XZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
618 |
ADACTIVE_WRITE_XZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
619 |
ADACTIVE_WRITE_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
625 |
ADACTIVE_WRITE_XZ_LOC |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_loc_ad.F |
691 |
ADACTIVE_WRITE_YZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_ad.F |
700 |
ADACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_ad.F |
701 |
ADACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') adpref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_ad.F |
707 |
ADACTIVE_WRITE_YZ_LOC |
& fname, adactive_var, globalFile, |
|
./pkg/autodiff/active_file_loc_ad.F |
99 |
ADACTIVE_READ_XY_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
106 |
G_ACTIVE_READ_XY_LOC |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_g.F |
172 |
G_ACTIVE_READ_XYZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
180 |
G_ACTIVE_READ_XYZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
181 |
G_ACTIVE_READ_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
191 |
G_ACTIVE_READ_XYZ_LOC |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_g.F |
257 |
G_ACTIVE_READ_XZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
265 |
G_ACTIVE_READ_XZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
266 |
G_ACTIVE_READ_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
276 |
G_ACTIVE_READ_XZ_LOC |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_g.F |
342 |
G_ACTIVE_READ_YZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
350 |
G_ACTIVE_READ_YZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
351 |
G_ACTIVE_READ_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
361 |
G_ACTIVE_READ_YZ_LOC |
& fname, g_active_var, doglobalread, |
|
./pkg/autodiff/active_file_loc_g.F |
420 |
G_ACTIVE_WRITE_XY_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
429 |
G_ACTIVE_WRITE_XY_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
430 |
G_ACTIVE_WRITE_XY_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
441 |
G_ACTIVE_WRITE_XY_LOC |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_loc_g.F |
500 |
G_ACTIVE_WRITE_XYZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
509 |
G_ACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
510 |
G_ACTIVE_WRITE_XYZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
521 |
G_ACTIVE_WRITE_XYZ_LOC |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_loc_g.F |
580 |
G_ACTIVE_WRITE_XZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
589 |
G_ACTIVE_WRITE_XZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
590 |
G_ACTIVE_WRITE_XZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
601 |
G_ACTIVE_WRITE_XZ_LOC |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_loc_g.F |
660 |
G_ACTIVE_WRITE_YZ_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
669 |
G_ACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
670 |
G_ACTIVE_WRITE_YZ_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/active_file_loc_g.F |
681 |
G_ACTIVE_WRITE_YZ_LOC |
& fname, g_active_var, globalFile, |
|
./pkg/autodiff/active_file_loc_g.F |
87 |
G_ACTIVE_READ_XY_LOC |
CHARACTER*(80) fname |
|
./pkg/autodiff/active_file_loc_g.F |
95 |
G_ACTIVE_READ_XY_LOC |
WRITE(fname(1:80),'(A)') ' ' |
|
./pkg/autodiff/active_file_loc_g.F |
96 |
G_ACTIVE_READ_XY_LOC |
WRITE(fname(1:2+il),'(2A)') pref, active_var_file(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
129 |
ADREAD |
CHARACTER*(MAX_LEN_FNAM) fname |
|
./pkg/autodiff/adread_adwrite.F |
167 |
ADREAD |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
170 |
ADREAD |
WRITE(fname,'(3A,I4.4)') |
|
./pkg/autodiff/adread_adwrite.F |
177 |
ADREAD |
& length, size, filePrec, ' fname=', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
196 |
ADREAD |
call MDS_READ_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/adread_adwrite.F |
231 |
ADREAD |
CALL MDS_READ_TAPE( fname, filePrec, 'R4', |
|
./pkg/autodiff/adread_adwrite.F |
237 |
ADREAD |
CALL MDS_READ_TAPE( fname, filePrec, 'R8', |
|
./pkg/autodiff/adread_adwrite.F |
327 |
ADWRITE |
CHARACTER*(MAX_LEN_FNAM) fname |
|
./pkg/autodiff/adread_adwrite.F |
366 |
ADWRITE |
WRITE(fname,'(2A)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
369 |
ADWRITE |
WRITE(fname,'(3A,I4.4)') |
|
./pkg/autodiff/adread_adwrite.F |
376 |
ADWRITE |
& length, size, filePrec, ' fname=', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
398 |
ADWRITE |
write(msgBuf,'(2A)') 'for file ', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
405 |
ADWRITE |
call MDS_WRITE_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/adread_adwrite.F |
427 |
ADWRITE |
CALL MDS_WRITE_TAPE( fname, filePrec, globalfile, 'R4', |
|
./pkg/autodiff/adread_adwrite.F |
433 |
ADWRITE |
CALL MDS_WRITE_TAPE( fname, filePrec, globalfile, 'R8', |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
100 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XZ( fname(2), ivarindex, mythid) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
103 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XZ( fname(1), ivarindex, mythid ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
107 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_YZ( fname(2), ivarindex, mythid) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
110 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_YZ( fname(1), ivarindex, mythid ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
58 |
CTRL_INIT_CTRLVAR |
character*( 80) fname(3) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
75 |
CTRL_INIT_CTRLVAR |
call CTRL_SET_FNAME( xx_fname, fname, mythid ) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
86 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XYZ( fname(2), ivarindex, mythid) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
89 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XYZ( fname(1), ivarindex, mythid) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
93 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XY( fname(2), ivarindex, mythid) |
|
./pkg/ctrl/ctrl_init_ctrlvar.F |
96 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XY( fname(1), ivarindex, mythid ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
123 |
CTRL_MASK_SET_XZ |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
124 |
CTRL_MASK_SET_XZ |
write(fname(1:80),'(a)') ymaskobcs |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
136 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy ) |
|
./pkg/ctrl/ctrl_mask_set_xz.F |
60 |
CTRL_MASK_SET_XZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
124 |
CTRL_MASK_SET_YZ |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
125 |
CTRL_MASK_SET_YZ |
write(fname(1:80),'(a)') ymaskobcs |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
137 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy) |
|
./pkg/ctrl/ctrl_mask_set_yz.F |
60 |
CTRL_MASK_SET_YZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_fname.F |
35 |
CTRL_SET_FNAME |
character*( 80) fname(3) |
|
./pkg/ctrl/ctrl_set_fname.F |
55 |
CTRL_SET_FNAME |
write(fname(1)(1:80),'(80a)') ' ' |
|
./pkg/ctrl/ctrl_set_fname.F |
56 |
CTRL_SET_FNAME |
write(fname(2)(1:80),'(80a)') ' ' |
|
./pkg/ctrl/ctrl_set_fname.F |
57 |
CTRL_SET_FNAME |
write(fname(3)(1:80),'(80a)') ' ' |
|
./pkg/ctrl/ctrl_set_fname.F |
60 |
CTRL_SET_FNAME |
write(fname(1)(1:80),'(2a,i10.10)') |
|
./pkg/ctrl/ctrl_set_fname.F |
62 |
CTRL_SET_FNAME |
write(fname(2)(1:80),'(3a,i10.10)') |
|
./pkg/ctrl/ctrl_set_fname.F |
64 |
CTRL_SET_FNAME |
write(fname(3)(1:80),'(3a,i10.10)') |
|
./pkg/ctrl/ctrl_set_fname.F |
7 |
CTRL_SET_FNAME |
subroutine CTRL_SET_FNAME( xx_fname, fname, mythid ) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
104 |
CTRL_SET_GLOBFLD_XY |
call MDSWRITEFIELD( fname, ctrlprec, .FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
39 |
CTRL_SET_GLOBFLD_XY |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
8 |
CTRL_SET_GLOBFLD_XY |
I fname, ivartype, mythid ) |
|
./pkg/ctrl/ctrl_set_globfld_xy.F |
98 |
CTRL_SET_GLOBFLD_XY |
call MDSWRITEFIELD( fname, ctrlprec, .FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
34 |
CTRL_SET_GLOBFLD_XYZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
81 |
CTRL_SET_GLOBFLD_XYZ |
call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_xyz.F |
8 |
CTRL_SET_GLOBFLD_XYZ |
I fname, ivartype, mythid ) |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
105 |
CTRL_SET_GLOBFLD_XZ |
call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
111 |
CTRL_SET_GLOBFLD_XZ |
call MDSWRITEFIELDXZ( fname, ctrlprec,.FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
39 |
CTRL_SET_GLOBFLD_XZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_globfld_xz.F |
8 |
CTRL_SET_GLOBFLD_XZ |
I fname, ivartype, mythid ) |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
106 |
CTRL_SET_GLOBFLD_YZ |
call MDSWRITEFIELD( fname, ctrlprec,.FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
113 |
CTRL_SET_GLOBFLD_YZ |
call MDSWRITEFIELDYZ( fname, ctrlprec,.FALSE., 'RL', |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
39 |
CTRL_SET_GLOBFLD_YZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_globfld_yz.F |
8 |
CTRL_SET_GLOBFLD_YZ |
I fname, ivartype, mythid ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
176 |
CTRL_SET_PACK_XY |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
269 |
CTRL_SET_PACK_XY |
call MDSREADFIELD_2D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
37 |
CTRL_SET_PACK_XY |
character*( 80) fname, fnameGlobal |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
422 |
CTRL_SET_PACK_XY |
il = ilnblnk( fname ) |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
424 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
425 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
427 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
428 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
437 |
CTRL_SET_PACK_XY |
call READ_REC_3D_RL( fname, ctrlprec, |
|
./pkg/ctrl/ctrl_set_pack_xy.F |
8 |
CTRL_SET_PACK_XY |
& fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
186 |
CTRL_SET_PACK_XYZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
336 |
CTRL_SET_PACK_XYZ |
il = ilnblnk( fname ) |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
338 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
339 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
341 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
342 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
351 |
CTRL_SET_PACK_XYZ |
call READ_REC_3D_RL( fname, ctrlprec, |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
40 |
CTRL_SET_PACK_XYZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_pack_xyz.F |
7 |
CTRL_SET_PACK_XYZ |
& cunit, ivartype, fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
185 |
CTRL_SET_PACK_XZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
262 |
CTRL_SET_PACK_XZ |
call MDSREADFIELD_XZ_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
43 |
CTRL_SET_PACK_XZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_pack_xz.F |
7 |
CTRL_SET_PACK_XZ |
& cunit, ivartype, fname, masktype,weighttype, |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
187 |
CTRL_SET_PACK_YZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
266 |
CTRL_SET_PACK_YZ |
call MDSREADFIELD_YZ_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
43 |
CTRL_SET_PACK_YZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_pack_yz.F |
7 |
CTRL_SET_PACK_YZ |
& cunit, ivartype, fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
279 |
CTRL_SET_UNPACK_XY |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
389 |
CTRL_SET_UNPACK_XY |
call MDSWRITEFIELD_2D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
38 |
CTRL_SET_UNPACK_XY |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
456 |
CTRL_SET_UNPACK_XY |
il = ilnblnk( fname ) |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
458 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
459 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
461 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
462 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim' |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
601 |
CTRL_SET_UNPACK_XY |
call WRITE_REC_3D_RL( fname, ctrlprec, |
|
./pkg/ctrl/ctrl_set_unpack_xy.F |
8 |
CTRL_SET_UNPACK_XY |
& fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
296 |
CTRL_SET_UNPACK_XYZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
365 |
CTRL_SET_UNPACK_XYZ |
il = ilnblnk( fname ) |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
367 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
368 |
CTRL_SET_UNPACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
370 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
371 |
CTRL_SET_UNPACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim' |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
40 |
CTRL_SET_UNPACK_XYZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
513 |
CTRL_SET_UNPACK_XYZ |
call WRITE_REC_3D_RL( fname, ctrlprec, |
|
./pkg/ctrl/ctrl_set_unpack_xyz.F |
7 |
CTRL_SET_UNPACK_XYZ |
& lxxadxx, cunit, ivartype, fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
270 |
CTRL_SET_UNPACK_XZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
351 |
CTRL_SET_UNPACK_XZ |
call MDSWRITEFIELD_XZ_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
42 |
CTRL_SET_UNPACK_XZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_unpack_xz.F |
7 |
CTRL_SET_UNPACK_XZ |
& cunit, ivartype, fname, masktype, weighttype, |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
270 |
CTRL_SET_UNPACK_YZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
345 |
CTRL_SET_UNPACK_YZ |
call MDSWRITEFIELD_YZ_GL( fname, ctrlprec, 'RL', |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
42 |
CTRL_SET_UNPACK_YZ |
character*( 80) fname |
|
./pkg/ctrl/ctrl_set_unpack_yz.F |
7 |
CTRL_SET_UNPACK_YZ |
& cunit, ivartype, fname, masktype, weighttype, |
|
./pkg/ecco/cost_averagesgeneric.F |
117 |
COST_AVERAGESGENERIC |
write(fname(1:128),'(80a)') ' ' |
|
./pkg/ecco/cost_averagesgeneric.F |
119 |
COST_AVERAGESGENERIC |
write(fname,'(2a,i10.10)') |
|
./pkg/ecco/cost_averagesgeneric.F |
122 |
COST_AVERAGESGENERIC |
call ACTIVE_WRITE_XY( fname, localbar, locrec, optimcycle, |
|
./pkg/ecco/cost_averagesgeneric.F |
125 |
COST_AVERAGESGENERIC |
call ACTIVE_WRITE_XYZ( fname, localbar, locrec, optimcycle, |
|
./pkg/ecco/cost_averagesgeneric.F |
68 |
COST_AVERAGESGENERIC |
character*(128) fname |
|
./pkg/ecco/cost_bp.F |
113 |
COST_BP |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_bp.F |
115 |
COST_BP |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_bp.F |
125 |
COST_BP |
call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread, |
|
./pkg/ecco/cost_bp.F |
172 |
COST_BP |
call ACTIVE_READ_XY( fname, bpbar, irec, doglobalread, |
|
./pkg/ecco/cost_bp.F |
72 |
COST_BP |
character*(80) fname |
|
./pkg/ecco/cost_gencost_sshv4.F |
1030 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
148 |
COST_GENCOST_SSHV4 |
character*(80) fname |
|
./pkg/ecco/cost_gencost_sshv4.F |
190 |
COST_GENCOST_SSHV4 |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_gencost_sshv4.F |
192 |
COST_GENCOST_SSHV4 |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_gencost_sshv4.F |
405 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sshv4.F |
756 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
142 |
COST_GENCOST_SSTV4 |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_gencost_sstv4.F |
144 |
COST_GENCOST_SSTV4 |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_gencost_sstv4.F |
180 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, sstbar, krec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
332 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, sstbar, irec, doglobalread, |
|
./pkg/ecco/cost_gencost_sstv4.F |
84 |
COST_GENCOST_SSTV4 |
character*(80) fname |
|
./pkg/ecco/cost_ies.F |
109 |
COST_IES |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_ies.F |
111 |
COST_IES |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_ies.F |
121 |
COST_IES |
call ACTIVE_READ_XY( fname, iestaubar, irec, doglobalread, |
|
./pkg/ecco/cost_ies.F |
182 |
COST_IES |
call ACTIVE_READ_XY( fname, iestaubar, irec, doglobalread, |
|
./pkg/ecco/cost_ies.F |
72 |
COST_IES |
character*(80) fname |
|
./pkg/ecco/cost_ssh.F |
117 |
COST_SSH |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_ssh.F |
119 |
COST_SSH |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_ssh.F |
143 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
242 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh.F |
83 |
COST_SSH |
character*(80) fname |
|
./pkg/ecco/cost_ssh_new.F |
120 |
COST_SSH_NEW |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_ssh_new.F |
122 |
COST_SSH_NEW |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_ssh_new.F |
158 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh_new.F |
327 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_ssh_new.F |
94 |
COST_SSH_NEW |
character*(80) fname |
|
./pkg/ecco/cost_sshv4.F |
146 |
COST_SSHV4 |
character*(80) fname |
|
./pkg/ecco/cost_sshv4.F |
175 |
COST_SSHV4 |
write(fname(1:80),'(80a)') ' ' |
|
./pkg/ecco/cost_sshv4.F |
177 |
COST_SSHV4 |
write(fname(1:80),'(2a,i10.10)') |
|
./pkg/ecco/cost_sshv4.F |
365 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/cost_sshv4.F |
676 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, krec, doglobalread, |
|
./pkg/ecco/cost_sshv4.F |
873 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
|
./pkg/ecco/ecco_check.F |
194 |
ECCO_CHECK_FILES |
character*(128) fname |
|
./pkg/ecco/ecco_check.F |
236 |
ECCO_CHECK_FILES |
write(fname(1:128),'(2a,i4)') |
|
./pkg/ecco/ecco_check.F |
238 |
ECCO_CHECK_FILES |
inquire( file=fname, exist=exst ) |
|
./pkg/ecco/ecco_check.F |
243 |
ECCO_CHECK_FILES |
& '** WARNING ** ECCO_CHECK_FILES: missing',fname, |