File |
Line number |
Procedure |
Code |
./pkg/grdchk/grdchk_get_obcs_mask.F |
116 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
117 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcsw' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
120 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
139 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
140 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcse' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
143 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_YZ( fname, tmpfldyz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
48 |
GRDCHK_GET_OBCS_MASK |
character*( 80) fname |
./pkg/grdchk/grdchk_get_obcs_mask.F |
70 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
71 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcsn' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
74 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
./pkg/grdchk/grdchk_get_obcs_mask.F |
93 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
94 |
GRDCHK_GET_OBCS_MASK |
write(fname(1:80),'(a)') 'maskobcss' |
./pkg/grdchk/grdchk_get_obcs_mask.F |
97 |
GRDCHK_GET_OBCS_MASK |
call ACTIVE_READ_XZ( fname, tmpfldxz, iobcs, |
./pkg/grdchk/grdchk_getadxx.F |
101 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
111 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
112 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
114 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
126 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
135 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
136 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
138 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
150 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
159 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
160 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
162 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
174 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
183 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
184 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
186 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
198 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
207 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
208 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
211 |
GRDCHK_GETADXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
222 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
223 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
226 |
GRDCHK_GETADXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
237 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
238 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
241 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
252 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
253 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
256 |
GRDCHK_GETADXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./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 |
271 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
282 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
283 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
286 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
297 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
298 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
301 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
312 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
313 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
316 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
327 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
328 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
330 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
342 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
351 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
352 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
354 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./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 |
367 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
378 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
379 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
382 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
393 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
394 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
396 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
405 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
406 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
408 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
417 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
418 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
421 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
430 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
431 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
433 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
442 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
443 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
445 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
454 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
455 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
457 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
466 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
467 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
469 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
478 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
479 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
481 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
490 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
491 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
493 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
502 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
503 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
505 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
514 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
515 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
518 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
527 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
528 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
530 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
539 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
540 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
542 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
551 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
552 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
554 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
563 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
564 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
566 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getadxx.F |
575 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
576 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
578 |
GRDCHK_GETADXX |
call ACTIVE_READ_XY( fname, tmpfld2d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
63 |
GRDCHK_GETADXX |
character*(80) fname |
./pkg/grdchk/grdchk_getadxx.F |
85 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
86 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getadxx.F |
89 |
GRDCHK_GETADXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getadxx.F |
98 |
GRDCHK_GETADXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getadxx.F |
99 |
GRDCHK_GETADXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
103 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
112 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
115 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
118 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
124 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
133 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
136 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
139 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
145 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
154 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
157 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
160 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
166 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
175 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
178 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
181 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
187 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
196 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
199 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
202 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
208 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
217 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
220 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
223 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
229 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
238 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
241 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
244 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
250 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
259 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
262 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
265 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
271 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
280 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
283 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
286 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
292 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
301 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
304 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
308 |
GRDCHK_GETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
316 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
326 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
329 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
333 |
GRDCHK_GETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
341 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
351 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
354 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
358 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
366 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
376 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
379 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
383 |
GRDCHK_GETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
391 |
GRDCHK_GETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
401 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
404 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
408 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
416 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
426 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
429 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
433 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
441 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
451 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
454 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
458 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
466 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
477 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
480 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
484 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
492 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
502 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
505 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
508 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
514 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
523 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
526 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
529 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
535 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
544 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
547 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
550 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
556 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
564 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getxx.F |
566 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
569 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
573 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
581 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
590 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getxx.F |
592 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
595 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
599 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
607 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
617 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
620 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
623 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
629 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
638 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
641 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
644 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
650 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
659 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
662 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
666 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
674 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_getxx.F |
683 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
686 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
689 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
695 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
69 |
GRDCHK_GETXX |
character*(80) fname |
./pkg/grdchk/grdchk_getxx.F |
704 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
707 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
710 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
716 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
725 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
728 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
731 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
737 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
746 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
749 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
752 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
758 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
767 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
770 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
773 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
779 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
788 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
791 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
794 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
800 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
809 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
812 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
815 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
821 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
82 |
GRDCHK_GETXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_getxx.F |
830 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
833 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
836 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
842 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
851 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
854 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
857 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
863 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
872 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
875 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
878 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
884 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
893 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
896 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
899 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
905 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
914 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
917 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
91 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
920 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
926 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_getxx.F |
935 |
GRDCHK_GETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
938 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
941 |
GRDCHK_GETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, 1, |
./pkg/grdchk/grdchk_getxx.F |
947 |
GRDCHK_GETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, 1, |
./pkg/grdchk/grdchk_getxx.F |
94 |
GRDCHK_GETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_getxx.F |
97 |
GRDCHK_GETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
107 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
110 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
113 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
117 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./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 |
132 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
136 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
145 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
148 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
151 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
155 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
164 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
167 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
170 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
174 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
183 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
186 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
189 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
193 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
202 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
205 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
208 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
212 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
221 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
224 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
227 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
231 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
240 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
243 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
246 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
250 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
259 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
262 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
265 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
269 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
278 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
281 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
285 |
GRDCHK_SETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
291 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
301 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
304 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
308 |
GRDCHK_SETXX |
call ACTIVE_READ_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
314 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XZ( fname, tmpfldxz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
324 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
327 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
331 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
337 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
347 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
350 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
354 |
GRDCHK_SETXX |
call ACTIVE_READ_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
360 |
GRDCHK_SETXX |
call ACTIVE_WRITE_YZ( fname, tmpfldyz, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
370 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
373 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
377 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
383 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
393 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
396 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
400 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
406 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
416 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
419 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
423 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
429 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
439 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
442 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
446 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
452 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
462 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
465 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
468 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
472 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
481 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
484 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
487 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
491 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
500 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
503 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
506 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
510 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
518 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
./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 |
526 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
530 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
538 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_setxx.F |
540 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
543 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
546 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
550 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
559 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
562 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
565 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
569 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
578 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
581 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
584 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
588 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
597 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
600 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
604 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
610 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
619 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
622 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
625 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
629 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
638 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
641 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
644 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
648 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
657 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
660 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
663 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
667 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
66 |
GRDCHK_SETXX |
character*(80) fname |
./pkg/grdchk/grdchk_setxx.F |
676 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
679 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
682 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
686 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
695 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
698 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
701 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
705 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
714 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
717 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
720 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
724 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
733 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
736 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
739 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
743 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
752 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
755 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
758 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
762 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
771 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
774 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
777 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
781 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
790 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
793 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
796 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
79 |
GRDCHK_SETXX |
write(fname(1:80),'(80a)') ' ' |
./pkg/grdchk/grdchk_setxx.F |
800 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
809 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
812 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
815 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
819 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
828 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
831 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
834 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
838 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, icvrec, |
./pkg/grdchk/grdchk_setxx.F |
848 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
851 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
854 |
GRDCHK_SETXX |
call ACTIVE_READ_XY( fname, tmpfld2d, 1, |
./pkg/grdchk/grdchk_setxx.F |
858 |
GRDCHK_SETXX |
print*,"fname etc.",fname,itilepos,jtilepos,itile,jtile, |
./pkg/grdchk/grdchk_setxx.F |
860 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XY( fname, tmpfld2d, 1, |
./pkg/grdchk/grdchk_setxx.F |
88 |
GRDCHK_SETXX |
write(fname(1:80),'(3a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
91 |
GRDCHK_SETXX |
write(fname(1:80),'(2a,i10.10)') |
./pkg/grdchk/grdchk_setxx.F |
94 |
GRDCHK_SETXX |
call ACTIVE_READ_XYZ( fname, tmpfld3d, 1, |
./pkg/grdchk/grdchk_setxx.F |
98 |
GRDCHK_SETXX |
call ACTIVE_WRITE_XYZ( fname, tmpfld3d, 1, |
./pkg/mnc/mnc_cw_cvars.F |
12 |
MNC_CW_WRITE_CVAR |
I fname, |
./pkg/mnc/mnc_cw_cvars.F |
40 |
MNC_CW_WRITE_CVAR |
character*(*) fname |
./pkg/mnc/mnc_cw_cvars.F |
411 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
419 |
MNC_CW_WRITE_CVAR |
i = ILNBLNK( fname ) |
./pkg/mnc/mnc_cw_cvars.F |
421 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
./pkg/mnc/mnc_cw_cvars.F |
429 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
./pkg/mnc/mnc_cw_cvars.F |
437 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
./pkg/mnc/mnc_cw_cvars.F |
445 |
MNC_CW_WRITE_CVAR |
& cvname(nnf:nnl), ''' in file ''', fname(1:i), '''' |
./pkg/mnc/mnc_cw_cvars.F |
449 |
MNC_CW_WRITE_CVAR |
CALL MNC_FILE_ENDDEF(fname, myThid) |
./pkg/mnc/mnc_cw_cvars.F |
458 |
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_pij', |
./pkg/mnc/mnc_cw_model_attr.F |
103 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oi', |
./pkg/mnc/mnc_cw_model_attr.F |
105 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'exch2_oj', |
./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 |
114 |
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 |
125 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
./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, 'sNx', 1, sNx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
131 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'sNy', 1, sNy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
132 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLx', 1, OLx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
133 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'OLy', 1, OLy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
134 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSx', 1, nSx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
135 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nSy', 1, nSy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
136 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPx', 1, nPx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
137 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'nPy', 1, nPy, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
138 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nx', 1, Nx, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
139 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Ny', 1, Ny, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
140 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, 'Nr', 1, Nr, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
39 |
MNC_CW_SET_GATTR |
character*(*) fname |
./pkg/mnc/mnc_cw_model_attr.F |
45 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_REDEF(fname, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
50 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'the_run_name', |
./pkg/mnc/mnc_cw_model_attr.F |
55 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_version', |
./pkg/mnc/mnc_cw_model_attr.F |
60 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_user', |
./pkg/mnc/mnc_cw_model_attr.F |
65 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_host', |
./pkg/mnc/mnc_cw_model_attr.F |
70 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'build_date', |
./pkg/mnc/mnc_cw_model_attr.F |
75 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_URL', |
./pkg/mnc/mnc_cw_model_attr.F |
77 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_STR(fname, 'MITgcm_tag_id', |
./pkg/mnc/mnc_cw_model_attr.F |
79 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_DBL(fname, 'MITgcm_mnc_ver', |
./pkg/mnc/mnc_cw_model_attr.F |
83 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
84 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bi', 1, bi, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
85 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid) |
./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 |
97 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname, |
./pkg/mnc/mnc_cw_write_grid_info.F |
168 |
MNC_CW_WRITE_GRID_COORD |
I fname, |
./pkg/mnc/mnc_cw_write_grid_info.F |
182 |
MNC_CW_WRITE_GRID_COORD |
character*(*) fname |
./pkg/mnc/mnc_cw_write_grid_info.F |
187 |
MNC_CW_WRITE_GRID_COORD |
CALL MNC_CW_SET_UDIM(fname, 0, myThid) |
./pkg/mnc/mnc_cw_write_grid_info.F |
188 |
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 |
189 |
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 |
190 |
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 |
191 |
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/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 |
./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 |
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 |
100 |
ADACTIVE_READ_XY |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
110 |
ADACTIVE_READ_XY |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
114 |
ADACTIVE_READ_XY |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
115 |
ADACTIVE_READ_XY |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
117 |
ADACTIVE_READ_XY |
call ACTIVE_READ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
187 |
ADACTIVE_READ_XYZ |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
197 |
ADACTIVE_READ_XYZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
201 |
ADACTIVE_READ_XYZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
202 |
ADACTIVE_READ_XYZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
204 |
ADACTIVE_READ_XYZ |
call ACTIVE_READ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
274 |
ADACTIVE_READ_XZ |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
284 |
ADACTIVE_READ_XZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
288 |
ADACTIVE_READ_XZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
289 |
ADACTIVE_READ_XZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
291 |
ADACTIVE_READ_XZ |
call ACTIVE_READ_XZ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
361 |
ADACTIVE_READ_YZ |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
371 |
ADACTIVE_READ_YZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
375 |
ADACTIVE_READ_YZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
376 |
ADACTIVE_READ_YZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
378 |
ADACTIVE_READ_YZ |
call ACTIVE_READ_YZ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
442 |
ADACTIVE_WRITE_XY |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
453 |
ADACTIVE_WRITE_XY |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
457 |
ADACTIVE_WRITE_XY |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
458 |
ADACTIVE_WRITE_XY |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
462 |
ADACTIVE_WRITE_XY |
call ACTIVE_WRITE_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
526 |
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 |
541 |
ADACTIVE_WRITE_XYZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
542 |
ADACTIVE_WRITE_XYZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
546 |
ADACTIVE_WRITE_XYZ |
call ACTIVE_WRITE_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
609 |
ADACTIVE_WRITE_XZ |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
620 |
ADACTIVE_WRITE_XZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
624 |
ADACTIVE_WRITE_XZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
625 |
ADACTIVE_WRITE_XZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
629 |
ADACTIVE_WRITE_XZ |
call ACTIVE_WRITE_XZ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_ad.F |
693 |
ADACTIVE_WRITE_YZ |
character*(80) fname |
./pkg/autodiff/active_file_ad.F |
704 |
ADACTIVE_WRITE_YZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_ad.F |
708 |
ADACTIVE_WRITE_YZ |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_ad.F |
709 |
ADACTIVE_WRITE_YZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_ad.F |
713 |
ADACTIVE_WRITE_YZ |
call ACTIVE_WRITE_YZ_RL( fname, adactive_var, |
./pkg/autodiff/active_file_g.F |
106 |
G_ACTIVE_READ_XY |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
108 |
G_ACTIVE_READ_XY |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
109 |
G_ACTIVE_READ_XY |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
115 |
G_ACTIVE_READ_XY |
call ACTIVE_READ_RL( fname, g_active_var, doglobalread, |
./pkg/autodiff/active_file_g.F |
184 |
G_ACTIVE_READ_XYZ |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
191 |
G_ACTIVE_READ_XYZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
193 |
G_ACTIVE_READ_XYZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
194 |
G_ACTIVE_READ_XYZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
200 |
G_ACTIVE_READ_XYZ |
call ACTIVE_READ_RL( fname, g_active_var, doglobalread, |
./pkg/autodiff/active_file_g.F |
270 |
G_ACTIVE_READ_XZ |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
277 |
G_ACTIVE_READ_XZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
279 |
G_ACTIVE_READ_XZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
280 |
G_ACTIVE_READ_XZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
286 |
G_ACTIVE_READ_XZ |
call ACTIVE_READ_XZ_RL( fname, g_active_var, doglobalread, |
./pkg/autodiff/active_file_g.F |
356 |
G_ACTIVE_READ_YZ |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
363 |
G_ACTIVE_READ_YZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
365 |
G_ACTIVE_READ_YZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
366 |
G_ACTIVE_READ_YZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
372 |
G_ACTIVE_READ_YZ |
call ACTIVE_READ_YZ_RL( fname, g_active_var, doglobalread, |
./pkg/autodiff/active_file_g.F |
435 |
G_ACTIVE_WRITE_XY |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
443 |
G_ACTIVE_WRITE_XY |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
445 |
G_ACTIVE_WRITE_XY |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
446 |
G_ACTIVE_WRITE_XY |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
452 |
G_ACTIVE_WRITE_XY |
call ACTIVE_WRITE_RL( fname, g_active_var, globalfile, |
./pkg/autodiff/active_file_g.F |
515 |
G_ACTIVE_WRITE_XYZ |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
523 |
G_ACTIVE_WRITE_XYZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
525 |
G_ACTIVE_WRITE_XYZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
526 |
G_ACTIVE_WRITE_XYZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
532 |
G_ACTIVE_WRITE_XYZ |
call ACTIVE_WRITE_RL( fname, g_active_var, globalfile, |
./pkg/autodiff/active_file_g.F |
595 |
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 |
605 |
G_ACTIVE_WRITE_XZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
606 |
G_ACTIVE_WRITE_XZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
612 |
G_ACTIVE_WRITE_XZ |
call ACTIVE_WRITE_XZ_RL( fname, g_active_var, globalfile, |
./pkg/autodiff/active_file_g.F |
675 |
G_ACTIVE_WRITE_YZ |
character*(80) fname |
./pkg/autodiff/active_file_g.F |
683 |
G_ACTIVE_WRITE_YZ |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_g.F |
685 |
G_ACTIVE_WRITE_YZ |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_g.F |
686 |
G_ACTIVE_WRITE_YZ |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_g.F |
692 |
G_ACTIVE_WRITE_YZ |
call ACTIVE_WRITE_YZ_RL( fname, g_active_var, globalfile, |
./pkg/autodiff/active_file_g.F |
99 |
G_ACTIVE_READ_XY |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
100 |
ADACTIVE_READ_XY_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
110 |
ADACTIVE_READ_XY_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_ad.F |
114 |
ADACTIVE_READ_XY_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
115 |
ADACTIVE_READ_XY_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
117 |
ADACTIVE_READ_XY_LOC |
call ACTIVE_READ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
187 |
ADACTIVE_READ_XYZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
197 |
ADACTIVE_READ_XYZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_ad.F |
201 |
ADACTIVE_READ_XYZ_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
202 |
ADACTIVE_READ_XYZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
204 |
ADACTIVE_READ_XYZ_LOC |
call ACTIVE_READ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
274 |
ADACTIVE_READ_XZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
284 |
ADACTIVE_READ_XZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_ad.F |
288 |
ADACTIVE_READ_XZ_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
289 |
ADACTIVE_READ_XZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
291 |
ADACTIVE_READ_XZ_LOC |
call ACTIVE_READ_XZ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
361 |
ADACTIVE_READ_YZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
371 |
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),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
376 |
ADACTIVE_READ_YZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
378 |
ADACTIVE_READ_YZ_LOC |
call ACTIVE_READ_YZ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
441 |
ADACTIVE_WRITE_XY_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
452 |
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),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
457 |
ADACTIVE_WRITE_XY_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
461 |
ADACTIVE_WRITE_XY_LOC |
call ACTIVE_WRITE_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
524 |
ADACTIVE_WRITE_XYZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
535 |
ADACTIVE_WRITE_XYZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_ad.F |
539 |
ADACTIVE_WRITE_XYZ_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
540 |
ADACTIVE_WRITE_XYZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
544 |
ADACTIVE_WRITE_XYZ_LOC |
call ACTIVE_WRITE_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
607 |
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 |
622 |
ADACTIVE_WRITE_XZ_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
623 |
ADACTIVE_WRITE_XZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
627 |
ADACTIVE_WRITE_XZ_LOC |
call ACTIVE_WRITE_XZ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_ad.F |
690 |
ADACTIVE_WRITE_YZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_ad.F |
701 |
ADACTIVE_WRITE_YZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_ad.F |
705 |
ADACTIVE_WRITE_YZ_LOC |
write(fname(1:2),'(a)') adpref |
./pkg/autodiff/active_file_loc_ad.F |
706 |
ADACTIVE_WRITE_YZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_ad.F |
710 |
ADACTIVE_WRITE_YZ_LOC |
call ACTIVE_WRITE_YZ_RL_LOC( fname, adactive_var, |
./pkg/autodiff/active_file_loc_g.F |
105 |
G_ACTIVE_READ_XY_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
107 |
G_ACTIVE_READ_XY_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
108 |
G_ACTIVE_READ_XY_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
114 |
G_ACTIVE_READ_XY_LOC |
call ACTIVE_READ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
181 |
G_ACTIVE_READ_XYZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
188 |
G_ACTIVE_READ_XYZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
190 |
G_ACTIVE_READ_XYZ_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
191 |
G_ACTIVE_READ_XYZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
197 |
G_ACTIVE_READ_XYZ_LOC |
call ACTIVE_READ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
265 |
G_ACTIVE_READ_XZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
272 |
G_ACTIVE_READ_XZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
274 |
G_ACTIVE_READ_XZ_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
275 |
G_ACTIVE_READ_XZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
281 |
G_ACTIVE_READ_XZ_LOC |
call ACTIVE_READ_XZ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
349 |
G_ACTIVE_READ_YZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
356 |
G_ACTIVE_READ_YZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
358 |
G_ACTIVE_READ_YZ_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
359 |
G_ACTIVE_READ_YZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
365 |
G_ACTIVE_READ_YZ_LOC |
call ACTIVE_READ_YZ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
426 |
G_ACTIVE_WRITE_XY_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
434 |
G_ACTIVE_WRITE_XY_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
436 |
G_ACTIVE_WRITE_XY_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
437 |
G_ACTIVE_WRITE_XY_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
443 |
G_ACTIVE_WRITE_XY_LOC |
call ACTIVE_WRITE_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
504 |
G_ACTIVE_WRITE_XYZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
512 |
G_ACTIVE_WRITE_XYZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
514 |
G_ACTIVE_WRITE_XYZ_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
515 |
G_ACTIVE_WRITE_XYZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
521 |
G_ACTIVE_WRITE_XYZ_LOC |
call ACTIVE_WRITE_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
582 |
G_ACTIVE_WRITE_XZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
590 |
G_ACTIVE_WRITE_XZ_LOC |
write(fname(1:80),'(a)') ' ' |
./pkg/autodiff/active_file_loc_g.F |
592 |
G_ACTIVE_WRITE_XZ_LOC |
write(fname(1:2),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
593 |
G_ACTIVE_WRITE_XZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
599 |
G_ACTIVE_WRITE_XZ_LOC |
call ACTIVE_WRITE_XZ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
660 |
G_ACTIVE_WRITE_YZ_LOC |
character*(80) fname |
./pkg/autodiff/active_file_loc_g.F |
668 |
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),'(a)') pref |
./pkg/autodiff/active_file_loc_g.F |
671 |
G_ACTIVE_WRITE_YZ_LOC |
write(fname(3:2+il),'(a)') active_var_file(1:il) |
./pkg/autodiff/active_file_loc_g.F |
677 |
G_ACTIVE_WRITE_YZ_LOC |
call ACTIVE_WRITE_YZ_RL_LOC( fname, g_active_var, |
./pkg/autodiff/active_file_loc_g.F |
98 |
G_ACTIVE_READ_XY_LOC |
character*(80) fname |
./pkg/autodiff/adread_adwrite.F |
128 |
ADREAD |
character*(MAX_LEN_FNAM) fname |
./pkg/autodiff/adread_adwrite.F |
156 |
ADREAD |
write(fname(1:MAX_LEN_FNAM),'(a)') ' ' |
./pkg/autodiff/adread_adwrite.F |
159 |
ADREAD |
write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il) |
./pkg/autodiff/adread_adwrite.F |
163 |
ADREAD |
write(fname(1:lenLoc),'(a,a,a)') |
./pkg/autodiff/adread_adwrite.F |
174 |
ADREAD |
call MDS_READ_WHALOS(fname,lenLoc,sizetmp, |
./pkg/autodiff/adread_adwrite.F |
211 |
ADREAD |
call MDSREADVECTOR( fname, sizetmp, 'RL', |
./pkg/autodiff/adread_adwrite.F |
295 |
ADWRITE |
character*(MAX_LEN_FNAM) fname |
./pkg/autodiff/adread_adwrite.F |
324 |
ADWRITE |
write(fname(1:MAX_LEN_FNAM),'(a)') ' ' |
./pkg/autodiff/adread_adwrite.F |
327 |
ADWRITE |
write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il) |
./pkg/autodiff/adread_adwrite.F |
331 |
ADWRITE |
write(fname(1:lenLoc),'(a,a,a)') |
./pkg/autodiff/adread_adwrite.F |
338 |
ADWRITE |
& sizetmp, ', ', fname(1:lenLoc) |
./pkg/autodiff/adread_adwrite.F |
350 |
ADWRITE |
call MDS_WRITE_WHALOS(fname,lenLoc,sizetmp, |
./pkg/autodiff/adread_adwrite.F |
354 |
ADWRITE |
& 'ADWRITE: ',fname(1:lenLoc),'was not read from tape.' |
./pkg/autodiff/adread_adwrite.F |
374 |
ADWRITE |
call MDSWRITEVECTOR( fname, sizetmp, globalfile, 'RL', |
./pkg/ctrl/ctrl_init_ctrlvar.F |
101 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_YZ( fname(1), ivarindex, mythid ) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
57 |
CTRL_INIT_CTRLVAR |
character*( 80) fname(2) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
74 |
CTRL_INIT_CTRLVAR |
call CTRL_SET_FNAME( xx_fname, fname, mythid ) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
84 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XYZ( fname(2), ivarindex, mythid) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
86 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XYZ( fname(1), ivarindex, mythid) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
89 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XY( fname(2), ivarindex, mythid) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
91 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XY( fname(1), ivarindex, mythid ) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
94 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XZ( fname(2), ivarindex, mythid) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
96 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_XZ( fname(1), ivarindex, mythid ) |
./pkg/ctrl/ctrl_init_ctrlvar.F |
99 |
CTRL_INIT_CTRLVAR |
& call CTRL_SET_GLOBFLD_YZ( fname(2), ivarindex, mythid) |
./pkg/ctrl/ctrl_mask_set_xz.F |
127 |
CTRL_MASK_SET_XZ |
write(fname(1:80),'(80a)') ' ' |
./pkg/ctrl/ctrl_mask_set_xz.F |
128 |
CTRL_MASK_SET_XZ |
write(fname(1:80),'(a)') ymaskobcs |
./pkg/ctrl/ctrl_mask_set_xz.F |
140 |
CTRL_MASK_SET_XZ |
call ACTIVE_WRITE_XZ( fname, gg, iobcs, 0, mythid, dummy ) |
./pkg/ctrl/ctrl_mask_set_xz.F |
64 |
CTRL_MASK_SET_XZ |
character*( 80) fname |
./pkg/ctrl/ctrl_mask_set_yz.F |
128 |
CTRL_MASK_SET_YZ |
write(fname(1:80),'(80a)') ' ' |
./pkg/ctrl/ctrl_mask_set_yz.F |
129 |
CTRL_MASK_SET_YZ |
write(fname(1:80),'(a)') ymaskobcs |
./pkg/ctrl/ctrl_mask_set_yz.F |
141 |
CTRL_MASK_SET_YZ |
call ACTIVE_WRITE_YZ( fname, gg, iobcs, 0, mythid, dummy) |
./pkg/ctrl/ctrl_mask_set_yz.F |
64 |
CTRL_MASK_SET_YZ |
character*( 80) fname |
./pkg/ctrl/ctrl_set_fname.F |
35 |
CTRL_SET_FNAME |
character*( 80) fname(2) |
./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 |
59 |
CTRL_SET_FNAME |
write(fname(1)(1:80),'(2a,i10.10)') |
./pkg/ctrl/ctrl_set_fname.F |
61 |
CTRL_SET_FNAME |
write(fname(2)(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 |
107 |
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 |
114 |
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 |
116 |
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 |
161 |
CTRL_SET_PACK_XY |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_pack_xy.F |
246 |
CTRL_SET_PACK_XY |
call MDSREADFIELD_2D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_pack_xy.F |
388 |
CTRL_SET_PACK_XY |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_pack_xy.F |
390 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
391 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
393 |
CTRL_SET_PACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
394 |
CTRL_SET_PACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
./pkg/ctrl/ctrl_set_pack_xy.F |
403 |
CTRL_SET_PACK_XY |
call READ_REC_3D_RL( fname, ctrlprec, |
./pkg/ctrl/ctrl_set_pack_xy.F |
40 |
CTRL_SET_PACK_XY |
character*( 80) fname, fnameGlobal |
./pkg/ctrl/ctrl_set_pack_xy.F |
7 |
CTRL_SET_PACK_XY |
& cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_pack_xyz.F |
170 |
CTRL_SET_PACK_XYZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_pack_xyz.F |
319 |
CTRL_SET_PACK_XYZ |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_pack_xyz.F |
321 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_ctrl_adim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
322 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_ctrl_dim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
324 |
CTRL_SET_PACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.pack_grad_adim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
325 |
CTRL_SET_PACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.pack_grad_dim' |
./pkg/ctrl/ctrl_set_pack_xyz.F |
334 |
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 |
206 |
CTRL_SET_PACK_XZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_pack_xz.F |
306 |
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 |
207 |
CTRL_SET_PACK_YZ |
call MDSREADFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_pack_yz.F |
311 |
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 |
263 |
CTRL_SET_UNPACK_XY |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_unpack_xy.F |
371 |
CTRL_SET_UNPACK_XY |
call MDSWRITEFIELD_2D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_unpack_xy.F |
41 |
CTRL_SET_UNPACK_XY |
character*( 80) fname, fnameGlobal |
./pkg/ctrl/ctrl_set_unpack_xy.F |
435 |
CTRL_SET_UNPACK_XY |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_unpack_xy.F |
437 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
438 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
440 |
CTRL_SET_UNPACK_XY |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
441 |
CTRL_SET_UNPACK_XY |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_grad_dim' |
./pkg/ctrl/ctrl_set_unpack_xy.F |
574 |
CTRL_SET_UNPACK_XY |
call WRITE_REC_3D_RL( fname, ctrlprec, |
./pkg/ctrl/ctrl_set_unpack_xy.F |
7 |
CTRL_SET_UNPACK_XY |
& lxxadxx, cunit, ivartype, fname, masktype, weighttype, |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
279 |
CTRL_SET_UNPACK_XYZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
347 |
CTRL_SET_UNPACK_XYZ |
il = ilnblnk( fname ) |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
349 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_ctrl_adim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
350 |
CTRL_SET_UNPACK_XYZ |
write(cfile3(1:80),'(2a)') fname(1:il),'.unpack_ctrl_dim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
352 |
CTRL_SET_UNPACK_XYZ |
write(cfile2(1:80),'(2a)') fname(1:il),'.unpack_grad_adim' |
./pkg/ctrl/ctrl_set_unpack_xyz.F |
353 |
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 |
495 |
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 |
290 |
CTRL_SET_UNPACK_XZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_unpack_xz.F |
374 |
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 |
290 |
CTRL_SET_UNPACK_YZ |
call MDSWRITEFIELD_3D_GL( fname, ctrlprec, 'RL', |
./pkg/ctrl/ctrl_set_unpack_yz.F |
366 |
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 |
115 |
COST_AVERAGESGENERIC |
write(fname(1:128),'(80a)') ' ' |
./pkg/ecco/cost_averagesgeneric.F |
117 |
COST_AVERAGESGENERIC |
write(fname,'(2a,i10.10)') |
./pkg/ecco/cost_averagesgeneric.F |
120 |
COST_AVERAGESGENERIC |
call ACTIVE_WRITE_XY( fname, localbar, locrec, optimcycle, |
./pkg/ecco/cost_averagesgeneric.F |
123 |
COST_AVERAGESGENERIC |
call ACTIVE_WRITE_XYZ( fname, localbar, locrec, optimcycle, |
./pkg/ecco/cost_averagesgeneric.F |
66 |
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 |
136 |
COST_GENCOST_SSHV4 |
character*(80) fname |
./pkg/ecco/cost_gencost_sshv4.F |
174 |
COST_GENCOST_SSHV4 |
write(fname(1:80),'(80a)') ' ' |
./pkg/ecco/cost_gencost_sshv4.F |
176 |
COST_GENCOST_SSHV4 |
write(fname(1:80),'(2a,i10.10)') |
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_gencost_sshv4.F |
662 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, krec, doglobalread, |
./pkg/ecco/cost_gencost_sshv4.F |
853 |
COST_GENCOST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_gencost_sstv4.F |
126 |
COST_GENCOST_SSTV4 |
write(fname(1:80),'(80a)') ' ' |
./pkg/ecco/cost_gencost_sstv4.F |
128 |
COST_GENCOST_SSTV4 |
write(fname(1:80),'(2a,i10.10)') |
./pkg/ecco/cost_gencost_sstv4.F |
164 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, sstbar, krec, doglobalread, |
./pkg/ecco/cost_gencost_sstv4.F |
302 |
COST_GENCOST_SSTV4 |
call ACTIVE_READ_XY( fname, sstbar, irec, doglobalread, |
./pkg/ecco/cost_gencost_sstv4.F |
81 |
COST_GENCOST_SSTV4 |
character*(80) fname |
./pkg/ecco/cost_ssh.F |
116 |
COST_SSH |
write(fname(1:80),'(80a)') ' ' |
./pkg/ecco/cost_ssh.F |
118 |
COST_SSH |
write(fname(1:80),'(2a,i10.10)') |
./pkg/ecco/cost_ssh.F |
142 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_ssh.F |
239 |
COST_SSH |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_ssh.F |
82 |
COST_SSH |
character*(80) fname |
./pkg/ecco/cost_ssh_new.F |
119 |
COST_SSH_NEW |
write(fname(1:80),'(80a)') ' ' |
./pkg/ecco/cost_ssh_new.F |
121 |
COST_SSH_NEW |
write(fname(1:80),'(2a,i10.10)') |
./pkg/ecco/cost_ssh_new.F |
157 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_ssh_new.F |
324 |
COST_SSH_NEW |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_ssh_new.F |
93 |
COST_SSH_NEW |
character*(80) fname |
./pkg/ecco/cost_sshv4.F |
130 |
COST_SSHV4 |
character*(80) fname |
./pkg/ecco/cost_sshv4.F |
154 |
COST_SSHV4 |
write(fname(1:80),'(80a)') ' ' |
./pkg/ecco/cost_sshv4.F |
156 |
COST_SSHV4 |
write(fname(1:80),'(2a,i10.10)') |
./pkg/ecco/cost_sshv4.F |
338 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |
./pkg/ecco/cost_sshv4.F |
641 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, krec, doglobalread, |
./pkg/ecco/cost_sshv4.F |
832 |
COST_SSHV4 |
call ACTIVE_READ_XY( fname, psbar, irec, doglobalread, |