| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffieldrec.F |
11 |
EXF_GETFFIELDREC |
I fldName, usefldyearlyfields, |
|
./pkg/exf/exf_getffieldrec.F |
126 |
EXF_GETFFIELDREC |
& 'for field "', fldName, '": myTime=', myTime, ' earlier' |
|
./pkg/exf/exf_getffieldrec.F |
238 |
EXF_GETFFIELDREC |
& 'EXF_GetFFieldRec: for field "', fldName, |
|
./pkg/exf/exf_getffieldrec.F |
48 |
EXF_GETFFIELDREC |
CHARACTER*(*) fldName |
|
./pkg/exf/exf_init_fld.F |
107 |
EXF_INIT_FLD |
& 'field "', fldName, |
|
./pkg/exf/exf_init_fld.F |
12 |
EXF_INIT_FLD |
I fldName, fldFile, fldMask, |
|
./pkg/exf/exf_init_fld.F |
50 |
EXF_INIT_FLD |
CHARACTER*(*) fldName |
|
./pkg/exf/exf_set_fld.F |
11 |
EXF_SET_FLD |
I fldName, fldFile, fldMask, |
|
./pkg/exf/exf_set_fld.F |
122 |
EXF_SET_FLD |
& 'processing field "', fldName, '", file: ', fldFile(1:j) |
|
./pkg/exf/exf_set_fld.F |
140 |
EXF_SET_FLD |
& '"', fldName, '", Invalid fldPeriod=', fldPeriod, |
|
./pkg/exf/exf_set_fld.F |
148 |
EXF_SET_FLD |
I fldName, useExfYearlyFields, |
|
./pkg/exf/exf_set_fld.F |
177 |
EXF_SET_FLD |
& 'field "', fldName, '", it=', myIter, |
|
./pkg/exf/exf_set_fld.F |
236 |
EXF_SET_FLD |
& 'field "', fldName, '", it=', myIter, |
|
./pkg/exf/exf_set_fld.F |
74 |
EXF_SET_FLD |
CHARACTER*(*) fldName |
|
./pkg/obcs/obcs_exf_load.F |
277 |
OBCS_EXF_READ_XZ |
CHARACTER*(6) fldName |
|
./pkg/obcs/obcs_exf_load.F |
304 |
OBCS_EXF_READ_XZ |
fldName = 'obcs'//obName |
|
./pkg/obcs/obcs_exf_load.F |
307 |
OBCS_EXF_READ_XZ |
I fldName, useYearlyFields, |
|
./pkg/obcs/obcs_exf_load.F |
384 |
OBCS_EXF_READ_XZ |
fldName = 'SIob'//obName |
|
./pkg/obcs/obcs_exf_load.F |
387 |
OBCS_EXF_READ_XZ |
I fldName, useYearlyFields, |
|
./pkg/obcs/obcs_exf_load.F |
552 |
OBCS_EXF_READ_YZ |
CHARACTER*(6) fldName |
|
./pkg/obcs/obcs_exf_load.F |
579 |
OBCS_EXF_READ_YZ |
fldName = 'obcs'//obName |
|
./pkg/obcs/obcs_exf_load.F |
582 |
OBCS_EXF_READ_YZ |
I fldName, useYearlyFields, |
|
./pkg/obcs/obcs_exf_load.F |
659 |
OBCS_EXF_READ_YZ |
fldName = 'SIob'//obName |
|
./pkg/obcs/obcs_exf_load.F |
662 |
OBCS_EXF_READ_YZ |
I fldName, useYearlyFields, |
|
./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 |
228 |
PTRACERS_READ_PICKUP |
fldName = 'pTr'//PTRACERS_ioLabel(iTracer)//' ' |
|
./pkg/ptracers/ptracers_read_pickup.F |
229 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
240 |
PTRACERS_READ_PICKUP |
& fldName = 'gPtr'//PTRACERS_ioLabel(iTracer)//'m1' |
|
./pkg/ptracers/ptracers_read_pickup.F |
242 |
PTRACERS_READ_PICKUP |
& fldName = 'pTr'//PTRACERS_ioLabel(iTracer)//'Nm1' |
|
./pkg/ptracers/ptracers_read_pickup.F |
243 |
PTRACERS_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/ptracers/ptracers_read_pickup.F |
58 |
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 |
248 |
SEAICE_READ_PICKUP |
WRITE(fldName,'(A6,I2.2)') 'siTrac', iTrac |
|
./pkg/seaice/seaice_read_pickup.F |
249 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( fldName, |
|
./pkg/seaice/seaice_read_pickup.F |
61 |
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 |