| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_mdsreadvector.F |
187 |
FLT_MDSREADVECTOR |
irec = irecord |
|
./pkg/flt/flt_mdsreadvector.F |
24 |
FLT_MDSREADVECTOR |
I irecord, |
|
./pkg/flt/flt_mdsreadvector.F |
61 |
FLT_MDSREADVECTOR |
INTEGER irecord |
|
./pkg/flt/flt_mdsreadvector.F |
83 |
FLT_MDSREADVECTOR |
IF (irecord .LT. 1) THEN |
|
./pkg/flt/flt_mdsreadvector.F |
85 |
FLT_MDSREADVECTOR |
& ' FLT_MDSREADVECTOR: argument irecord = ',irecord |
|
./pkg/flt/flt_traj.F |
162 |
FLT_TRAJ |
irecord = npart_read+ip+1 |
|
./pkg/flt/flt_traj.F |
163 |
FLT_TRAJ |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_traj.F |
166 |
FLT_TRAJ |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_traj.F |
44 |
FLT_TRAJ |
INTEGER ioUnit, irecord |
|
./pkg/flt/flt_up.F |
166 |
FLT_UP |
irecord = npart_read+ip+1 |
|
./pkg/flt/flt_up.F |
167 |
FLT_UP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_up.F |
170 |
FLT_UP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
INTEGER ioUnit, irecord |
|
./pkg/flt/flt_write_pickup.F |
42 |
FLT_WRITE_PICKUP |
INTEGER ioUnit, irecord |
|
./pkg/flt/flt_write_pickup.F |
90 |
FLT_WRITE_PICKUP |
irecord = ip+1 |
|
./pkg/flt/flt_write_pickup.F |
91 |
FLT_WRITE_PICKUP |
IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord |
|
./pkg/flt/flt_write_pickup.F |
94 |
FLT_WRITE_PICKUP |
& bi,bj,irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
1024 |
MDSREADFIELD_2D_GL |
& + nSx*nPx*Ny*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1028 |
MDSREADFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
102 |
MDSREADFIELD_3D_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
104 |
MDSREADFIELD_3D_GL |
& ' MDSREADFIELD_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl.F |
1105 |
MDSREADFIELD_2D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1174 |
MDSWRITEFIELD_2D_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl.F |
1230 |
MDSWRITEFIELD_2D_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl.F |
1276 |
MDSWRITEFIELD_2D_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
1278 |
MDSWRITEFIELD_2D_GL |
& ' MDSWRITEFIELD_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl.F |
1316 |
MDSWRITEFIELD_2D_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
1346 |
MDSWRITEFIELD_2D_GL |
irec=k+nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1398 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
1420 |
MDSWRITEFIELD_2D_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
1439 |
MDSWRITEFIELD_2D_GL |
irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
1512 |
MDSWRITEFIELD_2D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
21 |
MDSREADFIELD_3D_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl.F |
263 |
MDSREADFIELD_3D_GL |
& + nSx*nPx*Ny*nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
267 |
MDSREADFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
344 |
MDSREADFIELD_3D_GL |
irec = k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
413 |
MDSWRITEFIELD_3D_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl.F |
468 |
MDSWRITEFIELD_3D_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl.F |
514 |
MDSWRITEFIELD_3D_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
516 |
MDSWRITEFIELD_3D_GL |
& ' MDSWRITEFIELD_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl.F |
553 |
MDSWRITEFIELD_3D_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
583 |
MDSWRITEFIELD_3D_GL |
irec=k+nNz*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
635 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
63 |
MDSREADFIELD_3D_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl.F |
657 |
MDSWRITEFIELD_3D_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
676 |
MDSWRITEFIELD_3D_GL |
irec=j + sNy*(k-1) + sNy*Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl.F |
749 |
MDSWRITEFIELD_3D_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl.F |
781 |
MDSREADFIELD_2D_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl.F |
824 |
MDSREADFIELD_2D_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl.F |
863 |
MDSREADFIELD_2D_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl.F |
865 |
MDSREADFIELD_2D_GL |
& ' MDSREADFIELD_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
171 |
MDSREADFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
21 |
MDSREADFIELD_XZ_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl_slice.F |
249 |
MDSREADFIELD_YZ_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl_slice.F |
291 |
MDSREADFIELD_YZ_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
314 |
MDSREADFIELD_YZ_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
316 |
MDSREADFIELD_YZ_GL |
& ' MDSREADFIELD_YZ_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
398 |
MDSREADFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
476 |
MDSWRITEFIELD_XZ_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl_slice.F |
531 |
MDSWRITEFIELD_XZ_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
560 |
MDSWRITEFIELD_XZ_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
562 |
MDSWRITEFIELD_XZ_GL |
& ' MDSWRITEFIELD_XZ_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
590 |
MDSWRITEFIELD_XZ_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
608 |
MDSWRITEFIELD_XZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
63 |
MDSREADFIELD_XZ_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
679 |
MDSWRITEFIELD_XZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
704 |
MDSWRITEFIELD_YZ_GL |
I irecord, |
|
./pkg/mdsio/mdsio_gl_slice.F |
759 |
MDSWRITEFIELD_YZ_GL |
integer irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
788 |
MDSWRITEFIELD_YZ_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
790 |
MDSWRITEFIELD_YZ_GL |
& ' MDSWRITEFIELD_YZ_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
818 |
MDSWRITEFIELD_YZ_GL |
if (irecord .EQ. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
836 |
MDSWRITEFIELD_YZ_GL |
irec=k + Nr*(irecord-1) |
|
./pkg/mdsio/mdsio_gl_slice.F |
86 |
MDSREADFIELD_XZ_GL |
if (irecord .LT. 1) then |
|
./pkg/mdsio/mdsio_gl_slice.F |
88 |
MDSREADFIELD_XZ_GL |
& ' MDSREADFIELD_GL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_gl_slice.F |
907 |
MDSWRITEFIELD_YZ_GL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
136 |
MDS_READ_FIELD |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_read_field.F |
142 |
MDS_READ_FIELD |
& ' MDS_READ_FIELD: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_read_field.F |
16 |
MDS_READ_FIELD |
I irecord, |
|
./pkg/mdsio/mdsio_read_field.F |
271 |
MDS_READ_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_read_field.F |
410 |
MDS_READ_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_read_field.F |
462 |
MDS_READ_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_read_field.F |
78 |
MDS_READ_FIELD |
INTEGER irecord |
|
./pkg/mdsio/mdsio_read_section.F |
198 |
MDS_READ_SEC_XZ |
& + nSx*nPx*kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
202 |
MDS_READ_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
23 |
MDS_READ_SEC_XZ |
I irecord, |
|
./pkg/mdsio/mdsio_read_section.F |
279 |
MDS_READ_SEC_YZ |
I irecord, |
|
./pkg/mdsio/mdsio_read_section.F |
322 |
MDS_READ_SEC_YZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_read_section.F |
348 |
MDS_READ_SEC_YZ |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
350 |
MDS_READ_SEC_YZ |
& ' MDS_READ_SEC_YZ: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_read_section.F |
454 |
MDS_READ_SEC_YZ |
& + nSy*nPy*kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
458 |
MDS_READ_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_read_section.F |
66 |
MDS_READ_SEC_XZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_read_section.F |
92 |
MDS_READ_SEC_XZ |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_read_section.F |
94 |
MDS_READ_SEC_XZ |
& ' MDS_READ_SEC_XZ: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_readvector.F |
14 |
MDSREADVECTOR |
I irecord, |
|
./pkg/mdsio/mdsio_readvector.F |
189 |
MDSREADVECTOR |
& (irecord-1)*nSx*nPx*nSy*nPy |
|
./pkg/mdsio/mdsio_readvector.F |
193 |
MDSREADVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_readvector.F |
285 |
MDSREADVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_readvector.F |
49 |
MDSREADVECTOR |
INTEGER irecord |
|
./pkg/mdsio/mdsio_readvector.F |
83 |
MDSREADVECTOR |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_readvector.F |
85 |
MDSREADVECTOR |
& ' MDSREADVECTOR: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_rw_field.F |
120 |
MDSREADFIELD_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_field.F |
132 |
MDSREADFIELD_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
137 |
MDSREADFIELD_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
156 |
MDSWRITEFIELD |
I irecord, |
|
./pkg/mdsio/mdsio_rw_field.F |
191 |
MDSWRITEFIELD |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_field.F |
204 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
209 |
MDSWRITEFIELD |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
228 |
MDSWRITEFIELD_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_field.F |
23 |
MDSREADFIELD |
I irecord, |
|
./pkg/mdsio/mdsio_rw_field.F |
263 |
MDSWRITEFIELD_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_field.F |
276 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
281 |
MDSWRITEFIELD_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
54 |
MDSREADFIELD |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_field.F |
66 |
MDSREADFIELD |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
71 |
MDSREADFIELD |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_field.F |
89 |
MDSREADFIELD_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
122 |
MDSREADFIELDYZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
134 |
MDSREADFIELDYZ |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
139 |
MDSREADFIELDYZ |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
157 |
MDSREADFIELDXZ_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
187 |
MDSREADFIELDXZ_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
199 |
MDSREADFIELDXZ_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
204 |
MDSREADFIELDXZ_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
222 |
MDSREADFIELDYZ_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
252 |
MDSREADFIELDYZ_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
264 |
MDSREADFIELDYZ_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
269 |
MDSREADFIELDYZ_LOC |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
27 |
MDSREADFIELDXZ |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
288 |
MDSWRITEFIELDXZ |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
322 |
MDSWRITEFIELDXZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
335 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
340 |
MDSWRITEFIELDXZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
359 |
MDSWRITEFIELDYZ |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
393 |
MDSWRITEFIELDYZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
406 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
411 |
MDSWRITEFIELDYZ |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
430 |
MDSWRITEFIELDXZ_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
464 |
MDSWRITEFIELDXZ_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
477 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
482 |
MDSWRITEFIELDXZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
501 |
MDSWRITEFIELDYZ_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_rw_slice.F |
535 |
MDSWRITEFIELDYZ_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
548 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
553 |
MDSWRITEFIELDYZ_LOC |
I irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
57 |
MDSREADFIELDXZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_rw_slice.F |
69 |
MDSREADFIELDXZ |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
74 |
MDSREADFIELDXZ |
I irecord, myThid ) |
|
./pkg/mdsio/mdsio_rw_slice.F |
92 |
MDSREADFIELDYZ |
I irecord, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
139 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
19 |
MDS_WR_METAFILES |
I irecord, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
208 |
MDS_WR_METAFILES |
I nTimRec, timList, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
82 |
MDS_WR_METAFILES |
INTEGER irecord |
|
./pkg/mdsio/mdsio_write_field.F |
116 |
MDS_WRITE_FIELD |
INTEGER irecord |
|
./pkg/mdsio/mdsio_write_field.F |
156 |
MDS_WRITE_FIELD |
irecord = ABS(jrecord) |
|
./pkg/mdsio/mdsio_write_field.F |
163 |
MDS_WRITE_FIELD |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
169 |
MDS_WRITE_FIELD |
& ' MDS_WRITE_FIELD: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_write_field.F |
242 |
MDS_WRITE_FIELD |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
310 |
MDS_WRITE_FIELD |
irec = 1 + k-kLo + (irecord-1)*nNz |
|
./pkg/mdsio/mdsio_write_field.F |
391 |
MDS_WRITE_FIELD |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
442 |
MDS_WRITE_FIELD |
& +( k-kLo + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_write_field.F |
463 |
MDS_WRITE_FIELD |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_field.F |
472 |
MDS_WRITE_FIELD |
irec = irecord |
|
./pkg/mdsio/mdsio_write_field.F |
515 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
561 |
MDS_WRITE_FIELD |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
100 |
MDS_WRITE_SEC_XZ |
& ' MDS_WRITE_SEC_XZ: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_write_section.F |
128 |
MDS_WRITE_SEC_XZ |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
150 |
MDS_WRITE_SEC_XZ |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
168 |
MDS_WRITE_SEC_XZ |
& + nSx*nPx*kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
172 |
MDS_WRITE_SEC_XZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
24 |
MDS_WRITE_SEC_XZ |
I irecord, |
|
./pkg/mdsio/mdsio_write_section.F |
256 |
MDS_WRITE_SEC_YZ |
I irecord, |
|
./pkg/mdsio/mdsio_write_section.F |
306 |
MDS_WRITE_SEC_YZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_write_section.F |
330 |
MDS_WRITE_SEC_YZ |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
332 |
MDS_WRITE_SEC_YZ |
& ' MDS_WRITE_SEC_YZ: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_write_section.F |
360 |
MDS_WRITE_SEC_YZ |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
382 |
MDS_WRITE_SEC_YZ |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_write_section.F |
400 |
MDS_WRITE_SEC_YZ |
& + nSy*nPy*kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
404 |
MDS_WRITE_SEC_YZ |
irec=k + kSize*(irecord-1) |
|
./pkg/mdsio/mdsio_write_section.F |
74 |
MDS_WRITE_SEC_XZ |
INTEGER irecord |
|
./pkg/mdsio/mdsio_write_section.F |
98 |
MDS_WRITE_SEC_XZ |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
178 |
MDS_WRITELOCAL |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
17 |
MDS_WRITELOCAL |
I irecord, |
|
./pkg/mdsio/mdsio_writelocal.F |
184 |
MDS_WRITELOCAL |
& ' MDS_WRITELOCAL: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_writelocal.F |
266 |
MDS_WRITELOCAL |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
326 |
MDS_WRITELOCAL |
& + ( k-1 + (irecord-1)*nNz )*global_nTx*ySize |
|
./pkg/mdsio/mdsio_writelocal.F |
347 |
MDS_WRITELOCAL |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_writelocal.F |
356 |
MDS_WRITELOCAL |
irec = irecord |
|
./pkg/mdsio/mdsio_writelocal.F |
396 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
427 |
MDS_WRITELOCAL |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
95 |
MDS_WRITELOCAL |
INTEGER irecord |
|
./pkg/mdsio/mdsio_writevec_loc.F |
103 |
MDS_WRITEVEC_LOC |
iRec = ABS(irecord) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
108 |
MDS_WRITEVEC_LOC |
& ' MDS_WRITEVEC_LOC: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_writevec_loc.F |
17 |
MDS_WRITEVEC_LOC |
I irecord, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
209 |
MDS_WRITEVEC_LOC |
IF ( irecord.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
65 |
MDS_WRITEVEC_LOC |
INTEGER irecord |
|
./pkg/mdsio/mdsio_writevector.F |
104 |
MDSWRITEVECTOR |
IF (irecord .LT. 1) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
106 |
MDSWRITEVECTOR |
& ' MDSWRITEVECTOR: argument irecord = ',irecord |
|
./pkg/mdsio/mdsio_writevector.F |
142 |
MDSWRITEVECTOR |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
15 |
MDSWRITEVECTOR |
I irecord, |
|
./pkg/mdsio/mdsio_writevector.F |
175 |
MDSWRITEVECTOR |
irec=irecord |
|
./pkg/mdsio/mdsio_writevector.F |
229 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
242 |
MDSWRITEVECTOR |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
264 |
MDSWRITEVECTOR |
IF (irecord .EQ. 1) THEN |
|
./pkg/mdsio/mdsio_writevector.F |
281 |
MDSWRITEVECTOR |
& (irecord-1)*nSx*nPx*nSy*nPy |
|
./pkg/mdsio/mdsio_writevector.F |
285 |
MDSWRITEVECTOR |
irec = irecord |
|
./pkg/mdsio/mdsio_writevector.F |
329 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
357 |
MDSWRITEVECTOR |
I 0, dummyRL, irecord, myIter, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
56 |
MDSWRITEVECTOR |
INTEGER irecord |
|
./pkg/sbo/sbo_output.F |
38 |
SBO_OUTPUT |
INTEGER irecord |
|
./pkg/sbo/sbo_output.F |
71 |
SBO_OUTPUT |
irecord = myIter - nIter0 + 1 |
|
./pkg/sbo/sbo_output.F |
91 |
SBO_OUTPUT |
I 0, 0, irecord, myIter, myThid ) |
|
./pkg/exf/exf_interp.F |
126 |
EXF_INTERP |
I irecord, nx_in, ny_in, mythid) |
|
./pkg/exf/exf_interp.F |
51 |
EXF_INTERP |
I irecord, xG_in, yG, |
|
./pkg/exf/exf_interp.F |
78 |
EXF_INTERP |
integer filePrec, irecord, nx_in, ny_in |
|
./pkg/exf/exf_interp_read.F |
12 |
EXF_INTERP_READ |
I irecord, nx_in, ny_in, myThid ) |
|
./pkg/exf/exf_interp_read.F |
143 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) buffer_r4 |
|
./pkg/exf/exf_interp_read.F |
145 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
152 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) buffer_r8 |
|
./pkg/exf/exf_interp_read.F |
154 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
|
./pkg/exf/exf_interp_read.F |
38 |
EXF_INTERP_READ |
INTEGER filePrec, irecord, nx_in, ny_in |