| 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 |
1031 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1046 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1075 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1088 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1107 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1117 |
MDSREADFIELD_2D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1152 |
MDSREADFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1241 |
MDSWRITEFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
128 |
MDSREADFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1301 |
MDSWRITEFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
1317 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1320 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1356 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
1366 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
1380 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
1422 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1427 |
MDSWRITEFIELD_2D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
1454 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
1469 |
MDSWRITEFIELD_2D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
1488 |
MDSWRITEFIELD_2D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
154 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
209 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
237 |
MDSREADFIELD_3D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
270 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
285 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
314 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
327 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
346 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
356 |
MDSREADFIELD_3D_GL |
read(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
391 |
MDSREADFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
479 |
MDSWRITEFIELD_3D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
539 |
MDSWRITEFIELD_3D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
554 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
557 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
593 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_gl.F |
603 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_gl.F |
617 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl.F |
659 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
664 |
MDSWRITEFIELD_3D_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl.F |
691 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl.F |
706 |
MDSWRITEFIELD_3D_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl.F |
725 |
MDSWRITEFIELD_3D_GL |
close( dUnit ) |
|
./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 |
834 |
MDSREADFIELD_2D_GL |
integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl.F |
889 |
MDSREADFIELD_2D_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl.F |
916 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
970 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl.F |
998 |
MDSREADFIELD_2D_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
103 |
MDSREADFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
151 |
MDSREADFIELD_XZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
173 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
188 |
MDSREADFIELD_XZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
215 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
228 |
MDSREADFIELD_XZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
300 |
MDSREADFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
331 |
MDSREADFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
378 |
MDSREADFIELD_YZ_GL |
open( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_gl_slice.F |
400 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
415 |
MDSREADFIELD_YZ_GL |
read(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
442 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
455 |
MDSREADFIELD_YZ_GL |
close( dUnit ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
541 |
MDSWRITEFIELD_XZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
576 |
MDSWRITEFIELD_XZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
592 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
597 |
MDSWRITEFIELD_XZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
623 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
638 |
MDSWRITEFIELD_XZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
655 |
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 |
769 |
MDSWRITEFIELD_YZ_GL |
integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL |
|
./pkg/mdsio/mdsio_gl_slice.F |
804 |
MDSWRITEFIELD_YZ_GL |
call MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/mdsio/mdsio_gl_slice.F |
820 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
825 |
MDSWRITEFIELD_YZ_GL |
open( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_gl_slice.F |
851 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r4seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
866 |
MDSWRITEFIELD_YZ_GL |
write(dUnit,rec=irec) r8seg |
|
./pkg/mdsio/mdsio_gl_slice.F |
883 |
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 |
67 |
MDS_RD_REC_RL |
READ( dUnit, rec=iRec ) arr |
|
./pkg/mdsio/mdsio_rd_rec_rl.F |
69 |
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 |
211 |
MDS_READ_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_field.F |
258 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
282 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
287 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_read_field.F |
353 |
MDS_READ_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_field.F |
370 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
423 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
425 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
453 |
MDS_READ_FIELD |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_read_field.F |
475 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
477 |
MDS_READ_FIELD |
READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_read_field.F |
482 |
MDS_READ_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_field.F |
495 |
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_whalos.F |
110 |
MDS_READ_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
126 |
MDS_READ_WHALOS |
OPEN( dUnit, file=pfName, status='old', |
|
./pkg/mdsio/mdsio_read_whalos.F |
138 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_procbuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
140 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_procbuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
144 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_globuff_r4 |
|
./pkg/mdsio/mdsio_read_whalos.F |
146 |
MDS_READ_WHALOS |
READ(dUnit,rec=irec2d) fld2d_globuff_r8 |
|
./pkg/mdsio/mdsio_read_whalos.F |
173 |
MDS_READ_WHALOS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_read_whalos.F |
88 |
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 |
201 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
204 |
MDS_READVEC_LOC |
I filePrec, dUnit, iRec, nSize, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
216 |
MDS_READVEC_LOC |
ioUnit = dUnit |
|
./pkg/mdsio/mdsio_readvec_loc.F |
218 |
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_readvector.F |
109 |
MDSREADVECTOR |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_readvector.F |
144 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
169 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./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 |
208 |
MDSREADVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_readvector.F |
218 |
MDSREADVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_readvector.F |
257 |
MDSREADVECTOR |
OPEN( dUnit, file=dataFName, status='old', |
|
./pkg/mdsio/mdsio_readvector.F |
287 |
MDSREADVECTOR |
READ(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_readvector.F |
299 |
MDSREADVECTOR |
READ(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_readvector.F |
334 |
MDSREADVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_readvector.F |
59 |
MDSREADVECTOR |
INTEGER iG,jG,irec,dUnit,IL,pIL |
|
./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 |
67 |
MDS_WR_REC_RL |
WRITE( dUnit, rec=iRec ) arr |
|
./pkg/mdsio/mdsio_wr_rec_rl.F |
75 |
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 |
239 |
MDS_WRITE_FIELD |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_field.F |
253 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
256 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
324 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
329 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize ) |
|
./pkg/mdsio/mdsio_write_field.F |
338 |
MDS_WRITE_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_field.F |
405 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
408 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
459 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
461 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
477 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
480 |
MDS_WRITE_FIELD |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_write_field.F |
489 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
491 |
MDS_WRITE_FIELD |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_write_field.F |
496 |
MDS_WRITE_FIELD |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_field.F |
537 |
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_whalos.F |
112 |
MDS_WRITE_WHALOS |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
128 |
MDS_WRITE_WHALOS |
OPEN( dUnit, file=pfName, status='unknown', |
|
./pkg/mdsio/mdsio_write_whalos.F |
158 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_procbuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
160 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_procbuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
164 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_globuff_r4 |
|
./pkg/mdsio/mdsio_write_whalos.F |
166 |
MDS_WRITE_WHALOS |
WRITE(dUnit,rec=irec2d) fld2d_globuff_r8 |
|
./pkg/mdsio/mdsio_write_whalos.F |
175 |
MDS_WRITE_WHALOS |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_write_whalos.F |
90 |
MDS_WRITE_WHALOS |
integer dUnit, irec2d |
|
./pkg/mdsio/mdsio_writelocal.F |
116 |
MDS_WRITELOCAL |
INTEGER irec,dUnit,IL |
|
./pkg/mdsio/mdsio_writelocal.F |
265 |
MDS_WRITELOCAL |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_writelocal.F |
272 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status='unknown', |
|
./pkg/mdsio/mdsio_writelocal.F |
275 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
335 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
337 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
353 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
356 |
MDS_WRITELOCAL |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writelocal.F |
365 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
367 |
MDS_WRITELOCAL |
WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2) |
|
./pkg/mdsio/mdsio_writelocal.F |
372 |
MDS_WRITELOCAL |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writelocal.F |
409 |
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/mdsio/mdsio_writevector.F |
129 |
MDSWRITEVECTOR |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/mdsio/mdsio_writevector.F |
143 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
146 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
187 |
MDSWRITEVECTOR |
WRITE(dUnit,rec=irec) xy_buffer_r4 |
|
./pkg/mdsio/mdsio_writevector.F |
199 |
MDSWRITEVECTOR |
WRITE(dUnit,rec=irec) xy_buffer_r8 |
|
./pkg/mdsio/mdsio_writevector.F |
214 |
MDSWRITEVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writevector.F |
244 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
249 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
266 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_NEW_STATUS, |
|
./pkg/mdsio/mdsio_writevector.F |
271 |
MDSWRITEVECTOR |
OPEN( dUnit, file=dataFName, status=_OLD_STATUS, |
|
./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 |
307 |
MDSWRITEVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writevector.F |
337 |
MDSWRITEVECTOR |
CLOSE( dUnit ) |
|
./pkg/mdsio/mdsio_writevector.F |
69 |
MDSWRITEVECTOR |
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/debug/write_fullarray_rl.F |
117 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
121 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1), |
|
./pkg/debug/write_fullarray_rl.F |
125 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./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 |
65 |
WRITE_FULLARRAY_RL |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/debug/write_fullarray_rl.F |
88 |
WRITE_FULLARRAY_RL |
OPEN( dUnit, file=fullName, status='unknown', |
|
./pkg/debug/write_fullarray_rl.F |
92 |
WRITE_FULLARRAY_RL |
WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj), |
|
./pkg/debug/write_fullarray_rl.F |
96 |
WRITE_FULLARRAY_RL |
CLOSE(dUnit) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
150 |
DIAGNOSTICS_READ_PICKUP |
CALL MDSFINDUNIT( dUnit, myThid ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
151 |
DIAGNOSTICS_READ_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
154 |
DIAGNOSTICS_READ_PICKUP |
READ(dUnit,'(I10)') ndiag(jdiag(m,n),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, n, m |
|
./pkg/diagnostics/diagnostics_set_levels.F |
190 |
DIAGNOSTICS_SET_LEVELS |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
191 |
DIAGNOSTICS_SET_LEVELS |
OPEN(dUnit, file='available_diagnostics.log', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
193 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_set_levels.F |
195 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
196 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
197 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
200 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
201 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
202 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
207 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
211 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,A,I6,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
215 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
219 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(I6,3A,I3,6A)') n, ' |', cdiag(n), '|', |
|
./pkg/diagnostics/diagnostics_set_levels.F |
224 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
225 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccHead |
|
./pkg/diagnostics/diagnostics_set_levels.F |
226 |
DIAGNOSTICS_SET_LEVELS |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_set_levels.F |
227 |
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 |
156 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
159 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
166 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I6)') |
|
./pkg/diagnostics/diagnostics_summary.F |
169 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
179 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A,I4,2A)') 'listId=', ld, |
|
./pkg/diagnostics/diagnostics_summary.F |
181 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccList |
|
./pkg/diagnostics/diagnostics_summary.F |
182 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(2(I5,A),2F17.6,A,I4)') |
|
./pkg/diagnostics/diagnostics_summary.F |
195 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
197 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccFlds |
|
./pkg/diagnostics/diagnostics_summary.F |
217 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
220 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') ccLine |
|
./pkg/diagnostics/diagnostics_summary.F |
225 |
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 |
186 |
DIAGNOSTICS_WRITE_PICKUP |
CALL MDSFINDUNIT( dUnit, mythid ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
187 |
DIAGNOSTICS_WRITE_PICKUP |
OPEN( dUnit, file=fn ) |
|
./pkg/diagnostics/diagnostics_write_pickup.F |
190 |
DIAGNOSTICS_WRITE_PICKUP |
WRITE(dUnit,'(I10)') ndiag(jdiag(m,n),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, n, m |