| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/getpwhere.F |
100 |
GETPWHERE |
WRITE(ioUnit,'(A)') '===== GETPWHERE: CHECK start =====' |
|
./pkg/fizhi/getpwhere.F |
101 |
GETPWHERE |
WRITE(ioUnit,'(4(A,I6),A)') ' Nr =', Nr, |
|
./pkg/fizhi/getpwhere.F |
105 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=1,ntry) |
|
./pkg/fizhi/getpwhere.F |
147 |
GETPWHERE |
WRITE(ioUnit,'(1(A,I5),A)') ' Up-Bnd=', upperBnd, |
|
./pkg/fizhi/getpwhere.F |
149 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') rF_pmid |
|
./pkg/fizhi/getpwhere.F |
151 |
GETPWHERE |
WRITE(ioUnit,'(A)') |
|
./pkg/fizhi/getpwhere.F |
181 |
GETPWHERE |
WRITE(ioUnit,'(3(A,I5),A)') ' dynlev=', dynlev, |
|
./pkg/fizhi/getpwhere.F |
184 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') pressures |
|
./pkg/fizhi/getpwhere.F |
185 |
GETPWHERE |
WRITE(ioUnit,'(A)') 'pref(ntry:Nrphys):' |
|
./pkg/fizhi/getpwhere.F |
186 |
GETPWHERE |
WRITE(ioUnit,'(10F10.4)') (pref(L),L=ntry,Nrphys) |
|
./pkg/fizhi/getpwhere.F |
187 |
GETPWHERE |
WRITE(ioUnit,'(A)') 'levpressures:' |
|
./pkg/fizhi/getpwhere.F |
188 |
GETPWHERE |
WRITE(ioUnit,'(20I5)') levpressures |
|
./pkg/fizhi/getpwhere.F |
189 |
GETPWHERE |
WRITE(ioUnit,'(A)') '===== GETPWHERE: CHECK end =====' |
|
./pkg/fizhi/getpwhere.F |
46 |
GETPWHERE |
INTEGER ioUnit, upperBnd |
|
./pkg/fizhi/getpwhere.F |
99 |
GETPWHERE |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch2_recv_get_vec.F |
105 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_recv_get_vec.F |
117 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj |
|
./pkg/flt/exch2_recv_get_vec.F |
125 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6,I12)') 'RECV:',myProcId |
|
./pkg/flt/exch2_recv_get_vec.F |
61 |
EXCH2_RL_RECV_GET_VEC |
INTEGER ioUnit |
|
./pkg/flt/exch2_recv_get_vec.F |
78 |
EXCH2_RL_RECV_GET_VEC |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch2_recv_get_vec.F |
93 |
EXCH2_RL_RECV_GET_VEC |
write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj |
|
./pkg/flt/exch2_send_put_vec.F |
102 |
EXCH2_RL_SEND_PUT_VEC |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch2_send_put_vec.F |
130 |
EXCH2_RL_SEND_PUT_VEC |
write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch2_send_put_vec.F |
74 |
EXCH2_RL_SEND_PUT_VEC |
INTEGER ioUnit |
|
./pkg/flt/exch_recv_get_vec.F |
101 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
122 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
134 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
146 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
151 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'RECV_X:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
167 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
174 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
259 |
EXCH_RL_RECV_GET_VEC_Y |
INTEGER ioUnit |
|
./pkg/flt/exch_recv_get_vec.F |
275 |
EXCH_RL_RECV_GET_VEC_Y |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch_recv_get_vec.F |
282 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
306 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
326 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj |
|
./pkg/flt/exch_recv_get_vec.F |
331 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'RECV_Y:',myProcId |
|
./pkg/flt/exch_recv_get_vec.F |
347 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
354 |
EXCH_RL_RECV_GET_VEC_Y |
write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj, |
|
./pkg/flt/exch_recv_get_vec.F |
62 |
EXCH_RL_RECV_GET_VEC_X |
INTEGER ioUnit |
|
./pkg/flt/exch_recv_get_vec.F |
78 |
EXCH_RL_RECV_GET_VEC_X |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch_recv_get_vec.F |
85 |
EXCH_RL_RECV_GET_VEC_X |
write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj |
|
./pkg/flt/exch_send_put_vec.F |
127 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
163 |
EXCH_RL_SEND_PUT_VEC_X |
write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj, |
|
./pkg/flt/exch_send_put_vec.F |
291 |
EXCH_RL_SEND_PUT_VEC_Y |
INTEGER ioUnit |
|
./pkg/flt/exch_send_put_vec.F |
319 |
EXCH_RL_SEND_PUT_VEC_Y |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch_send_put_vec.F |
70 |
EXCH_RL_SEND_PUT_VEC_X |
INTEGER ioUnit |
|
./pkg/flt/exch_send_put_vec.F |
98 |
EXCH_RL_SEND_PUT_VEC_X |
ioUnit = errorMessageUnit |
|
./pkg/flt/exch_send_put_vec.F |
99 |
EXCH_RL_SEND_PUT_VEC_X |
WRITE(ioUnit,'(A,2L5)') |
|
./pkg/flt/flt_init_varia.F |
102 |
FLT_INIT_VARIA |
ioUnit = -2 |
|
./pkg/flt/flt_init_varia.F |
107 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
112 |
FLT_INIT_VARIA |
IF ( ioUnit.GT.0 .AND. nIter0.EQ.0 ) THEN |
|
./pkg/flt/flt_init_varia.F |
122 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
154 |
FLT_INIT_VARIA |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_init_varia.F |
156 |
FLT_INIT_VARIA |
ELSEIF ( ioUnit.GT.0 ) THEN |
|
./pkg/flt/flt_init_varia.F |
167 |
FLT_INIT_VARIA |
ioUnit = -1 |
|
./pkg/flt/flt_init_varia.F |
169 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
182 |
FLT_INIT_VARIA |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_init_varia.F |
207 |
FLT_INIT_VARIA |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_init_varia.F |
55 |
FLT_INIT_VARIA |
INTEGER fp, ioUnit |
|
./pkg/flt/flt_traj.F |
100 |
FLT_TRAJ |
ioUnit = -1 |
|
./pkg/flt/flt_traj.F |
101 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_traj.F |
171 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_traj.F |
176 |
FLT_TRAJ |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_traj.F |
50 |
FLT_TRAJ |
INTEGER fp, ioUnit, irecord |
|
./pkg/flt/flt_traj.F |
66 |
FLT_TRAJ |
ioUnit = -2 |
|
./pkg/flt/flt_traj.F |
67 |
FLT_TRAJ |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_traj.F |
70 |
FLT_TRAJ |
IF ( ioUnit.GT. 0 ) THEN |
|
./pkg/flt/flt_traj.F |
74 |
FLT_TRAJ |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_up.F |
162 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_up.F |
167 |
FLT_UP |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_up.F |
47 |
FLT_UP |
INTEGER fp, ioUnit, irecord |
|
./pkg/flt/flt_up.F |
59 |
FLT_UP |
ioUnit = -2 |
|
./pkg/flt/flt_up.F |
60 |
FLT_UP |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_up.F |
63 |
FLT_UP |
IF ( ioUnit.GT. 0 ) THEN |
|
./pkg/flt/flt_up.F |
67 |
FLT_UP |
CLOSE( ioUnit ) |
|
./pkg/flt/flt_up.F |
92 |
FLT_UP |
ioUnit = -1 |
|
./pkg/flt/flt_up.F |
93 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
43 |
FLT_WRITE_PICKUP |
INTEGER ioUnit, irecord |
|
./pkg/flt/flt_write_pickup.F |
73 |
FLT_WRITE_PICKUP |
ioUnit = -1 |
|
./pkg/flt/flt_write_pickup.F |
74 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
93 |
FLT_WRITE_PICKUP |
CALL MDS_WRITEVEC_LOC( fn, precFloat64, ioUnit, |
|
./pkg/flt/flt_write_pickup.F |
98 |
FLT_WRITE_PICKUP |
CLOSE( ioUnit ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
104 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
140 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
145 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
43 |
GAD_READ_PICKUP |
INTEGER ioUnit |
|
./pkg/generic_advdiff/gad_read_pickup.F |
50 |
GAD_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/generic_advdiff/gad_read_pickup.F |
99 |
GAD_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
123 |
MDS_READVEC_LOC |
IF ( ioUnit.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
126 |
MDS_READVEC_LOC |
dUnit = ioUnit |
|
./pkg/mdsio/mdsio_readvec_loc.F |
12 |
MDS_READVEC_LOC |
U ioUnit, |
|
./pkg/mdsio/mdsio_readvec_loc.F |
187 |
MDS_READVEC_LOC |
IF ( ioUnit.EQ.-1 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
215 |
MDS_READVEC_LOC |
IF ( ioUnit.EQ.-2 .OR. ioUnit.EQ.-1 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
216 |
MDS_READVEC_LOC |
ioUnit = dUnit |
|
./pkg/mdsio/mdsio_readvec_loc.F |
217 |
MDS_READVEC_LOC |
ELSE IF ( ioUnit.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
61 |
MDS_READVEC_LOC |
INTEGER ioUnit |
|
./pkg/mdsio/mdsio_writevec_loc.F |
12 |
MDS_WRITEVEC_LOC |
U ioUnit, |
|
./pkg/mdsio/mdsio_writevec_loc.F |
145 |
MDS_WRITEVEC_LOC |
IF ( ioUnit.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
148 |
MDS_WRITEVEC_LOC |
dUnit = ioUnit |
|
./pkg/mdsio/mdsio_writevec_loc.F |
208 |
MDS_WRITEVEC_LOC |
IF ( fileIsOpen .AND. ioUnit.EQ.0 ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
212 |
MDS_WRITEVEC_LOC |
IF ( ioUnit.EQ.-1 ) ioUnit = dUnit |
|
./pkg/mdsio/mdsio_writevec_loc.F |
62 |
MDS_WRITEVEC_LOC |
INTEGER ioUnit |
|
./pkg/mypackage/mypackage_read_pickup.F |
101 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
162 |
MYPACKAGE_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/mypackage/mypackage_read_pickup.F |
47 |
MYPACKAGE_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/mypackage/mypackage_read_pickup.F |
82 |
MYPACKAGE_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/mypackage/mypackage_read_pickup.F |
91 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/mypackage/mypackage_read_pickup.F |
96 |
MYPACKAGE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
100 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
113 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
123 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
129 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
136 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
143 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
212 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
220 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
224 |
CHECK_PICKUP |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
50 |
CHECK_PICKUP |
INTEGER ioUnit |
|
./model/src/check_pickup.F |
55 |
CHECK_PICKUP |
ioUnit = errorMessageUnit |
|
./model/src/check_pickup.F |
73 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/check_pickup.F |
91 |
CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
199 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
271 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
274 |
CONFIG_SUMMARY |
& .FALSE., .TRUE., ioUnit ) |
|
./model/src/config_summary.F |
277 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
278 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
345 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
348 |
CONFIG_SUMMARY |
& .FALSE., .TRUE., ioUnit ) |
|
./model/src/config_summary.F |
351 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
352 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
368 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
371 |
CONFIG_SUMMARY |
& .FALSE., .TRUE., ioUnit ) |
|
./model/src/config_summary.F |
374 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
376 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
379 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
382 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
385 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
391 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
457 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
460 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
462 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
479 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
482 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
484 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
51 |
CONFIG_SUMMARY |
INTEGER ioUnit |
|
./model/src/config_summary.F |
592 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
595 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
597 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
62 |
CONFIG_SUMMARY |
ioUnit = standardMessageUnit |
|
./model/src/config_summary.F |
69 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
71 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
74 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
751 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
753 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
756 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
758 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
77 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
80 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/config_summary.F |
82 |
CONFIG_SUMMARY |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
104 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
132 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
49 |
PTRACERS_CHECK_PICKUP |
INTEGER ioUnit |
|
./pkg/ptracers/ptracers_check_pickup.F |
55 |
PTRACERS_CHECK_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/ptracers/ptracers_check_pickup.F |
97 |
PTRACERS_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
130 |
PTRACERS_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/ptracers/ptracers_read_pickup.F |
139 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
144 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
149 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
154 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
157 |
PTRACERS_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
54 |
PTRACERS_READ_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/rw/read_glvec_rl.F |
41 |
READ_GLVEC_RL |
INTEGER ioUnit, bi, bj |
|
./pkg/rw/read_glvec_rl.F |
59 |
READ_GLVEC_RL |
ioUnit = 0 |
|
./pkg/rw/read_glvec_rl.F |
65 |
READ_GLVEC_RL |
& fullName, readBinaryPrec, ioUnit, |
|
./pkg/rw/read_glvec_rs.F |
41 |
READ_GLVEC_RS |
INTEGER ioUnit, bi, bj |
|
./pkg/rw/read_glvec_rs.F |
59 |
READ_GLVEC_RS |
ioUnit = 0 |
|
./pkg/rw/read_glvec_rs.F |
65 |
READ_GLVEC_RS |
& fullName, readBinaryPrec, ioUnit, |
|
./pkg/rw/read_mflds.F |
114 |
READ_MFLDS_SET |
INTEGER i, j, ioUnit |
|
./pkg/rw/read_mflds.F |
187 |
READ_MFLDS_SET |
ioUnit = standardMessageUnit |
|
./pkg/rw/read_mflds.F |
191 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
196 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
201 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
203 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
206 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
210 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
214 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
217 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
220 |
READ_MFLDS_SET |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
279 |
READ_MFLDS_3D_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
298 |
READ_MFLDS_3D_RL |
ioUnit = standardMessageUnit |
|
./pkg/rw/read_mflds.F |
317 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
326 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
335 |
READ_MFLDS_3D_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
406 |
READ_MFLDS_LEV_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
425 |
READ_MFLDS_LEV_RL |
ioUnit = standardMessageUnit |
|
./pkg/rw/read_mflds.F |
444 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
453 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
462 |
READ_MFLDS_LEV_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
526 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
554 |
READ_MFLDS_CHECK |
ioUnit = errorMessageUnit |
|
./pkg/rw/read_mflds.F |
557 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
560 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
564 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
568 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
573 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE(msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/read_mflds.F |
591 |
READ_MFLDS_CHECK |
ioUnit = standardMessageUnit |
|
./pkg/rw/read_mflds.F |
597 |
READ_MFLDS_CHECK |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/rw/write_glvec_rl.F |
39 |
WRITE_GLVEC_RL |
INTEGER ioUnit, bi, bj, iRec |
|
./pkg/rw/write_glvec_rl.F |
57 |
WRITE_GLVEC_RL |
ioUnit = 0 |
|
./pkg/rw/write_glvec_rl.F |
64 |
WRITE_GLVEC_RL |
I fullName, writeBinaryPrec, ioUnit, |
|
./pkg/rw/write_glvec_rs.F |
39 |
WRITE_GLVEC_RS |
INTEGER ioUnit, bi, bj, iRec |
|
./pkg/rw/write_glvec_rs.F |
57 |
WRITE_GLVEC_RS |
ioUnit = 0 |
|
./pkg/rw/write_glvec_rs.F |
64 |
WRITE_GLVEC_RS |
I fullName, writeBinaryPrec, ioUnit, |
|
./pkg/sbo/sbo_output.F |
40 |
SBO_OUTPUT |
INTEGER ioUnit |
|
./pkg/sbo/sbo_output.F |
87 |
SBO_OUTPUT |
ioUnit = 0 |
|
./pkg/sbo/sbo_output.F |
89 |
SBO_OUTPUT |
I fName, precFloat64, ioUnit, |
|
./pkg/seaice/seaice_check_pickup.F |
112 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
147 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
54 |
SEAICE_CHECK_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_check_pickup.F |
66 |
SEAICE_CHECK_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/seaice/seaice_check_pickup.F |
80 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_check_pickup.F |
88 |
SEAICE_CHECK_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
101 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
106 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
111 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
116 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
119 |
SEAICE_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
53 |
SEAICE_READ_PICKUP |
INTEGER nj, ioUnit |
|
./pkg/seaice/seaice_read_pickup.F |
92 |
SEAICE_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./model/src/read_pickup.F |
124 |
READ_PICKUP |
ioUnit = errorMessageUnit |
|
./model/src/read_pickup.F |
134 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
139 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
144 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
149 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
152 |
READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/read_pickup.F |
69 |
READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./model/src/solve_for_pressure.F |
104 |
SOLVE_FOR_PRESSURE |
ioUnit = standardMessageUnit |
|
./model/src/solve_for_pressure.F |
107 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
111 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
114 |
SOLVE_FOR_PRESSURE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./model/src/solve_for_pressure.F |
64 |
SOLVE_FOR_PRESSURE |
INTEGER ioUnit |
|
./eesupp/src/mds_check4file.F |
112 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/mds_check4file.F |
114 |
MDS_CHECK4FILE |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/mds_check4file.F |
51 |
MDS_CHECK4FILE |
INTEGER ip, is, iL, i, ioUnit |
|
./eesupp/src/mds_check4file.F |
54 |
MDS_CHECK4FILE |
ioUnit = errorMessageUnit |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
102 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
150 |
CHEAPAML_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
46 |
CHEAPAML_READ_PICKUP |
INTEGER j, nj, ioUnit |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
83 |
CHEAPAML_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
92 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
97 |
CHEAPAML_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./eesupp/src/print.F |
280 |
PRINT_LIST_I |
& markEnd, compact, ioUnit ) |
|
./eesupp/src/print.F |
319 |
PRINT_LIST_I |
INTEGER ioUnit |
|
./eesupp/src/print.F |
381 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
403 |
PRINT_LIST_I |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
413 |
PRINT_LIST_L |
& markEnd, compact, ioUnit ) |
|
./eesupp/src/print.F |
452 |
PRINT_LIST_L |
INTEGER ioUnit |
|
./eesupp/src/print.F |
514 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
536 |
PRINT_LIST_L |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
546 |
PRINT_LIST_RL |
& markEnd, compact, ioUnit ) |
|
./eesupp/src/print.F |
585 |
PRINT_LIST_RL |
INTEGER ioUnit |
|
./eesupp/src/print.F |
647 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./eesupp/src/print.F |
669 |
PRINT_LIST_RL |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT , 1) |
|
./pkg/debug/debug_cs_corner_uv.F |
108 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
111 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
116 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
119 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
124 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
127 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
132 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
135 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
150 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
153 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
156 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
159 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
171 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, S:', |
|
./pkg/debug/debug_cs_corner_uv.F |
174 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'W edge, N:', |
|
./pkg/debug/debug_cs_corner_uv.F |
177 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, W:', |
|
./pkg/debug/debug_cs_corner_uv.F |
180 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,1010) 'DEBUG_CS_CORNER_UV: ', 'S edge, E:', |
|
./pkg/debug/debug_cs_corner_uv.F |
187 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
48 |
DEBUG_CS_CORNER_UV |
INTEGER k, ioUnit |
|
./pkg/debug/debug_cs_corner_uv.F |
92 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
95 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(3A,I3)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
97 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A,I4)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
99 |
DEBUG_CS_CORNER_UV |
WRITE(ioUnit,'(2A)') 'DEBUG_CS_CORNER_UV: ', |
|
./pkg/debug/debug_cs_corner_uv.F |
9 |
DEBUG_CS_CORNER_UV |
I k, ioUnit, bi,bj, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
111 |
DIAGNOSTICS_OUT |
ioUnit= standardMessageUnit |
|
./pkg/diagnostics/diagnostics_out.F |
382 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(A,I6,3A,I8,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
386 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I6,2A)') |
|
./pkg/diagnostics/diagnostics_out.F |
391 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I6,3A)') |
|
./pkg/diagnostics/diagnostics_out.F |
396 |
DIAGNOSTICS_OUT |
WRITE(ioUnit,'(3A,I6,3A)') |
|
./pkg/diagnostics/diagnostics_out.F |
77 |
DIAGNOSTICS_OUT |
INTEGER ioUnit |
|
./pkg/diagnostics/diagstats_output.F |
120 |
DIAGSTATS_OUTPUT |
WRITE(ioUnit,'(A,I6,3A,I4,A,1PE10.3,2A)') |
|
./pkg/diagnostics/diagstats_output.F |
124 |
DIAGSTATS_OUTPUT |
WRITE(ioUnit,'(A,I6,3A,I4,2(A,1PE10.3))') |
|
./pkg/diagnostics/diagstats_output.F |
60 |
DIAGSTATS_OUTPUT |
INTEGER ioUnit |
|
./pkg/diagnostics/diagstats_output.F |
65 |
DIAGSTATS_OUTPUT |
ioUnit= standardMessageUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
100 |
DIAGSTATS_SET_REGIONS |
IF (ioUnit.GE.0 ) WRITE(ioUnit,'(A,I3,A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
42 |
DIAGSTATS_SET_REGIONS |
INTEGER ioUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
66 |
DIAGSTATS_SET_REGIONS |
ioUnit = -1 |
|
./pkg/diagnostics/diagstats_set_regions.F |
69 |
DIAGSTATS_SET_REGIONS |
ioUnit = standardMessageUnit |
|
./pkg/diagnostics/diagstats_set_regions.F |
91 |
DIAGSTATS_SET_REGIONS |
IF (ioUnit.GE.0 ) WRITE(ioUnit,'(2A)') |
|
./pkg/diagnostics/diagstats_set_regions.F |
96 |
DIAGSTATS_SET_REGIONS |
IF (ioUnit.GE.0 ) WRITE(ioUnit,'(A,I3)') |
|
./pkg/dic/dic_atmos.F |
112 |
DIC_ATMOS |
WRITE(ioUnit,*) 'weights',ntim, aWght, bWght, tmp |
|
./pkg/dic/dic_atmos.F |
202 |
DIC_ATMOS |
WRITE(ioUnit,*) 'QQ atmos C, total, pCo2', |
|
./pkg/dic/dic_atmos.F |
207 |
DIC_ATMOS |
WRITE(ioUnit,*) 'QQ total C, current, old, diff', |
|
./pkg/dic/dic_atmos.F |
210 |
DIC_ATMOS |
WRITE(ioUnit,*) 'QQ ocean C, current, old, diff', |
|
./pkg/dic/dic_atmos.F |
212 |
DIC_ATMOS |
WRITE(ioUnit,*) 'QQ air-sea flux, addition diff', |
|
./pkg/dic/dic_atmos.F |
231 |
DIC_ATMOS |
WRITE(ioUnit,*) 'QQ YEAR END' |
|
./pkg/dic/dic_atmos.F |
232 |
DIC_ATMOS |
WRITE(ioUnit,*) 'year diff: ocean, atmos, total', |
|
./pkg/dic/dic_atmos.F |
234 |
DIC_ATMOS |
WRITE(ioUnit,*) 'start diff: ocean, atmos, total ', |
|
./pkg/dic/dic_atmos.F |
66 |
DIC_ATMOS |
INTEGER ioUnit |
|
./pkg/dic/dic_atmos.F |
81 |
DIC_ATMOS |
ioUnit = standardMessageUnit |
|
./pkg/dic/dic_read_co2_pickup.F |
36 |
DIC_READ_CO2_PICKUP |
INTEGER fp, ioUnit |
|
./pkg/dic/dic_read_co2_pickup.F |
65 |
DIC_READ_CO2_PICKUP |
CALL MDSFINDUNIT( ioUnit, myThid ) |
|
./pkg/dic/dic_read_co2_pickup.F |
67 |
DIC_READ_CO2_PICKUP |
OPEN( ioUnit, file=filNam, status='old', |
|
./pkg/dic/dic_read_co2_pickup.F |
69 |
DIC_READ_CO2_PICKUP |
READ(ioUnit,rec=1) tmpFld |
|
./pkg/dic/dic_read_pickup.F |
33 |
DIC_READ_PICKUP |
INTEGER fp, ioUnit |
|
./pkg/dic/dic_read_pickup.F |
37 |
DIC_READ_PICKUP |
ioUnit = errorMessageUnit |
|
./pkg/dic/dic_read_pickup.F |
65 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
70 |
DIC_READ_PICKUP |
CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid ) |
|
./pkg/dic/dic_write_pickup.F |
45 |
DIC_WRITE_PICKUP |
INTEGER ioUnit |
|
./pkg/dic/dic_write_pickup.F |
65 |
DIC_WRITE_PICKUP |
ioUnit = 0 |
|
./pkg/dic/dic_write_pickup.F |
70 |
DIC_WRITE_PICKUP |
I fn, prec, ioUnit, |
|
./pkg/exf/exf_interp_read.F |
137 |
EXF_INTERP_READ |
CALL MDSFINDUNIT( ioUnit, myThid ) |
|
./pkg/exf/exf_interp_read.F |
139 |
EXF_INTERP_READ |
OPEN( ioUnit, file=infile, status='old', access='direct', |
|
./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 |
160 |
EXF_INTERP_READ |
CLOSE( ioUnit ) |
|
./pkg/exf/exf_interp_read.F |
53 |
EXF_INTERP_READ |
INTEGER ioUnit, length_of_rec, IL |