| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp.F |
129 |
EXF_INTERP |
I inFile, filePrec, |
|
./pkg/exf/exf_interp.F |
12 |
EXF_INTERP |
I inFile, filePrec, |
|
./pkg/exf/exf_interp.F |
59 |
EXF_INTERP |
INTEGER filePrec, irecord, nxIn, nyIn |
|
./pkg/exf/exf_interp_read.F |
10 |
EXF_INTERP_READ |
I infile, filePrec, |
|
./pkg/exf/exf_interp_read.F |
135 |
EXF_INTERP_READ |
length_of_rec=MDS_RECLEN( filePrec, nx_in*ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
138 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
165 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
176 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
188 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
202 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
217 |
EXF_INTERP_READ |
IF ( filePrec .EQ. 32 ) THEN |
|
./pkg/exf/exf_interp_read.F |
37 |
EXF_INTERP_READ |
INTEGER filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp_uv.F |
12 |
EXF_INTERP_UV |
I inFileU, inFileV, filePrec, irecord, |
|
./pkg/exf/exf_interp_uv.F |
143 |
EXF_INTERP_UV |
I inFileU, filePrec, |
|
./pkg/exf/exf_interp_uv.F |
147 |
EXF_INTERP_UV |
I inFileV, filePrec, |
|
./pkg/exf/exf_interp_uv.F |
65 |
EXF_INTERP_UV |
INTEGER filePrec, irecord, nxIn, nyIn |
|
./pkg/gmredi/gmredi_read_pickup.F |
44 |
GMREDI_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/gmredi/gmredi_read_pickup.F |
72 |
GMREDI_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/gmredi/gmredi_read_pickup.F |
76 |
GMREDI_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/gmredi/gmredi_read_pickup.F |
81 |
GMREDI_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/mdsio/mdsio_gl.F |
1004 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1032 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1065 |
MDSREADFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1082 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1145 |
MDSREADFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1155 |
MDSREADFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1209 |
MDSWRITEFIELD_2D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
1261 |
MDSWRITEFIELD_2D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
1363 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN(filePrec,x_size*y_size,mythid) |
|
./pkg/mdsio/mdsio_gl.F |
1395 |
MDSWRITEFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1405 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1445 |
MDSWRITEFIELD_2D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
1469 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1474 |
MDSWRITEFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1488 |
MDSWRITEFIELD_2D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
1505 |
MDSWRITEFIELD_2D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
1563 |
MDSWRITEFIELD_2D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
162 |
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 |
217 |
MDSREADFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
245 |
MDSREADFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
278 |
MDSREADFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
295 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
358 |
MDSREADFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
368 |
MDSREADFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
422 |
MDSWRITEFIELD_3D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
474 |
MDSWRITEFIELD_3D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
574 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN(filePrec,x_size*y_size,mythid) |
|
./pkg/mdsio/mdsio_gl.F |
59 |
MDSREADFIELD_3D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
606 |
MDSWRITEFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
616 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
656 |
MDSWRITEFIELD_3D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
680 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
685 |
MDSWRITEFIELD_3D_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
699 |
MDSWRITEFIELD_3D_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl.F |
716 |
MDSWRITEFIELD_3D_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl.F |
774 |
MDSWRITEFIELD_3D_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl.F |
803 |
MDSREADFIELD_2D_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl.F |
845 |
MDSREADFIELD_2D_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl.F |
950 |
MDSREADFIELD_2D_GL |
length_of_rec=MDS_RECLEN( filePrec, x_size*y_size, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
159 |
MDSREADFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
17 |
MDSREADFIELD_XZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
181 |
MDSREADFIELD_XZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
198 |
MDSREADFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
258 |
MDSREADFIELD_YZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
399 |
MDSREADFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
421 |
MDSREADFIELD_YZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
438 |
MDSREADFIELD_YZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
498 |
MDSWRITEFIELD_XZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
550 |
MDSWRITEFIELD_XZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
59 |
MDSREADFIELD_XZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
626 |
MDSWRITEFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
631 |
MDSWRITEFIELD_XZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNx, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
644 |
MDSWRITEFIELD_XZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
661 |
MDSWRITEFIELD_XZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
717 |
MDSWRITEFIELD_XZ_GL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_gl_slice.F |
739 |
MDSWRITEFIELD_YZ_GL |
I filePrec, |
|
./pkg/mdsio/mdsio_gl_slice.F |
791 |
MDSWRITEFIELD_YZ_GL |
integer filePrec |
|
./pkg/mdsio/mdsio_gl_slice.F |
867 |
MDSWRITEFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
872 |
MDSWRITEFIELD_YZ_GL |
length_of_rec=MDS_RECLEN( filePrec, sNy, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
885 |
MDSWRITEFIELD_YZ_GL |
if (filePrec .eq. precFloat32) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
902 |
MDSWRITEFIELD_YZ_GL |
elseif (filePrec .eq. precFloat64) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
958 |
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 |
272 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
296 |
MDS_READ_FIELD |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
314 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
335 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
384 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
437 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
467 |
MDS_READ_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
489 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
515 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
529 |
MDS_READ_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
543 |
MDS_READ_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
83 |
MDS_READ_FIELD |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_meta.F |
103 |
MDS_READ_META |
filePrec = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
13 |
MDS_READ_META |
O filePrec, |
|
./pkg/mdsio/mdsio_read_meta.F |
276 |
MDS_READ_META |
filePrec = precFloat32 |
|
./pkg/mdsio/mdsio_read_meta.F |
278 |
MDS_READ_META |
filePrec = precFloat64 |
|
./pkg/mdsio/mdsio_read_meta.F |
288 |
MDS_READ_META |
IF ( filePrec.EQ.0 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
291 |
MDS_READ_META |
filePrec = precFloat32 |
|
./pkg/mdsio/mdsio_read_meta.F |
293 |
MDS_READ_META |
filePrec = precFloat64 |
|
./pkg/mdsio/mdsio_read_meta.F |
62 |
MDS_READ_META |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_section.F |
158 |
MDS_READ_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
183 |
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 |
225 |
MDS_READ_SEC_XZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
242 |
MDS_READ_SEC_XZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
295 |
MDS_READ_SEC_YZ |
I filePrec, |
|
./pkg/mdsio/mdsio_read_section.F |
344 |
MDS_READ_SEC_YZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_section.F |
436 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
461 |
MDS_READ_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
503 |
MDS_READ_SEC_YZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
520 |
MDS_READ_SEC_YZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
67 |
MDS_READ_SEC_XZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_tape.F |
11 |
MDS_READ_TAPE |
I filePrec, |
|
./pkg/mdsio/mdsio_read_tape.F |
133 |
MDS_READ_TAPE |
length_of_rec = MDS_RECLEN( filePrec, vec_size, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
153 |
MDS_READ_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
158 |
MDS_READ_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
171 |
MDS_READ_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
173 |
MDS_READ_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
198 |
MDS_READ_TAPE |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
218 |
MDS_READ_TAPE |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
239 |
MDS_READ_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
244 |
MDS_READ_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
269 |
MDS_READ_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
279 |
MDS_READ_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
44 |
MDS_READ_TAPE |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_read_whalos.F |
12 |
MDS_READ_WHALOS |
I filePrec, |
|
./pkg/mdsio/mdsio_read_whalos.F |
138 |
MDS_READ_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*procNyWh, myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
141 |
MDS_READ_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid) |
|
./pkg/mdsio/mdsio_read_whalos.F |
174 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
181 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
193 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
200 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
215 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
222 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
232 |
MDS_READ_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_read_whalos.F |
59 |
MDS_READ_WHALOS |
integer filePrec |
|
./pkg/mdsio/mdsio_readvec_loc.F |
11 |
MDS_READVEC_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
181 |
MDS_READVEC_LOC |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
209 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
212 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
62 |
MDS_READVEC_LOC |
INTEGER 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 |
141 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
210 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
75 |
MDS_WR_METAFILES |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
11 |
MDS_WRITE_FIELD |
I filePrec, |
|
./pkg/mdsio/mdsio_write_field.F |
277 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, xSize*ySize, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
291 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
312 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
335 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: illegal value for filePrec=',filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
346 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
376 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
390 |
MDS_WRITE_FIELD |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
406 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: illegal value for filePrec=',filePrec |
|
./pkg/mdsio/mdsio_write_field.F |
419 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
429 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
484 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
501 |
MDS_WRITE_FIELD |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
514 |
MDS_WRITE_FIELD |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
553 |
MDS_WRITE_FIELD |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_field.F |
599 |
MDS_WRITE_FIELD |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_field.F |
96 |
MDS_WRITE_FIELD |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_meta.F |
146 |
MDS_WRITE_META |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
148 |
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 |
58 |
MDS_WRITE_META |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_section.F |
138 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
143 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
160 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
165 |
MDS_WRITE_SEC_XZ |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
18 |
MDS_WRITE_SEC_XZ |
I filePrec, |
|
./pkg/mdsio/mdsio_write_section.F |
196 |
MDS_WRITE_SEC_XZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
213 |
MDS_WRITE_SEC_XZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
272 |
MDS_WRITE_SEC_YZ |
I filePrec, |
|
./pkg/mdsio/mdsio_write_section.F |
326 |
MDS_WRITE_SEC_YZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_section.F |
391 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
396 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
413 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
418 |
MDS_WRITE_SEC_YZ |
length_of_rec = MDS_RECLEN( filePrec, sNy, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
449 |
MDS_WRITE_SEC_YZ |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
466 |
MDS_WRITE_SEC_YZ |
ELSEIF (filePrec .EQ. precFloat64) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
72 |
MDS_WRITE_SEC_XZ |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_tape.F |
107 |
MDS_WRITE_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
11 |
MDS_WRITE_TAPE |
I filePrec, |
|
./pkg/mdsio/mdsio_write_tape.F |
166 |
MDS_WRITE_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
168 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
181 |
MDS_WRITE_TAPE |
length_of_rec = MDS_RECLEN( filePrec, vec_size, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
191 |
MDS_WRITE_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
196 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
212 |
MDS_WRITE_TAPE |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_tape.F |
225 |
MDS_WRITE_TAPE |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
240 |
MDS_WRITE_TAPE |
length_of_rec = MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
269 |
MDS_WRITE_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
274 |
MDS_WRITE_TAPE |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_write_tape.F |
309 |
MDS_WRITE_TAPE |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_write_tape.F |
49 |
MDS_WRITE_TAPE |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_write_tape.F |
97 |
MDS_WRITE_TAPE |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
129 |
MDS_WRITE_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*procNyWh,myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
12 |
MDS_WRITE_WHALOS |
I filePrec, |
|
./pkg/mdsio/mdsio_write_whalos.F |
132 |
MDS_WRITE_WHALOS |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid) |
|
./pkg/mdsio/mdsio_write_whalos.F |
146 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
182 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
189 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
200 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
207 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
222 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
229 |
MDS_WRITE_WHALOS |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/mdsio/mdsio_write_whalos.F |
59 |
MDS_WRITE_WHALOS |
integer filePrec |
|
./pkg/mdsio/mdsio_writelocal.F |
11 |
MDS_WRITELOCAL |
I filePrec, |
|
./pkg/mdsio/mdsio_writelocal.F |
222 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
236 |
MDS_WRITELOCAL |
ELSEIF ( filePrec.EQ.precFloat64 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
274 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
293 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
338 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
355 |
MDS_WRITELOCAL |
length_of_rec = MDS_RECLEN( filePrec, sNx*sNy*nNz, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
368 |
MDS_WRITELOCAL |
IF ( filePrec.EQ.precFloat32 ) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
404 |
MDS_WRITELOCAL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writelocal.F |
435 |
MDS_WRITELOCAL |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writelocal.F |
89 |
MDS_WRITELOCAL |
INTEGER filePrec |
|
./pkg/mdsio/mdsio_writevec_loc.F |
11 |
MDS_WRITEVEC_LOC |
I filePrec, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
168 |
MDS_WRITEVEC_LOC |
length_of_rec=MDS_RECLEN( filePrec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
190 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
193 |
MDS_WRITEVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
245 |
MDS_WRITEVEC_LOC |
I filePrec, nDims, dimList, map2gl, 0, blank8c, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
63 |
MDS_WRITEVEC_LOC |
INTEGER filePrec |
|
./pkg/mypackage/mypackage_read_pickup.F |
45 |
MYPACKAGE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/mypackage/mypackage_read_pickup.F |
71 |
MYPACKAGE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/mypackage/mypackage_read_pickup.F |
75 |
MYPACKAGE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/mypackage/mypackage_read_pickup.F |
80 |
MYPACKAGE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/openad/ad_s_mds_reclen.F |
23 |
OAD_S_MDS_RECLEN |
integer filePrec |
|
./pkg/openad/ad_s_mds_reclen.F |
32 |
OAD_S_MDS_RECLEN |
if (filePrec .EQ. precFloat32) then |
|
./pkg/openad/ad_s_mds_reclen.F |
34 |
OAD_S_MDS_RECLEN |
elseif (filePrec .EQ. precFloat64) then |
|
./pkg/openad/ad_s_mds_reclen.F |
38 |
OAD_S_MDS_RECLEN |
& ' MDS_RECLEN: filePrec = ',filePrec |
|
./pkg/openad/ad_s_mds_reclen.F |
6 |
OAD_S_MDS_RECLEN |
subroutine OAD_S_MDS_RECLEN( filePrec, nnn, myThid, reclen ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
121 |
PTRACERS_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/ptracers/ptracers_read_pickup.F |
125 |
PTRACERS_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.prec ) THEN |
|
./pkg/ptracers/ptracers_read_pickup.F |
130 |
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 |
122 |
READ_MFLDS_SET |
filePrec = 0 |
|
./pkg/rw/read_mflds.F |
158 |
READ_MFLDS_SET |
O filePrec, |
|
./pkg/rw/read_mflds.F |
202 |
READ_MFLDS_SET |
& ' nRecords =', nRecords, ' ; filePrec =', filePrec, |
|
./pkg/rw/read_mflds.F |
64 |
READ_MFLDS_SET |
O nbFields, filePrec, |
|
./pkg/rw/read_mflds.F |
92 |
READ_MFLDS_SET |
INTEGER filePrec |
|
./pkg/seaice/seaice_read_pickup.F |
52 |
SEAICE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/seaice/seaice_read_pickup.F |
87 |
SEAICE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/seaice/seaice_read_pickup.F |
91 |
SEAICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
96 |
SEAICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/shelfice/shelfice_read_pickup.F |
41 |
SHELFICE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/shelfice/shelfice_read_pickup.F |
67 |
SHELFICE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/shelfice/shelfice_read_pickup.F |
71 |
SHELFICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/shelfice/shelfice_read_pickup.F |
76 |
SHELFICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/streamice/streamice_read_pickup.F |
43 |
STREAMICE_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/streamice/streamice_read_pickup.F |
63 |
STREAMICE_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/streamice/streamice_read_pickup.F |
67 |
STREAMICE_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/streamice/streamice_read_pickup.F |
72 |
STREAMICE_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./model/src/read_pickup.F |
109 |
READ_PICKUP |
O nbFields, filePrec, |
|
./model/src/read_pickup.F |
114 |
READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./model/src/read_pickup.F |
119 |
READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./model/src/read_pickup.F |
66 |
READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
49 |
ATM_CPL_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
76 |
ATM_CPL_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
80 |
ATM_CPL_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
85 |
ATM_CPL_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
45 |
ATM_PHYS_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
74 |
ATM_PHYS_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
78 |
ATM_PHYS_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
83 |
ATM_PHYS_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/autodiff/adread_adwrite.F |
131 |
ADREAD |
INTEGER filePrec |
|
./pkg/autodiff/adread_adwrite.F |
147 |
ADREAD |
filePrec = 8*size |
|
./pkg/autodiff/adread_adwrite.F |
149 |
ADREAD |
filePrec = precFloat32 |
|
./pkg/autodiff/adread_adwrite.F |
177 |
ADREAD |
& length, size, filePrec, ' fname=', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
196 |
ADREAD |
call MDS_READ_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/adread_adwrite.F |
231 |
ADREAD |
CALL MDS_READ_TAPE( fname, filePrec, 'R4', |
|
./pkg/autodiff/adread_adwrite.F |
237 |
ADREAD |
CALL MDS_READ_TAPE( fname, filePrec, 'R8', |
|
./pkg/autodiff/adread_adwrite.F |
329 |
ADWRITE |
INTEGER filePrec |
|
./pkg/autodiff/adread_adwrite.F |
346 |
ADWRITE |
filePrec = 8*size |
|
./pkg/autodiff/adread_adwrite.F |
348 |
ADWRITE |
filePrec = precFloat32 |
|
./pkg/autodiff/adread_adwrite.F |
376 |
ADWRITE |
& length, size, filePrec, ' fname=', fname(1:lenLoc) |
|
./pkg/autodiff/adread_adwrite.F |
405 |
ADWRITE |
call MDS_WRITE_WHALOS(fname,lenLoc,filePrec,tapeFileUnit, |
|
./pkg/autodiff/adread_adwrite.F |
427 |
ADWRITE |
CALL MDS_WRITE_TAPE( fname, filePrec, globalfile, 'R4', |
|
./pkg/autodiff/adread_adwrite.F |
433 |
ADWRITE |
CALL MDS_WRITE_TAPE( fname, filePrec, globalfile, 'R8', |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
124 |
AUTODIFF_WHTAPEIO_SYNC |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
131 |
AUTODIFF_WHTAPEIO_SYNC |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
153 |
AUTODIFF_WHTAPEIO_SYNC |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
160 |
AUTODIFF_WHTAPEIO_SYNC |
IF (filePrec .EQ. precFloat32) THEN |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
38 |
AUTODIFF_WHTAPEIO_SYNC |
integer filePrec, IL, length_of_rec |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
72 |
AUTODIFF_WHTAPEIO_SYNC |
filePrec = 32 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
74 |
AUTODIFF_WHTAPEIO_SYNC |
filePrec = 64 |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
90 |
AUTODIFF_WHTAPEIO_SYNC |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*procNyWh,myThid ) |
|
./pkg/autodiff/autodiff_whtapeio_sync.F |
94 |
AUTODIFF_WHTAPEIO_SYNC |
length_of_rec = MDS_RECLEN( filePrec,sNxWh*gloNyWh,myThid) |
|
./pkg/bbl/bbl_read_pickup.F |
44 |
BBL_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/bbl/bbl_read_pickup.F |
70 |
BBL_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/bbl/bbl_read_pickup.F |
74 |
BBL_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/bbl/bbl_read_pickup.F |
79 |
BBL_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./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 |
45 |
CHEAPAML_READ_PICKUP |
INTEGER filePrec, nbFields |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
73 |
CHEAPAML_READ_PICKUP |
O nbFields, filePrec, |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
77 |
CHEAPAML_READ_PICKUP |
IF ( nbFields.GE.0 .AND. filePrec.NE.fp ) THEN |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
82 |
CHEAPAML_READ_PICKUP |
& 'file prec.=', filePrec, ' but expecting prec.=', fp |
|
./pkg/debug/write_fullarray_rl.F |
128 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
51 |
WRITE_FULLARRAY_RL |
INTEGER s1Lo,s1Hi, dUnit, filePrec, length_of_rec, kRec |
|
./pkg/debug/write_fullarray_rl.F |
67 |
WRITE_FULLARRAY_RL |
filePrec = precFloat32 |
|
./pkg/debug/write_fullarray_rl.F |
69 |
WRITE_FULLARRAY_RL |
filePrec = precFloat64 |
|
./pkg/debug/write_fullarray_rl.F |
94 |
WRITE_FULLARRAY_RL |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
|
./pkg/debug/write_fullarray_rs.F |
128 |
WRITE_FULLARRAY_RS |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |
|
./pkg/debug/write_fullarray_rs.F |
51 |
WRITE_FULLARRAY_RS |
INTEGER s1Lo,s1Hi, dUnit, filePrec, length_of_rec, kRec |
|
./pkg/debug/write_fullarray_rs.F |
67 |
WRITE_FULLARRAY_RS |
filePrec = precFloat32 |
|
./pkg/debug/write_fullarray_rs.F |
69 |
WRITE_FULLARRAY_RS |
filePrec = precFloat64 |
|
./pkg/debug/write_fullarray_rs.F |
94 |
WRITE_FULLARRAY_RS |
& filePrec, (sNx+2*Olx)*(sNy+2*Oly), myThid ) |