File |
Line number |
Procedure |
Code |
./pkg/gmredi/gmredi_read_pickup.F |
208 |
GMREDI_READ_PICKUP |
O missFldList, |
./pkg/gmredi/gmredi_read_pickup.F |
222 |
GMREDI_READ_PICKUP |
& 'cannot restart without field "',missFldList(nm),'"' |
./pkg/gmredi/gmredi_read_pickup.F |
50 |
GMREDI_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./model/src/check_pickup.F |
103 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'dEtaHdt ' |
./model/src/check_pickup.F |
118 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'EtaN ' |
./model/src/check_pickup.F |
125 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'Phi_NHyd' ) THEN |
./model/src/check_pickup.F |
12 |
CHECK_PICKUP |
I missFldList, |
./model/src/check_pickup.F |
131 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'dPhiNH ' ) THEN |
./model/src/check_pickup.F |
138 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'AddMass ' |
./model/src/check_pickup.F |
145 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'FricHeat' ) THEN |
./model/src/check_pickup.F |
153 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'Uvel ' .OR. |
./model/src/check_pickup.F |
154 |
CHECK_PICKUP |
& missFldList(j).EQ.'Vvel ' .OR. |
./model/src/check_pickup.F |
155 |
CHECK_PICKUP |
& missFldList(j).EQ.'Theta ' .OR. |
./model/src/check_pickup.F |
156 |
CHECK_PICKUP |
& missFldList(j).EQ.'Salt ' .OR. |
./model/src/check_pickup.F |
157 |
CHECK_PICKUP |
& missFldList(j).EQ.'EtaN ' ) THEN |
./model/src/check_pickup.F |
160 |
CHECK_PICKUP |
& 'cannot restart without field "',missFldList(j),'"' |
./model/src/check_pickup.F |
164 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'PhiHyd ' .OR. |
./model/src/check_pickup.F |
165 |
CHECK_PICKUP |
& missFldList(j).EQ.'AddMass ' .OR. |
./model/src/check_pickup.F |
166 |
CHECK_PICKUP |
& missFldList(j).EQ.'dEtaHdt ' .OR. |
./model/src/check_pickup.F |
167 |
CHECK_PICKUP |
& missFldList(j).EQ.'EtaH ' ) THEN |
./model/src/check_pickup.F |
170 |
CHECK_PICKUP |
& 'cannot currently restart without field "',missFldList(j),'"' |
./model/src/check_pickup.F |
175 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GuNm1 ' .OR. |
./model/src/check_pickup.F |
176 |
CHECK_PICKUP |
& missFldList(j).EQ.'GvNm1 ' ) THEN |
./model/src/check_pickup.F |
178 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GuNm2 ' .OR. |
./model/src/check_pickup.F |
179 |
CHECK_PICKUP |
& missFldList(j).EQ.'GvNm2 ' ) THEN |
./model/src/check_pickup.F |
181 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GtNm1 ' .OR. |
./model/src/check_pickup.F |
182 |
CHECK_PICKUP |
& missFldList(j).EQ.'TempNm1 ' ) THEN |
./model/src/check_pickup.F |
184 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GtNm2 ' .OR. |
./model/src/check_pickup.F |
185 |
CHECK_PICKUP |
& missFldList(j).EQ.'TempNm2 ' ) THEN |
./model/src/check_pickup.F |
187 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GsNm1 ' .OR. |
./model/src/check_pickup.F |
188 |
CHECK_PICKUP |
& missFldList(j).EQ.'SaltNm1 ' ) THEN |
./model/src/check_pickup.F |
190 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GsNm2 ' .OR. |
./model/src/check_pickup.F |
191 |
CHECK_PICKUP |
& missFldList(j).EQ.'SaltNm2 ' ) THEN |
./model/src/check_pickup.F |
193 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GwNm1 ' ) THEN |
./model/src/check_pickup.F |
195 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'GwNm2 ' ) THEN |
./model/src/check_pickup.F |
202 |
CHECK_PICKUP |
& 'missing field "',missFldList(j),'" not recognized' |
./model/src/check_pickup.F |
37 |
CHECK_PICKUP |
CHARACTER*(8) missFldList(*) |
./model/src/check_pickup.F |
85 |
CHECK_PICKUP |
IF ( missFldList(j).EQ.'dEtaHdt ' |
./model/src/check_pickup.F |
93 |
CHECK_PICKUP |
ELSEIF ( missFldList(j).EQ.'dPhiNH ' |
./pkg/mypackage/mypackage_read_pickup.F |
161 |
MYPACKAGE_READ_PICKUP |
O missFldList, |
./pkg/mypackage/mypackage_read_pickup.F |
175 |
MYPACKAGE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/mypackage/mypackage_read_pickup.F |
51 |
MYPACKAGE_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/ptracers/ptracers_check_pickup.F |
119 |
PTRACERS_CHECK_PICKUP |
& 'missing field "',missFldList(j),'" not recognized' |
./pkg/ptracers/ptracers_check_pickup.F |
11 |
PTRACERS_CHECK_PICKUP |
I missFldList, |
./pkg/ptracers/ptracers_check_pickup.F |
35 |
PTRACERS_CHECK_PICKUP |
CHARACTER*(8) missFldList(*) |
./pkg/ptracers/ptracers_check_pickup.F |
64 |
PTRACERS_CHECK_PICKUP |
fldName = missFldList(j) |
./pkg/ptracers/ptracers_read_pickup.F |
257 |
PTRACERS_READ_PICKUP |
O missFldList, |
./pkg/ptracers/ptracers_read_pickup.F |
267 |
PTRACERS_READ_PICKUP |
I missFldList, |
./pkg/ptracers/ptracers_read_pickup.F |
58 |
PTRACERS_READ_PICKUP |
CHARACTER*(8) fldName, missFldList(missFldDim) |
./pkg/seaice/seaice_check_pickup.F |
10 |
SEAICE_CHECK_PICKUP |
I missFldList, |
./pkg/seaice/seaice_check_pickup.F |
37 |
SEAICE_CHECK_PICKUP |
CHARACTER*(8) missFldList(*) |
./pkg/seaice/seaice_check_pickup.F |
81 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICES ' ) tIceFlag = tIceFlag + 2 |
./pkg/seaice/seaice_check_pickup.F |
82 |
SEAICE_CHECK_PICKUP |
IF ( missFldList(nj).EQ.'siTICE ' ) tIceFlag = tIceFlag + 1 |
./pkg/seaice/seaice_check_pickup.F |
92 |
SEAICE_CHECK_PICKUP |
fldName = missFldList(nj) |
./pkg/seaice/seaice_read_pickup.F |
286 |
SEAICE_READ_PICKUP |
O missFldList, |
./pkg/seaice/seaice_read_pickup.F |
296 |
SEAICE_READ_PICKUP |
I missFldList, |
./pkg/seaice/seaice_read_pickup.F |
55 |
SEAICE_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/shelfice/shelfice_read_pickup.F |
144 |
SHELFICE_READ_PICKUP |
O missFldList, |
./pkg/shelfice/shelfice_read_pickup.F |
158 |
SHELFICE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/shelfice/shelfice_read_pickup.F |
47 |
SHELFICE_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/streamice/streamice_read_pickup.F |
163 |
STREAMICE_READ_PICKUP |
O missFldList, |
./pkg/streamice/streamice_read_pickup.F |
177 |
STREAMICE_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/streamice/streamice_read_pickup.F |
48 |
STREAMICE_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./model/src/read_pickup.F |
440 |
READ_PICKUP |
O missFldList, |
./model/src/read_pickup.F |
450 |
READ_PICKUP |
I missFldList, |
./model/src/read_pickup.F |
69 |
READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
216 |
ATM_CPL_READ_PICKUP |
O missFldList, |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
230 |
ATM_CPL_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/atm_compon_interf/atm_cpl_read_pickup.F |
55 |
ATM_CPL_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/atm_phys/atm_phys_read_pickup.F |
151 |
ATM_PHYS_READ_PICKUP |
O missFldList, |
./pkg/atm_phys/atm_phys_read_pickup.F |
165 |
ATM_PHYS_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/atm_phys/atm_phys_read_pickup.F |
51 |
ATM_PHYS_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/bbl/bbl_read_pickup.F |
138 |
BBL_READ_PICKUP |
O missFldList, |
./pkg/bbl/bbl_read_pickup.F |
151 |
BBL_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/bbl/bbl_read_pickup.F |
50 |
BBL_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |
./pkg/cheapaml/cheapaml_read_pickup.F |
159 |
CHEAPAML_READ_PICKUP |
O missFldList, |
./pkg/cheapaml/cheapaml_read_pickup.F |
174 |
CHEAPAML_READ_PICKUP |
IF ( missFldList(j).EQ.'gTairNm1' ) THEN |
./pkg/cheapaml/cheapaml_read_pickup.F |
176 |
CHEAPAML_READ_PICKUP |
ELSEIF ( missFldList(j).EQ.'gQairNm1' ) THEN |
./pkg/cheapaml/cheapaml_read_pickup.F |
178 |
CHEAPAML_READ_PICKUP |
ELSEIF ( missFldList(j).EQ.'gTracNm1' ) THEN |
./pkg/cheapaml/cheapaml_read_pickup.F |
183 |
CHEAPAML_READ_PICKUP |
& 'cannot restart without field "',missFldList(nj),'"' |
./pkg/cheapaml/cheapaml_read_pickup.F |
51 |
CHEAPAML_READ_PICKUP |
CHARACTER*(8) missFldList(missFldDim) |