| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_facef_read.F |
119 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_facef_read.F |
17 |
MDS_FACEF_READ_RS |
I fName, fPrec, irec, |
|
./pkg/mdsio/mdsio_facef_read.F |
41 |
MDS_FACEF_READ_RS |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_facef_read.F |
68 |
MDS_FACEF_READ_RS |
iLen = ILNBLNK(fName) |
|
./pkg/mdsio/mdsio_facef_read.F |
81 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1169 |
MDSWRITEFIELD_2D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
116 |
MDSREADFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1221 |
MDSWRITEFIELD_2D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
123 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1289 |
MDSWRITEFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
1296 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1314 |
MDSWRITEFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1381 |
MDSWRITEFIELD_2D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
139 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
1419 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
145 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
1495 |
MDSWRITEFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
16 |
MDSREADFIELD_3D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
177 |
MDSREADFIELD_3D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
188 |
MDSREADFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
225 |
MDSREADFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
408 |
MDSWRITEFIELD_3D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
460 |
MDSWRITEFIELD_3D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
527 |
MDSWRITEFIELD_3D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
534 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
58 |
MDSREADFIELD_3D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
618 |
MDSWRITEFIELD_3D_GL |
write(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
656 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl.F |
732 |
MDSWRITEFIELD_3D_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl.F |
776 |
MDSREADFIELD_2D_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl.F |
818 |
MDSREADFIELD_2D_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl.F |
877 |
MDSREADFIELD_2D_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl.F |
884 |
MDSREADFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
901 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
907 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
938 |
MDSREADFIELD_2D_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl.F |
949 |
MDSREADFIELD_2D_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl.F |
986 |
MDSREADFIELD_2D_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
100 |
MDSREADFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
106 |
MDSREADFIELD_XZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
117 |
MDSREADFIELD_XZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
139 |
MDSREADFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
16 |
MDSREADFIELD_XZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
244 |
MDSREADFIELD_YZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
286 |
MDSREADFIELD_YZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
328 |
MDSREADFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
334 |
MDSREADFIELD_YZ_GL |
dataFName = fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
345 |
MDSREADFIELD_YZ_GL |
write(dataFname,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
366 |
MDSREADFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
471 |
MDSWRITEFIELD_XZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
523 |
MDSWRITEFIELD_XZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
573 |
MDSWRITEFIELD_XZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
589 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
58 |
MDSREADFIELD_XZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
662 |
MDSWRITEFIELD_XZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_gl_slice.F |
699 |
MDSWRITEFIELD_YZ_GL |
I fName, |
|
./pkg/mdsio/mdsio_gl_slice.F |
751 |
MDSWRITEFIELD_YZ_GL |
character*(*) fName |
|
./pkg/mdsio/mdsio_gl_slice.F |
801 |
MDSWRITEFIELD_YZ_GL |
IL=ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
817 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_gl_slice.F |
890 |
MDSWRITEFIELD_YZ_GL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_read_field.F |
10 |
MDS_READ_FIELD |
I fName, |
|
./pkg/mdsio/mdsio_read_field.F |
137 |
MDS_READ_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_field.F |
147 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
163 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
180 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: file="', fName(1:IL), '"' |
|
./pkg/mdsio/mdsio_read_field.F |
204 |
MDS_READ_FIELD |
pfName= fName |
|
./pkg/mdsio/mdsio_read_field.F |
206 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
214 |
MDS_READ_FIELD |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_field.F |
230 |
MDS_READ_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_field.F |
459 |
MDS_READ_FIELD |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_field.F |
82 |
MDS_READ_FIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_section.F |
114 |
MDS_READ_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
119 |
MDS_READ_SEC_XZ |
pfName= fName |
|
./pkg/mdsio/mdsio_read_section.F |
121 |
MDS_READ_SEC_XZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
129 |
MDS_READ_SEC_XZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
143 |
MDS_READ_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
17 |
MDS_READ_SEC_XZ |
I fName, |
|
./pkg/mdsio/mdsio_read_section.F |
190 |
MDS_READ_SEC_XZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
294 |
MDS_READ_SEC_YZ |
I fName, |
|
./pkg/mdsio/mdsio_read_section.F |
343 |
MDS_READ_SEC_YZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_section.F |
392 |
MDS_READ_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_section.F |
397 |
MDS_READ_SEC_YZ |
pfName= fName |
|
./pkg/mdsio/mdsio_read_section.F |
399 |
MDS_READ_SEC_YZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
407 |
MDS_READ_SEC_YZ |
dataFName = fName |
|
./pkg/mdsio/mdsio_read_section.F |
421 |
MDS_READ_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_read_section.F |
468 |
MDS_READ_SEC_YZ |
& fName(1:IL),' , ', dataFName(1:pIL+13) |
|
./pkg/mdsio/mdsio_read_section.F |
66 |
MDS_READ_SEC_XZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_read_whalos.F |
10 |
MDS_READ_WHALOS |
I fName, |
|
./pkg/mdsio/mdsio_read_whalos.F |
111 |
MDS_READ_WHALOS |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
114 |
MDS_READ_WHALOS |
pfName = fName |
|
./pkg/mdsio/mdsio_read_whalos.F |
116 |
MDS_READ_WHALOS |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_whalos.F |
54 |
MDS_READ_WHALOS |
character*(*) fName |
|
./pkg/mdsio/mdsio_readvec_loc.F |
109 |
MDS_READVEC_LOC |
& ' MDS_READVEC_LOC: reading from file "', fName(1:IL), '":' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
10 |
MDS_READVEC_LOC |
I fName, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
133 |
MDS_READVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
136 |
MDS_READVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
146 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
154 |
MDS_READVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvec_loc.F |
60 |
MDS_READVEC_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_readvec_loc.F |
92 |
MDS_READVEC_LOC |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_readvector.F |
102 |
MDSREADVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvector.F |
104 |
MDSREADVECTOR |
pfName= fName |
|
./pkg/mdsio/mdsio_readvector.F |
114 |
MDSREADVECTOR |
dataFName = fName |
|
./pkg/mdsio/mdsio_readvector.F |
128 |
MDSREADVECTOR |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
175 |
MDSREADVECTOR |
& ' MDSREADVECTOR: opening file: ',fName(1:IL), |
|
./pkg/mdsio/mdsio_readvector.F |
242 |
MDSREADVECTOR |
dataFName = fName |
|
./pkg/mdsio/mdsio_readvector.F |
248 |
MDSREADVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_readvector.F |
43 |
MDSREADVECTOR |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_readvector.F |
7 |
MDSREADVECTOR |
I fName, |
|
./pkg/mdsio/mdsio_readvector.F |
96 |
MDSREADVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_rw_field.F |
115 |
MDSREADFIELD_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
130 |
MDSREADFIELD_LOC |
I fName, filePrec, .TRUE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
135 |
MDSREADFIELD_LOC |
I fName, filePrec, .TRUE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
150 |
MDSWRITEFIELD |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
185 |
MDSWRITEFIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
18 |
MDSREADFIELD |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
202 |
MDSWRITEFIELD |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_field.F |
207 |
MDSWRITEFIELD |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_field.F |
222 |
MDSWRITEFIELD_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_field.F |
257 |
MDSWRITEFIELD_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
274 |
MDSWRITEFIELD_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_field.F |
279 |
MDSWRITEFIELD_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_field.F |
49 |
MDSREADFIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_field.F |
64 |
MDSREADFIELD |
I fName, filePrec, .FALSE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
69 |
MDSREADFIELD |
I fName, filePrec, .FALSE., arrType, nNz, 1, nNz, |
|
./pkg/mdsio/mdsio_rw_field.F |
84 |
MDSREADFIELD_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
117 |
MDSREADFIELDYZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
132 |
MDSREADFIELDYZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
137 |
MDSREADFIELDYZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
152 |
MDSREADFIELDXZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
182 |
MDSREADFIELDXZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
197 |
MDSREADFIELDXZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
202 |
MDSREADFIELDXZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
217 |
MDSREADFIELDYZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
22 |
MDSREADFIELDXZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
247 |
MDSREADFIELDYZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
262 |
MDSREADFIELDYZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
267 |
MDSREADFIELDYZ_LOC |
I fName, filePrec, .TRUE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
282 |
MDSWRITEFIELDXZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
316 |
MDSWRITEFIELDXZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
333 |
MDSWRITEFIELDXZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
338 |
MDSWRITEFIELDXZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
353 |
MDSWRITEFIELDYZ |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
387 |
MDSWRITEFIELDYZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
404 |
MDSWRITEFIELDYZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
409 |
MDSWRITEFIELDYZ |
I fName, filePrec, globalFile, .FALSE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
424 |
MDSWRITEFIELDXZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
458 |
MDSWRITEFIELDXZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
475 |
MDSWRITEFIELDXZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
480 |
MDSWRITEFIELDXZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
495 |
MDSWRITEFIELDYZ_LOC |
I fName, |
|
./pkg/mdsio/mdsio_rw_slice.F |
529 |
MDSWRITEFIELDYZ_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
52 |
MDSREADFIELDXZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_rw_slice.F |
546 |
MDSWRITEFIELDYZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
551 |
MDSWRITEFIELDYZ_LOC |
I fName, filePrec, globalFile, .TRUE., |
|
./pkg/mdsio/mdsio_rw_slice.F |
67 |
MDSREADFIELDXZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
72 |
MDSREADFIELDXZ |
I fName, filePrec, .FALSE., arrType, nNz, |
|
./pkg/mdsio/mdsio_rw_slice.F |
87 |
MDSREADFIELDYZ |
I fName, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
11 |
MDS_WR_METAFILES |
I fName, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
120 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
121 |
MDS_WR_METAFILES |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
122 |
MDS_WR_METAFILES |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
146 |
MDS_WR_METAFILES |
pfName = fName |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
148 |
MDS_WR_METAFILES |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
149 |
MDS_WR_METAFILES |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
72 |
MDS_WR_METAFILES |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_field.F |
10 |
MDS_WRITE_FIELD |
I fName, |
|
./pkg/mdsio/mdsio_write_field.F |
163 |
MDS_WRITE_FIELD |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_field.F |
175 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
191 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
208 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_write_field.F |
232 |
MDS_WRITE_FIELD |
pfName = fName |
|
./pkg/mdsio/mdsio_write_field.F |
234 |
MDS_WRITE_FIELD |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_field.F |
250 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
402 |
MDS_WRITE_FIELD |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_field.F |
554 |
MDS_WRITE_FIELD |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_write_field.F |
95 |
MDS_WRITE_FIELD |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_section.F |
120 |
MDS_WRITE_SEC_XZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
125 |
MDS_WRITE_SEC_XZ |
pfName= fName |
|
./pkg/mdsio/mdsio_write_section.F |
127 |
MDS_WRITE_SEC_XZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
136 |
MDS_WRITE_SEC_XZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
17 |
MDS_WRITE_SEC_XZ |
I fName, |
|
./pkg/mdsio/mdsio_write_section.F |
271 |
MDS_WRITE_SEC_YZ |
I fName, |
|
./pkg/mdsio/mdsio_write_section.F |
325 |
MDS_WRITE_SEC_YZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_section.F |
373 |
MDS_WRITE_SEC_YZ |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_section.F |
378 |
MDS_WRITE_SEC_YZ |
pfName= fName |
|
./pkg/mdsio/mdsio_write_section.F |
380 |
MDS_WRITE_SEC_YZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
389 |
MDS_WRITE_SEC_YZ |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_write_section.F |
71 |
MDS_WRITE_SEC_XZ |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_write_whalos.F |
10 |
MDS_WRITE_WHALOS |
I fName, |
|
./pkg/mdsio/mdsio_write_whalos.F |
113 |
MDS_WRITE_WHALOS |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
116 |
MDS_WRITE_WHALOS |
pfName = fName |
|
./pkg/mdsio/mdsio_write_whalos.F |
118 |
MDS_WRITE_WHALOS |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_whalos.F |
54 |
MDS_WRITE_WHALOS |
character*(*) fName |
|
./pkg/mdsio/mdsio_writelocal.F |
10 |
MDS_WRITELOCAL |
I fName, |
|
./pkg/mdsio/mdsio_writelocal.F |
148 |
MDS_WRITELOCAL |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writelocal.F |
172 |
MDS_WRITELOCAL |
& 'MDS_WRITELOCAL: => write tiled file: ', fName(1:IL) |
|
./pkg/mdsio/mdsio_writelocal.F |
181 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
196 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: file="', fName(1:IL), '" , iter=', myIter |
|
./pkg/mdsio/mdsio_writelocal.F |
269 |
MDS_WRITELOCAL |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
350 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./pkg/mdsio/mdsio_writelocal.F |
384 |
MDS_WRITELOCAL |
& fName(1:IL),'.',iG,'.',jG,'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
415 |
MDS_WRITELOCAL |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writelocal.F |
88 |
MDS_WRITELOCAL |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_writevec_loc.F |
103 |
MDS_WRITEVEC_LOC |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
10 |
MDS_WRITEVEC_LOC |
I fName, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
121 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: writing to file "', fName(1:IL), '":' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
138 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
141 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(A)') fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
158 |
MDS_WRITEVEC_LOC |
WRITE(dataFname,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
218 |
MDS_WRITEVEC_LOC |
WRITE(metaFname,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevec_loc.F |
61 |
MDS_WRITEVEC_LOC |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_writevector.F |
116 |
MDSWRITEVECTOR |
IL = ILNBLNK( fName ) |
|
./pkg/mdsio/mdsio_writevector.F |
122 |
MDSWRITEVECTOR |
& mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevector.F |
124 |
MDSWRITEVECTOR |
pfName= fName |
|
./pkg/mdsio/mdsio_writevector.F |
140 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2a)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
215 |
MDSWRITEVECTOR |
WRITE(metaFName,'(2a)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
241 |
MDSWRITEVECTOR |
WRITE(dataFName,'(2A)') fName(1:IL),'.data' |
|
./pkg/mdsio/mdsio_writevector.F |
343 |
MDSWRITEVECTOR |
WRITE(metaFName,'(2A)') fName(1:IL),'.meta' |
|
./pkg/mdsio/mdsio_writevector.F |
49 |
MDSWRITEVECTOR |
CHARACTER*(*) fName |
|
./pkg/mdsio/mdsio_writevector.F |
7 |
MDSWRITEVECTOR |
I fName, |
|
./pkg/rw/read_mflds.F |
141 |
READ_MFLDS_SET |
mFldsFile = fName |
|
./pkg/rw/read_mflds.F |
153 |
READ_MFLDS_SET |
I fName, |
|
./pkg/rw/read_mflds.F |
283 |
READ_MFLDS_3D_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_mflds.F |
341 |
READ_MFLDS_3D_RL |
fName = mFldsFile |
|
./pkg/rw/read_mflds.F |
346 |
READ_MFLDS_3D_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_mflds.F |
410 |
READ_MFLDS_LEV_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_mflds.F |
468 |
READ_MFLDS_LEV_RL |
fName = mFldsFile |
|
./pkg/rw/read_mflds.F |
473 |
READ_MFLDS_LEV_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_mflds.F |
62 |
READ_MFLDS_SET |
I fName, |
|
./pkg/rw/read_mflds.F |
89 |
READ_MFLDS_SET |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/read_rec.F |
127 |
READ_REC_XY_RL |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
139 |
READ_REC_XYZ_RS |
SUBROUTINE READ_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
155 |
READ_REC_XYZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
187 |
READ_REC_XYZ_RS |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
199 |
READ_REC_XYZ_RL |
SUBROUTINE READ_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
215 |
READ_REC_XYZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
247 |
READ_REC_XYZ_RL |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
24 |
READ_REC_XY_RS |
SUBROUTINE READ_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
260 |
READ_REC_3D_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
279 |
READ_REC_3D_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
311 |
READ_REC_3D_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
324 |
READ_REC_3D_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
343 |
READ_REC_3D_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
375 |
READ_REC_3D_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
37 |
READ_REC_XY_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
388 |
READ_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
408 |
READ_REC_LEV_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
440 |
READ_REC_LEV_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
453 |
READ_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, |
|
./pkg/rw/read_rec.F |
473 |
READ_REC_LEV_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
505 |
READ_REC_LEV_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
518 |
READ_REC_XZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
535 |
READ_REC_XZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
566 |
READ_REC_XZ_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
579 |
READ_REC_XZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
597 |
READ_REC_XZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
628 |
READ_REC_XZ_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
641 |
READ_REC_YZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
659 |
READ_REC_YZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
68 |
READ_REC_XY_RS |
I fName, readBinaryPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
691 |
READ_REC_YZ_RS |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
704 |
READ_REC_YZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/read_rec.F |
722 |
READ_REC_YZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/read_rec.F |
754 |
READ_REC_YZ_RL |
I fName, fPrec, useCurrentDir, |
|
./pkg/rw/read_rec.F |
80 |
READ_REC_XY_RL |
SUBROUTINE READ_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/read_rec.F |
96 |
READ_REC_XY_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_fld_s3d_rl.F |
102 |
WRITE_FLD_S3D_RL |
I fName, fPrec, kSiz, 1, nNz, locVar, |
|
./pkg/rw/write_fld_s3d_rl.F |
55 |
WRITE_FLD_S3D_RL |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/write_fld_s3d_rl.F |
78 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rl.F |
80 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rl.F |
84 |
WRITE_FLD_S3D_RL |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
102 |
WRITE_FLD_S3D_RS |
I fName, fPrec, kSiz, 1, nNz, locVar, |
|
./pkg/rw/write_fld_s3d_rs.F |
55 |
WRITE_FLD_S3D_RS |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/rw/write_fld_s3d_rs.F |
78 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A)' ) pref(s1Lo:s1Hi) |
|
./pkg/rw/write_fld_s3d_rs.F |
80 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A,I10.10)' ) pref(s1Lo:s1Hi),'.',myIter |
|
./pkg/rw/write_fld_s3d_rs.F |
84 |
WRITE_FLD_S3D_RS |
WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi) |
|
./pkg/rw/write_rec.F |
100 |
WRITE_REC_XY_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
136 |
WRITE_REC_XY_RS |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
148 |
WRITE_REC_XY_RL |
SUBROUTINE WRITE_REC_XY_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
164 |
WRITE_REC_XY_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
200 |
WRITE_REC_XY_RL |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
212 |
WRITE_REC_XYZ_RS |
SUBROUTINE WRITE_REC_XYZ_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
228 |
WRITE_REC_XYZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
264 |
WRITE_REC_XYZ_RS |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
276 |
WRITE_REC_XYZ_RL |
SUBROUTINE WRITE_REC_XYZ_RL( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
292 |
WRITE_REC_XYZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
328 |
WRITE_REC_XYZ_RL |
I fName, writeBinaryPrec, |
|
./pkg/rw/write_rec.F |
341 |
WRITE_REC_3D_RS |
I fName, fPrec, nNz, field, |
|
./pkg/rw/write_rec.F |
359 |
WRITE_REC_3D_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
395 |
WRITE_REC_3D_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
407 |
WRITE_REC_3D_RL |
I fName, fPrec, nNz, field, |
|
./pkg/rw/write_rec.F |
425 |
WRITE_REC_3D_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
461 |
WRITE_REC_3D_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
473 |
WRITE_REC_LEV_RS |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
492 |
WRITE_REC_LEV_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
528 |
WRITE_REC_LEV_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
540 |
WRITE_REC_LEV_RL |
I fName, fPrec, kSiz, kLo, kHi, field, |
|
./pkg/rw/write_rec.F |
559 |
WRITE_REC_LEV_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
595 |
WRITE_REC_LEV_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
607 |
WRITE_REC_XZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
624 |
WRITE_REC_XZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
659 |
WRITE_REC_XZ_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
672 |
WRITE_REC_XZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
690 |
WRITE_REC_XZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
725 |
WRITE_REC_XZ_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
738 |
WRITE_REC_YZ_RS |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
756 |
WRITE_REC_YZ_RS |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
792 |
WRITE_REC_YZ_RS |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/rw/write_rec.F |
805 |
WRITE_REC_YZ_RL |
I fName, fPrec, nNz, |
|
./pkg/rw/write_rec.F |
823 |
WRITE_REC_YZ_RL |
CHARACTER*(*) fName |
|
./pkg/rw/write_rec.F |
84 |
WRITE_REC_XY_RS |
SUBROUTINE WRITE_REC_XY_RS( fName,field,iRec,myIter,myThid ) |
|
./pkg/rw/write_rec.F |
859 |
WRITE_REC_YZ_RL |
I fName, fPrec, globalFile, useCurrentDir, |
|
./pkg/sbo/sbo_output.F |
35 |
SBO_OUTPUT |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/sbo/sbo_output.F |
86 |
SBO_OUTPUT |
WRITE(fName,'(A,I10.10)') 'SBO_global.', nIter0 |
|
./pkg/sbo/sbo_output.F |
89 |
SBO_OUTPUT |
I fName, precFloat64, ioUnit, |
|
./model/src/ini_cori.F |
160 |
INI_CORI |
WRITE(fName,'(2A,I3.3,A)') 'fCoriG','.face',iG,'.bin' |
|
./model/src/ini_cori.F |
161 |
INI_CORI |
iLen = ILNBLNK(fName) |
|
./model/src/ini_cori.F |
163 |
INI_CORI |
& ' Reading tile:', myTile, ' from file ', fName(1:iLen) |
|
./model/src/ini_cori.F |
167 |
INI_CORI |
CALL MDS_FACEF_READ_RS( fName, readBinaryPrec, 1, |
|
./model/src/ini_cori.F |
50 |
INI_CORI |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./model/src/ini_curvilinear_grid.F |
298 |
INI_CURVILINEAR_GRID |
WRITE(fName,'("tile",I3.3,".mitgrid")') iG |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
WRITE(fName,'(2A,I3.3,A)') horizGridFile(1:iLen), |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
iLen = ILNBLNK(fName) |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
& ' ; Read from file ',fName(1:iLen) |
|
./model/src/ini_curvilinear_grid.F |
312 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 1, xC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
315 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 2, yC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
318 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
321 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
327 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 6, xG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
330 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 7, yG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
333 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
336 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
339 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
342 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
345 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
348 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
351 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
354 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
357 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
363 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
366 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid) |
|
./model/src/ini_curvilinear_grid.F |
57 |
INI_CURVILINEAR_GRID |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./verification/flt_example/extra/cvprofiles.F |
124 |
NO PROCEDURE |
IL=ILNBLNK( fName ) |
|
./verification/flt_example/extra/cvprofiles.F |
131 |
NO PROCEDURE |
& fName(1:IL),'.',iGmax,'.',1,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
139 |
NO PROCEDURE |
& fName(1:IL),'.',1,'.',jGmax,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
156 |
NO PROCEDURE |
& fName(1:IL),'.001.001.data' |
|
./verification/flt_example/extra/cvprofiles.F |
258 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
546 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
576 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
606 |
NO PROCEDURE |
& fName(1:IL),'.',iG,'.',jG,'.data' |
|
./verification/flt_example/extra/cvprofiles.F |
78 |
NO PROCEDURE |
character*50 fName, outname |
|
./verification/flt_example/extra/cvprofiles.F |
79 |
NO PROCEDURE |
data fName / 'float_profiles' / |
|
./verification/flt_example/extra/cvprofiles.F |
85 |
NO PROCEDURE |
namelist //floats fName |
|
./pkg/exch2/w2_eeboot.F |
100 |
W2_EEBOOT |
WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen) |
|
./pkg/exch2/w2_eeboot.F |
40 |
W2_EEBOOT |
CHARACTER*(MAX_LEN_FNAM) fName |
|
./pkg/exch2/w2_eeboot.F |
94 |
W2_EEBOOT |
WRITE(fName,'(A,I4.4,A)') |
|
./pkg/exch2/w2_eeboot.F |
96 |
W2_EEBOOT |
iLen = ILNBLNK(fName) |
|
./pkg/exch2/w2_eeboot.F |
98 |
W2_EEBOOT |
OPEN( W2_oUnit, file=fName(1:iLen), |