| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_monitor.F |
248 |
OBCS_MON_WRITESTATS |
CHARACTER*(12) fldName |
|
./pkg/obcs/obcs_monitor.F |
252 |
OBCS_MON_WRITESTATS |
fldName = 'E_'//arrName |
|
./pkg/obcs/obcs_monitor.F |
253 |
OBCS_MON_WRITESTATS |
IF ( MOD(prtSelect,2).EQ.1 ) fldName = 'E_u'//arrName |
|
./pkg/obcs/obcs_monitor.F |
261 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMax, mon_foot_max, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
262 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMin, mon_foot_min, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
263 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMean, mon_foot_mean, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
264 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theSD, mon_foot_sd, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
266 |
OBCS_MON_WRITESTATS |
& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid ) |
|
./pkg/obcs/obcs_monitor.F |
270 |
OBCS_MON_WRITESTATS |
fldName = 'W_'//arrName |
|
./pkg/obcs/obcs_monitor.F |
271 |
OBCS_MON_WRITESTATS |
IF ( MOD(prtSelect,2).EQ.1 ) fldName = 'W_u'//arrName |
|
./pkg/obcs/obcs_monitor.F |
279 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMax, mon_foot_max, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
280 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMin, mon_foot_min, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
281 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMean, mon_foot_mean, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
282 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theSD, mon_foot_sd, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
284 |
OBCS_MON_WRITESTATS |
& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid ) |
|
./pkg/obcs/obcs_monitor.F |
288 |
OBCS_MON_WRITESTATS |
fldName = 'N_'//arrName |
|
./pkg/obcs/obcs_monitor.F |
289 |
OBCS_MON_WRITESTATS |
IF ( MOD(prtSelect,2).EQ.1 ) fldName = 'N_v'//arrName |
|
./pkg/obcs/obcs_monitor.F |
297 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMax, mon_foot_max, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
298 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMin, mon_foot_min, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
299 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMean, mon_foot_mean, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
300 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theSD, mon_foot_sd, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
302 |
OBCS_MON_WRITESTATS |
& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid ) |
|
./pkg/obcs/obcs_monitor.F |
306 |
OBCS_MON_WRITESTATS |
fldName = 'S_'//arrName |
|
./pkg/obcs/obcs_monitor.F |
307 |
OBCS_MON_WRITESTATS |
IF ( MOD(prtSelect,2).EQ.1 ) fldName = 'S_v'//arrName |
|
./pkg/obcs/obcs_monitor.F |
315 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMax, mon_foot_max, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
316 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMin, mon_foot_min, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
317 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theMean, mon_foot_mean, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
318 |
OBCS_MON_WRITESTATS |
CALL MON_OUT_RL( fldName, theSD, mon_foot_sd, myThid ) |
|
./pkg/obcs/obcs_monitor.F |
320 |
OBCS_MON_WRITESTATS |
& CALL MON_OUT_RL( fldName, arrStats(1,j), '_Int', myThid ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
52 |
PTRACERS_CHECK_PICKUP |
CHARACTER*(8) fldName |
|
./pkg/ptracers/ptracers_check_pickup.F |
64 |
PTRACERS_CHECK_PICKUP |
fldName = missFldList(j) |
|
./pkg/ptracers/ptracers_check_pickup.F |
67 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:3).EQ.'pTr' ) THEN |
|
./pkg/ptracers/ptracers_check_pickup.F |
68 |
PTRACERS_CHECK_PICKUP |
ioLabel = fldName(4:5) |
|
./pkg/ptracers/ptracers_check_pickup.F |
69 |
PTRACERS_CHECK_PICKUP |
ELSEIF ( fldName(1:4).EQ.'gPtr' ) THEN |
|
./pkg/ptracers/ptracers_check_pickup.F |
70 |
PTRACERS_CHECK_PICKUP |
ioLabel = fldName(5:6) |
|
./pkg/ptracers/ptracers_check_pickup.F |
82 |
PTRACERS_CHECK_PICKUP |
& fldName(1:3).EQ.'pTr' .AND. fldName(6:8).EQ.' ' ) THEN |
|
./pkg/ptracers/ptracers_check_pickup.F |
86 |
PTRACERS_CHECK_PICKUP |
& ' field "',fldName,'"' |
|
./pkg/ptracers/ptracers_check_pickup.F |
92 |
PTRACERS_CHECK_PICKUP |
& ( fldName(1:4).EQ.'gPtr' .AND. fldName(7:8).EQ.'m1' ) .OR. |
|
./pkg/ptracers/ptracers_check_pickup.F |
93 |
PTRACERS_CHECK_PICKUP |
& ( fldName(1:3).EQ.'pTr' .AND. fldName(6:8).EQ.'Nm1' ) |
|
./pkg/ptracers/ptracers_check_pickup.F |
96 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:4).EQ.'gPtr' ) WRITE(msgBuf,'(2A,I4)') |
|
./pkg/ptracers/ptracers_check_pickup.F |
99 |
PTRACERS_CHECK_PICKUP |
IF ( fldName(1:3).EQ.'pTr' ) WRITE(msgBuf,'(2A,I4)') |
|
./pkg/ptracers/ptracers_read_pickup.F |
222 |
PTRACERS_READ_PICKUP |
fldName = 'pTr'//PTRACERS_ioLabel(iTracer)//' ' |
|
./pkg/ptracers/ptracers_read_pickup.F |
223 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
234 |
PTRACERS_READ_PICKUP |
& fldName = 'gPtr'//PTRACERS_ioLabel(iTracer)//'m1' |
|
./pkg/ptracers/ptracers_read_pickup.F |
236 |
PTRACERS_READ_PICKUP |
& fldName = 'pTr'//PTRACERS_ioLabel(iTracer)//'Nm1' |
|
./pkg/ptracers/ptracers_read_pickup.F |
237 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
57 |
PTRACERS_READ_PICKUP |
CHARACTER*(8) fldName, missFldList(missFldDim) |
|
./pkg/rw/read_mflds.F |
242 |
READ_MFLDS_3D_RL |
I fldName, |
|
./pkg/rw/read_mflds.F |
269 |
READ_MFLDS_3D_RL |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
309 |
READ_MFLDS_3D_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
316 |
READ_MFLDS_3D_RL |
fldMiss(j) = fldName |
|
./pkg/rw/read_mflds.F |
322 |
READ_MFLDS_3D_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
331 |
READ_MFLDS_3D_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
340 |
READ_MFLDS_3D_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
368 |
READ_MFLDS_LEV_RL |
I fldName, |
|
./pkg/rw/read_mflds.F |
398 |
READ_MFLDS_LEV_RL |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
438 |
READ_MFLDS_LEV_RL |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
445 |
READ_MFLDS_LEV_RL |
fldMiss(j) = fldName |
|
./pkg/rw/read_mflds.F |
451 |
READ_MFLDS_LEV_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
460 |
READ_MFLDS_LEV_RL |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
469 |
READ_MFLDS_LEV_RL |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
497 |
READ_MFLDS_LEV_RS |
I fldName, |
|
./pkg/rw/read_mflds.F |
527 |
READ_MFLDS_LEV_RS |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
567 |
READ_MFLDS_LEV_RS |
IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j |
|
./pkg/rw/read_mflds.F |
574 |
READ_MFLDS_LEV_RS |
fldMiss(j) = fldName |
|
./pkg/rw/read_mflds.F |
580 |
READ_MFLDS_LEV_RS |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
589 |
READ_MFLDS_LEV_RS |
& 'read field: "',fldName,'", #',j,' in fldList, rec=',nj |
|
./pkg/rw/read_mflds.F |
598 |
READ_MFLDS_LEV_RS |
& 'no fldList, try to read field "',fldName, '", rec=',nj |
|
./pkg/rw/read_mflds.F |
761 |
READ_MFLDS_RENAME |
I fldName, newName, |
|
./pkg/rw/read_mflds.F |
780 |
READ_MFLDS_RENAME |
CHARACTER*(8) fldName |
|
./pkg/rw/read_mflds.F |
797 |
READ_MFLDS_RENAME |
IF ( fldList(i) .EQ. fldName ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
101 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName.EQ.'siTICES ' .AND. tIceFlag.LE.2 ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
110 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName(1:6).EQ.'siSigm' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
117 |
SEAICE_CHECK_PICKUP |
& ' restart without "',fldName,'" (set to zero)' |
|
./pkg/seaice/seaice_check_pickup.F |
121 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName(1:8).EQ.'siUicNm1' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
122 |
SEAICE_CHECK_PICKUP |
& fldName(1:8).EQ.'siVicNm1' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
128 |
SEAICE_CHECK_PICKUP |
& ' restart without "',fldName,'" (set to zero)' |
|
./pkg/seaice/seaice_check_pickup.F |
132 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName.EQ.'siTICES ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
133 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siTICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
134 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siUICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
135 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siVICE ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
136 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siAREA ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
137 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siHEFF ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
138 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siHSNOW ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
139 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siHSALT ' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
143 |
SEAICE_CHECK_PICKUP |
& 'cannot restart without field "',fldName,'"' |
|
./pkg/seaice/seaice_check_pickup.F |
147 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName.EQ.'siAREAn ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
148 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siHEFFn ' .OR. |
|
./pkg/seaice/seaice_check_pickup.F |
149 |
SEAICE_CHECK_PICKUP |
& fldName.EQ.'siHSNOWn' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
158 |
SEAICE_CHECK_PICKUP |
& 'cannot restart without ITD field "',fldName,'"' |
|
./pkg/seaice/seaice_check_pickup.F |
163 |
SEAICE_CHECK_PICKUP |
ELSEIF ( fldName(1:6).EQ.'siTrac' ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
168 |
SEAICE_CHECK_PICKUP |
IF ( fldName(7:8).EQ.fldNum ) THEN |
|
./pkg/seaice/seaice_check_pickup.F |
171 |
SEAICE_CHECK_PICKUP |
& 'restart without "',fldName,'" (set to zero)' |
|
./pkg/seaice/seaice_check_pickup.F |
184 |
SEAICE_CHECK_PICKUP |
& 'missing field "',fldName,'" not recognized' |
|
./pkg/seaice/seaice_check_pickup.F |
66 |
SEAICE_CHECK_PICKUP |
CHARACTER*(8) fldName |
|
./pkg/seaice/seaice_check_pickup.F |
92 |
SEAICE_CHECK_PICKUP |
fldName = missFldList(nj) |
|
./pkg/seaice/seaice_check_pickup.F |
93 |
SEAICE_CHECK_PICKUP |
IF ( fldName.EQ.'siTICE ' .AND. tIceFlag.LE.1 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
243 |
SEAICE_READ_PICKUP |
WRITE(fldName,'(A6,I2.2)') 'siTrac', iTrac |
|
./pkg/seaice/seaice_read_pickup.F |
244 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/seaice/seaice_read_pickup.F |
60 |
SEAICE_READ_PICKUP |
CHARACTER*(8) fldName |
|
./pkg/seaice/seaice_write_pickup.F |
140 |
SEAICE_WRITE_PICKUP |
WRITE(fldName,'(A6,I2.2)') 'siTrac', iTrac |
|
./pkg/seaice/seaice_write_pickup.F |
146 |
SEAICE_WRITE_PICKUP |
IF (j.LE.listDim) wrFldList(j) = fldName |
|
./pkg/seaice/seaice_write_pickup.F |
65 |
SEAICE_WRITE_PICKUP |
CHARACTER*(8) fldName |