| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mdsreadvector.F |
147 |
FLT_MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
173 |
FLT_MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/flt/flt_mdsreadvector.F |
188 |
FLT_MDSREADVECTOR |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/flt/flt_mdsreadvector.F |
18 |
FLT_MDSREADVECTOR |
I filePrec, |
|
./pkg/flt/flt_mdsreadvector.F |
193 |
FLT_MDSREADVECTOR |
& ' FLT_MDSREADVECTOR: not yet coded for filePrec=',filePrec |
|
./pkg/flt/flt_mdsreadvector.F |
196 |
FLT_MDSREADVECTOR |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/flt/flt_mdsreadvector.F |
56 |
FLT_MDSREADVECTOR |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_gl.F |
1030 |
MDSREADFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1045 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1106 |
MDSREADFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1116 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1170 |
MDSWRITEFIELD_2D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
1222 |
MDSWRITEFIELD_2D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
1315 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN(filePrec,x_size*y_size,mythid) |
|
./pkg/mdsio/mdsio_gl.F |
1347 |
MDSWRITEFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1357 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1397 |
MDSWRITEFIELD_2D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
1421 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1426 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1440 |
MDSWRITEFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1455 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1511 |
MDSWRITEFIELD_2D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
153 |
MDSREADFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, x_size*y_size, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
17 |
MDSREADFIELD_3D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
208 |
MDSREADFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
236 |
MDSREADFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
269 |
MDSREADFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
284 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
345 |
MDSREADFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
355 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
409 |
MDSWRITEFIELD_3D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
461 |
MDSWRITEFIELD_3D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
552 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN(filePrec,x_size*y_size,mythid) |
|
./pkg/mdsio/mdsio_gl.F |
584 |
MDSWRITEFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
594 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
59 |
MDSREADFIELD_3D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
634 |
MDSWRITEFIELD_3D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
658 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
663 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
677 |
MDSWRITEFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
692 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
748 |
MDSWRITEFIELD_3D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
777 |
MDSREADFIELD_2D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
819 |
MDSREADFIELD_2D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
915 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, x_size*y_size, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
969 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
997 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
150 |
MDSREADFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
172 |
MDSREADFIELD_XZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
17 |
MDSREADFIELD_XZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
187 |
MDSREADFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
245 |
MDSREADFIELD_YZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
287 |
MDSREADFIELD_YZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
377 |
MDSREADFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
399 |
MDSREADFIELD_YZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
414 |
MDSREADFIELD_YZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
472 |
MDSWRITEFIELD_XZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
524 |
MDSWRITEFIELD_XZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
591 |
MDSWRITEFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
596 |
MDSWRITEFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
59 |
MDSREADFIELD_XZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
609 |
MDSWRITEFIELD_XZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
624 |
MDSWRITEFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
678 |
MDSWRITEFIELD_XZ_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl_slice.F |
700 |
MDSWRITEFIELD_YZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
752 |
MDSWRITEFIELD_YZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
819 |
MDSWRITEFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
824 |
MDSWRITEFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
837 |
MDSWRITEFIELD_YZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
852 |
MDSWRITEFIELD_YZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
906 |
MDSWRITEFIELD_YZ_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_read_field.F |
11 |
MDS_READ_FIELD |
I filePrec, |
|
./pkg/mdsio/mdsio_read_field.F |
248 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
272 |
MDS_READ_FIELD |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
290 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
311 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
360 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
413 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
443 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
465 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
491 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
505 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
519 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
74 |
MDS_READ_FIELD |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_meta.F |
102 |
MDS_READ_META |
filePrec = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
13 |
MDS_READ_META |
O filePrec, |
|
./pkg/mdsio/mdsio_read_meta.F |
275 |
MDS_READ_META |
filePrec = precFloat32 |
|
./pkg/mdsio/mdsio_read_meta.F |
277 |
MDS_READ_META |
filePrec = precFloat64 |
|
./pkg/mdsio/mdsio_read_meta.F |
287 |
MDS_READ_META |
IF ( filePrec.EQ.0 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
290 |
MDS_READ_META |
filePrec = precFloat32 |
|
./pkg/mdsio/mdsio_read_meta.F |
292 |
MDS_READ_META |
filePrec = precFloat64 |
|
./pkg/mdsio/mdsio_read_meta.F |
61 |
MDS_READ_META |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_section.F |
150 |
MDS_READ_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
175 |
MDS_READ_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
18 |
MDS_READ_SEC_XZ |
I filePrec, |
|
./pkg/mdsio/mdsio_read_section.F |
204 |
MDS_READ_SEC_XZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
221 |
MDS_READ_SEC_XZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
274 |
MDS_READ_SEC_YZ |
I filePrec, |
|
./pkg/mdsio/mdsio_read_section.F |
318 |
MDS_READ_SEC_YZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_section.F |
406 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
431 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
460 |
MDS_READ_SEC_YZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
477 |
MDS_READ_SEC_YZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
62 |
MDS_READ_SEC_XZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_readvector.F |
143 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
168 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
197 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
200 |
MDSREADVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
256 |
MDSREADVECTOR |
length_of_rec=MDS_RECLEN( filePrec, vec_size, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
286 |
MDSREADVECTOR |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
298 |
MDSREADVECTOR |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
44 |
MDSREADVECTOR |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_readvector.F |
8 |
MDSREADVECTOR |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_field.F |
116 |
MDSREADFIELD_LOC |
INTEGER filePrec |
|
./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 |
151 |
MDSWRITEFIELD |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_field.F |
186 |
MDSWRITEFIELD |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_rw_field.F |
19 |
MDSREADFIELD |
I filePrec, |
|
./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 |
223 |
MDSWRITEFIELD_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_field.F |
258 |
MDSWRITEFIELD_LOC |
INTEGER filePrec |
|
./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 |
50 |
MDSREADFIELD |
INTEGER filePrec |
|
./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 |
85 |
MDSREADFIELD_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
118 |
MDSREADFIELDYZ |
INTEGER filePrec |
|
./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 |
153 |
MDSREADFIELDXZ_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
183 |
MDSREADFIELDXZ_LOC |
INTEGER filePrec |
|
./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 |
218 |
MDSREADFIELDYZ_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
23 |
MDSREADFIELDXZ |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
248 |
MDSREADFIELDYZ_LOC |
INTEGER filePrec |
|
./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 |
283 |
MDSWRITEFIELDXZ |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
317 |
MDSWRITEFIELDXZ |
INTEGER filePrec |
|
./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 |
354 |
MDSWRITEFIELDYZ |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
388 |
MDSWRITEFIELDYZ |
INTEGER filePrec |
|
./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 |
425 |
MDSWRITEFIELDXZ_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
459 |
MDSWRITEFIELDXZ_LOC |
INTEGER filePrec |
|
./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 |
496 |
MDSWRITEFIELDYZ_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_rw_slice.F |
530 |
MDSWRITEFIELDYZ_LOC |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_rw_slice.F |
53 |
MDSREADFIELDXZ |
INTEGER filePrec |
|
./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 |
88 |
MDSREADFIELDYZ |
I filePrec, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
12 |
MDS_WR_METAFILES |
I filePrec, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
138 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
207 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
73 |
MDS_WR_METAFILES |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
11 |
MDS_WRITE_FIELD |
I filePrec, |
|
./pkg/mdsio/mdsio_write_field.F |
241 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
255 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
276 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
300 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: illegal value for filePrec=',filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
311 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
337 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
351 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
367 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: illegal value for filePrec=',filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
380 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
390 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
445 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
462 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
475 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
514 |
MDS_WRITE_FIELD |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_field.F |
560 |
MDS_WRITE_FIELD |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_field.F |
86 |
MDS_WRITE_FIELD |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_meta.F |
144 |
MDS_WRITE_META |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
146 |
MDS_WRITE_META |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
14 |
MDS_WRITE_META |
I filePrec, |
|
./pkg/mdsio/mdsio_write_meta.F |
57 |
MDS_WRITE_META |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_section.F |
129 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
134 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
151 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
156 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
174 |
MDS_WRITE_SEC_XZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
18 |
MDS_WRITE_SEC_XZ |
I filePrec, |
|
./pkg/mdsio/mdsio_write_section.F |
191 |
MDS_WRITE_SEC_XZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
250 |
MDS_WRITE_SEC_YZ |
I filePrec, |
|
./pkg/mdsio/mdsio_write_section.F |
299 |
MDS_WRITE_SEC_YZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_section.F |
361 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
366 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
383 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
388 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
406 |
MDS_WRITE_SEC_YZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
423 |
MDS_WRITE_SEC_YZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
67 |
MDS_WRITE_SEC_XZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_writelocal.F |
11 |
MDS_WRITELOCAL |
I filePrec, |
|
./pkg/mdsio/mdsio_writelocal.F |
216 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
229 |
MDS_WRITELOCAL |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
265 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
284 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
329 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
346 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
359 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
395 |
MDS_WRITELOCAL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writelocal.F |
426 |
MDS_WRITELOCAL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writelocal.F |
88 |
MDS_WRITELOCAL |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_writevec_loc.F |
11 |
MDS_WRITEVEC_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
163 |
MDS_WRITEVEC_LOC |
length_of_rec=MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
185 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
188 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
240 |
MDS_WRITEVEC_LOC |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
59 |
MDS_WRITEVEC_LOC |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_writevector.F |
141 |
MDSWRITEVECTOR |
length_of_rec=MDS_RECLEN(filePrec,vec_size,myThid) |
|
./pkg/mdsio/mdsio_writevector.F |
176 |
MDSWRITEVECTOR |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
188 |
MDSWRITEVECTOR |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
228 |
MDSWRITEVECTOR |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writevector.F |
243 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
248 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
265 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
270 |
MDSWRITEVECTOR |
length_of_rec = MDS_RECLEN( filePrec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
289 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
292 |
MDSWRITEVECTOR |
I filePrec, dUnit, irec, narr, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
328 |
MDSWRITEVECTOR |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writevector.F |
356 |
MDSWRITEVECTOR |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writevector.F |
50 |
MDSWRITEVECTOR |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_writevector.F |
8 |
MDSWRITEVECTOR |
I filePrec, |
|
./pkg/mypackage/mypackage_read_pickup.F |
45 |
MYPACKAGE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/mypackage/mypackage_read_pickup.F |
65 |
MYPACKAGE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/mypackage/mypackage_read_pickup.F |
69 |
MYPACKAGE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
74 |
MYPACKAGE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/ptracers/ptracers_read_pickup.F |
113 |
PTRACERS_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/ptracers/ptracers_read_pickup.F |
117 |
PTRACERS_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN |
|
./pkg/ptracers/ptracers_read_pickup.F |
122 |
PTRACERS_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', prec |
|
./pkg/ptracers/ptracers_read_pickup.F |
52 |
PTRACERS_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/rw/read_mflds.F |
121 |
READ_MFLDS_SET |
filePrec = 0 |
|
./pkg/rw/read_mflds.F |
156 |
READ_MFLDS_SET |
O filePrec, |
|
./pkg/rw/read_mflds.F |
199 |
READ_MFLDS_SET |
& ' nRecords =', nRecords, ' ; filePrec =', filePrec, |
|
./pkg/rw/read_mflds.F |
63 |
READ_MFLDS_SET |
O nbFields, filePrec, |
|
./pkg/rw/read_mflds.F |
91 |
READ_MFLDS_SET |
INTEGER filePrec |
|
./pkg/seaice/seaice_read_pickup.F |
49 |
SEAICE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/seaice/seaice_read_pickup.F |
73 |
SEAICE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/seaice/seaice_read_pickup.F |
77 |
SEAICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
82 |
SEAICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
23 |
NO PROCEDURE |
integer filePrec |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
31 |
NO PROCEDURE |
if (filePrec .EQ. precFloat32) then |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
33 |
NO PROCEDURE |
elseif (filePrec .EQ. precFloat64) then |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
37 |
NO PROCEDURE |
& ' MDS_RECLEN: filePrec = ',filePrec |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
50 |
AD_S_MDS_RECLEN |
subroutine AD_S_MDS_RECLEN( filePrec, nnn, mythid, reclen ) |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
67 |
AD_S_MDS_RECLEN |
integer filePrec |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
6 |
NO PROCEDURE |
integer function MDS_RECLEN( filePrec, nnn, mythid ) |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
76 |
AD_S_MDS_RECLEN |
if (filePrec .EQ. precFloat32) then |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
78 |
AD_S_MDS_RECLEN |
elseif (filePrec .EQ. precFloat64) then |
|
./verification/OpenAD/code_ad_openad/mds_reclen.F |
82 |
AD_S_MDS_RECLEN |
& ' MDS_RECLEN: filePrec = ',filePrec |
|
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F |
20 |
OAD_S_MDS_RECLEN |
integer filePrec |
|
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F |
29 |
OAD_S_MDS_RECLEN |
if (filePrec .EQ. precFloat32) then |
|
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F |
31 |
OAD_S_MDS_RECLEN |
elseif (filePrec .EQ. precFloat64) then |
|
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F |
35 |
OAD_S_MDS_RECLEN |
& ' MDS_RECLEN: filePrec = ',filePrec |
|
./verification/OpenAD/code_oad_all/ad_s_mds_reclen.F |
3 |
OAD_S_MDS_RECLEN |
subroutine OAD_S_MDS_RECLEN( filePrec, nnn, mythid, reclen ) |
|
./model/src/read_pickup.F |
104 |
READ_PICKUP |
O nbFields, filePrec, |
|
./model/src/read_pickup.F |
109 |
READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./model/src/read_pickup.F |
114 |
READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./model/src/read_pickup.F |
62 |
READ_PICKUP |
INTEGER filePrec, nbFields |
|
./eesupp/src/mds_reclen.F |
23 |
NO PROCEDURE |
INTEGER filePrec |
|
./eesupp/src/mds_reclen.F |
31 |
NO PROCEDURE |
IF (filePrec .EQ. precFloat32) THEN |
|
./eesupp/src/mds_reclen.F |
33 |
NO PROCEDURE |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./eesupp/src/mds_reclen.F |
37 |
NO PROCEDURE |
& ' MDS_RECLEN: filePrec = ',filePrec |
|
./eesupp/src/mds_reclen.F |
6 |
NO PROCEDURE |
INTEGER FUNCTION MDS_RECLEN( filePrec, nnn, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
44 |
CHEAPAML_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
66 |
CHEAPAML_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
70 |
CHEAPAML_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
75 |
CHEAPAML_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/debug/write_fullarray_rl.F |
116 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
52 |
WRITE_FULLARRAY_RL |
INTEGER s1Lo,s1Hi, dUnit, filePrec, length_of_rec, kRec |
|
./pkg/debug/write_fullarray_rl.F |
68 |
WRITE_FULLARRAY_RL |
filePrec = precFloat64 |
|
./pkg/debug/write_fullarray_rl.F |
87 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
|
./pkg/exf/exf_interp.F |
124 |
EXF_INTERP |
I infile, filePrec, |
|
./pkg/exf/exf_interp.F |
49 |
EXF_INTERP |
I filePrec, |
|
./pkg/exf/exf_interp.F |
78 |
EXF_INTERP |
integer filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp_read.F |
10 |
EXF_INTERP_READ |
I infile, filePrec, |
|
./pkg/exf/exf_interp_read.F |
138 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
141 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
168 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
179 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
191 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
205 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
220 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
38 |
EXF_INTERP_READ |
INTEGER filePrec, irecord, nx_in, ny_in |