| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_facef_read.F |
113 |
MDS_FACEF_READ_RS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_facef_read.F |
117 |
MDS_FACEF_READ_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./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 |
122 |
MDS_FACEF_READ_RS |
READ(dUnit, rec=irec) ioBuf4 |
|
./pkg/mdsio/mdsio_facef_read.F |
132 |
MDS_FACEF_READ_RS |
READ(dUnit, rec=irec) ioBuf8 |
|
./pkg/mdsio/mdsio_facef_read.F |
147 |
MDS_FACEF_READ_RS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_facef_read.F |
56 |
MDS_FACEF_READ_RS |
INTEGER i,j, dUnit, iLen |
|
./pkg/mdsio/mdsio_facef_read.F |
79 |
MDS_FACEF_READ_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_facef_read.F |
81 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_facef_read.F |
87 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf4(i),i=1,dNx+1) |
|
./pkg/mdsio/mdsio_facef_read.F |
98 |
MDS_FACEF_READ_RS |
READ(dUnit,rec=jj+jBase) (ioBuf8(i),i=1,dNx+1) |
|
./pkg/mdsio/mdsio_gl.F |
1005 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1033 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
1066 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1083 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1114 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1127 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1146 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1156 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1191 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1280 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
1349 |
MDSWRITEFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1365 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1368 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
137 |
MDSREADFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1404 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1414 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1428 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1470 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1475 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1504 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1521 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1540 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
163 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
218 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
246 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
279 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
296 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
327 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
340 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
359 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
369 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
404 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
492 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
561 |
MDSWRITEFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
576 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
579 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
615 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
625 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
639 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
681 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
686 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
715 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
732 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
73 |
MDSREADFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
751 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
860 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
924 |
MDSREADFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
951 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
112 |
MDSREADFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
160 |
MDSREADFIELD_XZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
182 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
199 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
228 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
241 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
313 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
353 |
MDSREADFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
400 |
MDSREADFIELD_YZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
422 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
439 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
468 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
481 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
567 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
611 |
MDSWRITEFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
627 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
632 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
660 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
677 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
694 |
MDSWRITEFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
72 |
MDSREADFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
808 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
852 |
MDSWRITEFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
868 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
873 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
901 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
918 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
935 |
MDSWRITEFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
14 |
MDS_RD_REC_RL |
I fPrec, dUnit, iRec, nArr, myThid ) |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
36 |
MDS_RD_REC_RL |
INTEGER dUnit |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
58 |
MDS_RD_REC_RL |
READ( dUnit, rec=iRec ) r4Buf |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
66 |
MDS_RD_REC_RL |
READ( dUnit, rec=iRec ) r8Buf |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
14 |
MDS_RD_REC_RS |
I fPrec, dUnit, iRec, nArr, myThid ) |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
36 |
MDS_RD_REC_RS |
INTEGER dUnit |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
58 |
MDS_RD_REC_RS |
READ( dUnit, rec=iRec ) r4Buf |
|
./pkg/mdsio/mdsio_rd_rec_rs.F |
66 |
MDS_RD_REC_RS |
READ( dUnit, rec=iRec ) r8Buf |
|
./pkg/mdsio/mdsio_read_field.F |
112 |
MDS_READ_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_field.F |
230 |
MDS_READ_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
273 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
297 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
302 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
368 |
MDS_READ_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_field.F |
385 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
438 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
440 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
468 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
490 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
492 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
497 |
MDS_READ_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_field.F |
510 |
MDS_READ_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_section.F |
126 |
MDS_READ_SEC_XZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
159 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
184 |
MDS_READ_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
226 |
MDS_READ_SEC_XZ |
READ(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_read_section.F |
243 |
MDS_READ_SEC_XZ |
READ(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_read_section.F |
268 |
MDS_READ_SEC_XZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_section.F |
278 |
MDS_READ_SEC_XZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_section.F |
361 |
MDS_READ_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_section.F |
404 |
MDS_READ_SEC_YZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_section.F |
437 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
462 |
MDS_READ_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_section.F |
504 |
MDS_READ_SEC_YZ |
READ(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_read_section.F |
521 |
MDS_READ_SEC_YZ |
READ(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_read_section.F |
546 |
MDS_READ_SEC_YZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_section.F |
556 |
MDS_READ_SEC_YZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_section.F |
84 |
MDS_READ_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_read_tape.F |
112 |
MDS_READ_TAPE |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_tape.F |
134 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
154 |
MDS_READ_TAPE |
READ(dUnit,rec=iRec) gl_buffer_r4 |
|
./pkg/mdsio/mdsio_read_tape.F |
159 |
MDS_READ_TAPE |
READ(dUnit,rec=iRec) gl_buffer_r8 |
|
./pkg/mdsio/mdsio_read_tape.F |
166 |
MDS_READ_TAPE |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_tape.F |
199 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
219 |
MDS_READ_TAPE |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_tape.F |
240 |
MDS_READ_TAPE |
READ(dUnit,rec=jRec) local_r4 |
|
./pkg/mdsio/mdsio_read_tape.F |
245 |
MDS_READ_TAPE |
READ(dUnit,rec=jRec) local_r8 |
|
./pkg/mdsio/mdsio_read_tape.F |
256 |
MDS_READ_TAPE |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_tape.F |
63 |
MDS_READ_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./pkg/mdsio/mdsio_read_whalos.F |
144 |
MDS_READ_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
145 |
MDS_READ_WHALOS |
OPEN( dUnit, file=pfName, status='old', |
|
./pkg/mdsio/mdsio_read_whalos.F |
148 |
MDS_READ_WHALOS |
dUnit=fid |
|
./pkg/mdsio/mdsio_read_whalos.F |
155 |
MDS_READ_WHALOS |
results = commitqq(dUnit) |
|
./pkg/mdsio/mdsio_read_whalos.F |
175 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
177 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
182 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
184 |
MDS_READ_WHALOS |
READ(dUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
216 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_procbuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
218 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_procbuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
223 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_globuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
225 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_globuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
257 |
MDS_READ_WHALOS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
91 |
MDS_READ_WHALOS |
integer dUnit, irec2d |
|
./pkg/mdsio/mdsio_readvec_loc.F |
126 |
MDS_READVEC_LOC |
dUnit = ioUnit |
|
./pkg/mdsio/mdsio_readvec_loc.F |
141 |
MDS_READVEC_LOC |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
182 |
MDS_READVEC_LOC |
OPEN( dUnit, file=dataFname, status=_OLD_STATUS, |
|
./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 |
224 |
MDS_READVEC_LOC |
ioUnit = dUnit |
|
./pkg/mdsio/mdsio_readvec_loc.F |
226 |
MDS_READVEC_LOC |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
82 |
MDS_READVEC_LOC |
INTEGER iG,jG,dUnit,IL,pIL,iLfn |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
14 |
MDS_WR_REC_RL |
I fPrec, dUnit, iRec, nArr, myThid ) |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
36 |
MDS_WR_REC_RL |
INTEGER dUnit |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
64 |
MDS_WR_REC_RL |
WRITE( dUnit, rec=iRec ) r4Buf |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
72 |
MDS_WR_REC_RL |
WRITE( dUnit, rec=iRec ) r8Buf |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
14 |
MDS_WR_REC_RS |
I fPrec, dUnit, iRec, nArr, myThid ) |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
36 |
MDS_WR_REC_RS |
INTEGER dUnit |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
64 |
MDS_WR_REC_RS |
WRITE( dUnit, rec=iRec ) r4Buf |
|
./pkg/mdsio/mdsio_wr_rec_rs.F |
72 |
MDS_WR_REC_RS |
WRITE( dUnit, rec=iRec ) r8Buf |
|
./pkg/mdsio/mdsio_write_field.F |
129 |
MDS_WRITE_FIELD |
INTEGER irec,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_field.F |
265 |
MDS_WRITE_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
279 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
282 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
350 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
355 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
364 |
MDS_WRITE_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_field.F |
431 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
434 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
485 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
487 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
503 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
506 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
515 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
517 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
522 |
MDS_WRITE_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_field.F |
563 |
MDS_WRITE_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_section.F |
132 |
MDS_WRITE_SEC_XZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
139 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
144 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
161 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
166 |
MDS_WRITE_SEC_XZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
212 |
MDS_WRITE_SEC_XZ |
WRITE(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_write_section.F |
229 |
MDS_WRITE_SEC_XZ |
WRITE(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_write_section.F |
246 |
MDS_WRITE_SEC_XZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_section.F |
255 |
MDS_WRITE_SEC_XZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_section.F |
345 |
MDS_WRITE_SEC_YZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_section.F |
385 |
MDS_WRITE_SEC_YZ |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_section.F |
392 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
397 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
414 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_section.F |
419 |
MDS_WRITE_SEC_YZ |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_write_section.F |
465 |
MDS_WRITE_SEC_YZ |
WRITE(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_write_section.F |
482 |
MDS_WRITE_SEC_YZ |
WRITE(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_write_section.F |
499 |
MDS_WRITE_SEC_YZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_section.F |
508 |
MDS_WRITE_SEC_YZ |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_section.F |
91 |
MDS_WRITE_SEC_XZ |
INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL |
|
./pkg/mdsio/mdsio_write_tape.F |
159 |
MDS_WRITE_TAPE |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_tape.F |
183 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
186 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
195 |
MDS_WRITE_TAPE |
WRITE(dUnit,rec=iRec) gl_buffer_r4 |
|
./pkg/mdsio/mdsio_write_tape.F |
200 |
MDS_WRITE_TAPE |
WRITE(dUnit,rec=iRec) gl_buffer_r8 |
|
./pkg/mdsio/mdsio_write_tape.F |
204 |
MDS_WRITE_TAPE |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_tape.F |
227 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
230 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
242 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
245 |
MDS_WRITE_TAPE |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_tape.F |
273 |
MDS_WRITE_TAPE |
WRITE(dUnit,rec=jRec) local_r4 |
|
./pkg/mdsio/mdsio_write_tape.F |
278 |
MDS_WRITE_TAPE |
WRITE(dUnit,rec=jRec) local_r8 |
|
./pkg/mdsio/mdsio_write_tape.F |
287 |
MDS_WRITE_TAPE |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_tape.F |
70 |
MDS_WRITE_TAPE |
INTEGER iG, jG, jRec, dUnit, IL, pIL |
|
./pkg/mdsio/mdsio_write_whalos.F |
135 |
MDS_WRITE_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
136 |
MDS_WRITE_WHALOS |
OPEN( dUnit, file=pfName, status='unknown', |
|
./pkg/mdsio/mdsio_write_whalos.F |
139 |
MDS_WRITE_WHALOS |
dUnit=fid |
|
./pkg/mdsio/mdsio_write_whalos.F |
201 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_procbuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
203 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_procbuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
208 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_globuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
210 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=iWh) fld3d_globuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
223 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_procbuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
225 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_procbuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
230 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_globuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
232 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_globuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
242 |
MDS_WRITE_WHALOS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
93 |
MDS_WRITE_WHALOS |
integer dUnit, irec2d |
|
./pkg/mdsio/mdsio_writelocal.F |
116 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
269 |
MDS_WRITELOCAL |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
276 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
279 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
339 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
341 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
357 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
360 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
369 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
371 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
376 |
MDS_WRITELOCAL |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writelocal.F |
413 |
MDS_WRITELOCAL |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
148 |
MDS_WRITEVEC_LOC |
dUnit = ioUnit |
|
./pkg/mdsio/mdsio_writevec_loc.F |
153 |
MDS_WRITEVEC_LOC |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
170 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
174 |
MDS_WRITEVEC_LOC |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./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 |
209 |
MDS_WRITEVEC_LOC |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
212 |
MDS_WRITEVEC_LOC |
IF ( ioUnit.EQ.-1 ) ioUnit = dUnit |
|
./pkg/mdsio/mdsio_writevec_loc.F |
83 |
MDS_WRITEVEC_LOC |
INTEGER iG,jG,iRec,dUnit,IL,pIL |
|
./pkg/atm2d/init_atm2d.F |
208 |
INIT_ATM2D |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/atm2d/init_atm2d.F |
211 |
INIT_ATM2D |
OPEN(dUnit, FILE=atmosTauuFile,STATUS='old', |
|
./pkg/atm2d/init_atm2d.F |
214 |
INIT_ATM2D |
READ(dUnit,REC=1), atau |
|
./pkg/atm2d/init_atm2d.F |
215 |
INIT_ATM2D |
CLOSE(dUnit) |
|
./pkg/atm2d/init_atm2d.F |
219 |
INIT_ATM2D |
OPEN(dUnit, FILE=atmosTauvFile, STATUS='old', |
|
./pkg/atm2d/init_atm2d.F |
222 |
INIT_ATM2D |
READ(dUnit, REC=1), atav |
|
./pkg/atm2d/init_atm2d.F |
223 |
INIT_ATM2D |
CLOSE(dUnit) |
|
./pkg/atm2d/init_atm2d.F |
227 |
INIT_ATM2D |
OPEN(dUnit, FILE=atmosWindFile, STATUS='old', |
|
./pkg/atm2d/init_atm2d.F |
230 |
INIT_ATM2D |
READ(dUnit, REC=1), awind |
|
./pkg/atm2d/init_atm2d.F |
231 |
INIT_ATM2D |
CLOSE(dUnit) |
|
./pkg/atm2d/init_atm2d.F |
50 |
INIT_ATM2D |
INTEGER dUnit |
|
./pkg/atm2d/tave_end_diags.F |
172 |
TAVE_END_DIAGS |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/atm2d/tave_end_diags.F |
175 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
177 |
TAVE_END_DIAGS |
WRITE(dUnit,REC=1) sum_tauu_ta |
|
./pkg/atm2d/tave_end_diags.F |
178 |
TAVE_END_DIAGS |
CLOSE(dUnit) |
|
./pkg/atm2d/tave_end_diags.F |
181 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
183 |
TAVE_END_DIAGS |
WRITE(dUnit,REC=1) sum_tauv_ta |
|
./pkg/atm2d/tave_end_diags.F |
184 |
TAVE_END_DIAGS |
CLOSE(dUnit) |
|
./pkg/atm2d/tave_end_diags.F |
187 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
189 |
TAVE_END_DIAGS |
WRITE(dUnit,REC=1) sum_wsocean_ta |
|
./pkg/atm2d/tave_end_diags.F |
190 |
TAVE_END_DIAGS |
CLOSE(dUnit) |
|
./pkg/atm2d/tave_end_diags.F |
193 |
TAVE_END_DIAGS |
OPEN(dUnit, FILE=fn, STATUS='unknown', |
|
./pkg/atm2d/tave_end_diags.F |
195 |
TAVE_END_DIAGS |
WRITE(dUnit,REC=1) sum_ps4ocean_ta |
|
./pkg/atm2d/tave_end_diags.F |
196 |
TAVE_END_DIAGS |
CLOSE(dUnit) |
|
./pkg/atm2d/tave_end_diags.F |
41 |
TAVE_END_DIAGS |
INTEGER dUnit |
|
./pkg/ctrl/ctrl_init.F |
407 |
CTRL_INIT |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/ctrl/ctrl_init.F |
409 |
CTRL_INIT |
open(dUnit, file='baro_invmodes.bin', status='old', |
|
./pkg/ctrl/ctrl_init.F |
412 |
CTRL_INIT |
read(dUnit,rec=j) ((modesv(k,i,j), k=1,Nr), i=1,Nr) |
|
./pkg/ctrl/ctrl_init.F |
414 |
CTRL_INIT |
CLOSE( dUnit ) |
|
./pkg/ctrl/ctrl_init.F |
71 |
CTRL_INIT |
INTEGER length_of_rec,dUnit |
|
./pkg/debug/write_fullarray_rl.F |
103 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./pkg/debug/write_fullarray_rl.F |
129 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
133 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
137 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./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 |
63 |
WRITE_FULLARRAY_RL |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
95 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
99 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rs.F |
103 |
WRITE_FULLARRAY_RS |
CLOSE(dUnit) |
|
./pkg/debug/write_fullarray_rs.F |
129 |
WRITE_FULLARRAY_RS |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rs.F |
133 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rs.F |
137 |
WRITE_FULLARRAY_RS |
CLOSE(dUnit) |
|
./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 |
63 |
WRITE_FULLARRAY_RS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/debug/write_fullarray_rs.F |
95 |
WRITE_FULLARRAY_RS |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rs.F |
99 |
WRITE_FULLARRAY_RS |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
149 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
150 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(ndId,1,1) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
157 |
DIAGNOSTICS_READ_PICKUP |
CLOSE( dUnit ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
43 |
DIAGNOSTICS_READ_PICKUP |
INTEGER dUnit, ndId, n, m |
|
./pkg/diagnostics/diagnostics_set_levels.F |
200 |
DIAGNOSTICS_SET_LEVELS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
201 |
DIAGNOSTICS_SET_LEVELS |
OPEN(dUnit, file='available_diagnostics.log', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
203 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
205 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
206 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
207 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
210 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
211 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
212 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
217 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
221 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
225 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
229 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
234 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
235 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
236 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
237 |
DIAGNOSTICS_SET_LEVELS |
CLOSE(dUnit) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
65 |
DIAGNOSTICS_SET_LEVELS |
INTEGER dUnit, stdUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
103 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,1P10E10.3)')' interp:', (levs(k,ld),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
108 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,25I4)')' levels:',(NINT(levs(k,ld)),k=k1,k2) |
|
./pkg/diagnostics/diagnostics_summary.F |
111 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccFlds |
|
./pkg/diagnostics/diagnostics_summary.F |
157 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
160 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
167 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
170 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
180 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I4,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
182 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccList |
|
./pkg/diagnostics/diagnostics_summary.F |
183 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(2(I5,A),2F17.6,A,I4)') |
|
./pkg/diagnostics/diagnostics_summary.F |
196 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
198 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccFlds |
|
./pkg/diagnostics/diagnostics_summary.F |
218 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
221 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
226 |
DIAGNOSTICS_SUMMARY |
IF ( dUnit.NE.standardMessageUnit ) CLOSE(dUnit) |
|
./pkg/diagnostics/diagnostics_summary.F |
35 |
DIAGNOSTICS_SUMMARY |
INTEGER dUnit, stdUnit, iLen |
|
./pkg/diagnostics/diagnostics_summary.F |
53 |
DIAGNOSTICS_SUMMARY |
dUnit = standardMessageUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
55 |
DIAGNOSTICS_SUMMARY |
& ' write diagnostics summary to file ioUnit: ',dUnit |
|
./pkg/diagnostics/diagnostics_summary.F |
62 |
DIAGNOSTICS_SUMMARY |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/diagnostics/diagnostics_summary.F |
63 |
DIAGNOSTICS_SUMMARY |
OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted') |
|
./pkg/diagnostics/diagnostics_summary.F |
85 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I10,A,1PE21.13)') |
|
./pkg/diagnostics/diagnostics_summary.F |
87 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
88 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
90 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
94 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I5,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
96 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccList |
|
./pkg/diagnostics/diagnostics_summary.F |
97 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(2(I5,A),2F17.6,A,I4)') |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
185 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
186 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(ndId,1,1) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
193 |
DIAGNOSTICS_WRITE_PICKUP |
CLOSE( dUnit ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
54 |
DIAGNOSTICS_WRITE_PICKUP |
INTEGER dUnit, ndId, n, m |