| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
119 |
FIZHI_TENDENCY_APPLY_V |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
141 |
FIZHI_TENDENCY_APPLY_V |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
142 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
143 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
151 |
FIZHI_TENDENCY_APPLY_V |
& *( gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
152 |
FIZHI_TENDENCY_APPLY_V |
& - rayleighdrag*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
163 |
FIZHI_TENDENCY_APPLY_V |
& maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
166 |
FIZHI_TENDENCY_APPLY_V |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
173 |
FIZHI_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
201 |
FIZHI_TENDENCY_APPLY_T |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
226 |
FIZHI_TENDENCY_APPLY_T |
& + ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
228 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
230 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
231 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
232 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
233 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
234 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
235 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
244 |
FIZHI_TENDENCY_APPLY_T |
& ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
246 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
247 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
248 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
249 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
250 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
252 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
253 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
257 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
264 |
FIZHI_TENDENCY_APPLY_T |
& *( maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
265 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
266 |
FIZHI_TENDENCY_APPLY_T |
& + maskW(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
267 |
FIZHI_TENDENCY_APPLY_T |
& *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
268 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
269 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
270 |
FIZHI_TENDENCY_APPLY_T |
& + maskS(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
271 |
FIZHI_TENDENCY_APPLY_T |
& *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
275 |
FIZHI_TENDENCY_APPLY_T |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
282 |
FIZHI_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
310 |
FIZHI_TENDENCY_APPLY_S |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
325 |
FIZHI_TENDENCY_APPLY_S |
& + maskC(i,j,kLev,bi,bj)*gsphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
332 |
FIZHI_TENDENCY_APPLY_S |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
336 |
FIZHI_TENDENCY_APPLY_S |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
36 |
FIZHI_TENDENCY_APPLY_U |
INTEGER kLev, bi, bj |
|
./pkg/fizhi/fizhi_tendency_apply.F |
58 |
FIZHI_TENDENCY_APPLY_U |
& + maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
59 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
67 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = maskW(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
68 |
FIZHI_TENDENCY_APPLY_U |
& *( guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
69 |
FIZHI_TENDENCY_APPLY_U |
& - rayleighdrag*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
7 |
FIZHI_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/fizhi/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_U |
& maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_U |
CALL DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
90 |
FIZHI_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/layers/layers_save.F |
125 |
LAYERS_FILL_FIELD |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/layers/layers_save.F |
135 |
LAYERS_FILL_FIELD |
INTEGER trIdentity, myNr, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
15 |
LAYERS_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/layers/layers_save.F |
191 |
LAYERS_FILL_FIELD |
IF (kLev.LE.0) THEN |
|
./pkg/layers/layers_save.F |
197 |
LAYERS_FILL_FIELD |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/layers/layers_save.F |
198 |
LAYERS_FILL_FIELD |
kFirst = kLev |
|
./pkg/layers/layers_save.F |
199 |
LAYERS_FILL_FIELD |
kLast = kLev |
|
./pkg/layers/layers_save.F |
205 |
LAYERS_FILL_FIELD |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/layers/layers_save.F |
208 |
LAYERS_FILL_FIELD |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/layers/layers_save.F |
213 |
LAYERS_FILL_FIELD |
kd0 = kLev |
|
./pkg/layers/layers_save.F |
56 |
LAYERS_FILL |
INTEGER trIdentity, kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/layers/layers_save.F |
74 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
77 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
80 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
83 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
86 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
89 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/layers/layers_save.F |
92 |
LAYERS_FILL |
& kLev, nLevs, bibjFlg, biArg, bjArg, myThid) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
100 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
103 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
109 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
112 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
59 |
MDS_PASS_R4TORL |
INTEGER kLev |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
71 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
74 |
MDS_PASS_R4TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
84 |
MDS_PASS_R4TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4torl.F |
87 |
MDS_PASS_R4TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
100 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
103 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
109 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
112 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
59 |
MDS_PASS_R4TORS |
INTEGER kLev |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
71 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
74 |
MDS_PASS_R4TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
84 |
MDS_PASS_R4TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r4tors.F |
87 |
MDS_PASS_R4TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
100 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
103 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
109 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
112 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
59 |
MDS_PASS_R8TORL |
INTEGER kLev |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
71 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
74 |
MDS_PASS_R8TORL |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
84 |
MDS_PASS_R8TORL |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8torl.F |
87 |
MDS_PASS_R8TORL |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
100 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
103 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
109 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
112 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
59 |
MDS_PASS_R8TORS |
INTEGER kLev |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
71 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
74 |
MDS_PASS_R8TORS |
arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj) |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
84 |
MDS_PASS_R8TORS |
kLev = kLo+k-1 |
|
./pkg/mdsio/mdsio_pass_r8tors.F |
87 |
MDS_PASS_R8TORS |
buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
100 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
106 |
EXTERNAL_FORCING_U |
IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
107 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
109 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
117 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
118 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
125 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
126 |
EXTERNAL_FORCING_U |
I kLev, bi, bj, -1, |
|
./model/src/external_forcing.F |
135 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
136 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
144 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
145 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
159 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
189 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
19 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
213 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
214 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
220 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
221 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
227 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
228 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
233 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
238 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
240 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
246 |
EXTERNAL_FORCING_V |
IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
247 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
249 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
257 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
258 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
265 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
266 |
EXTERNAL_FORCING_V |
I kLev, bi, bj, -2, |
|
./model/src/external_forcing.F |
274 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
275 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
283 |
EXTERNAL_FORCING_V |
U gV(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
284 |
EXTERNAL_FORCING_V |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
329 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
366 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
367 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
373 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
381 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
392 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
393 |
EXTERNAL_FORCING_T |
& *( temp_addMass - theta(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
395 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
402 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
403 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
404 |
EXTERNAL_FORCING_T |
& *( temp_addMass - tRef(kLev) ) |
|
./model/src/external_forcing.F |
406 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
418 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
427 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
429 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
444 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
447 |
EXTERNAL_FORCING_T |
km = kLev-1 |
|
./model/src/external_forcing.F |
448 |
EXTERNAL_FORCING_T |
kc = kLev |
|
./model/src/external_forcing.F |
449 |
EXTERNAL_FORCING_T |
kp = kLev+1 |
|
./model/src/external_forcing.F |
450 |
EXTERNAL_FORCING_T |
IF ( kLev.EQ.1 ) THEN |
|
./model/src/external_forcing.F |
468 |
EXTERNAL_FORCING_T |
IF ( kLev.LT.Nr ) THEN |
|
./model/src/external_forcing.F |
483 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
485 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
499 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
49 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
502 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
504 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
510 |
EXTERNAL_FORCING_T |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
511 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
513 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
522 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
523 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
524 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
533 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(kLev)) |
|
./model/src/external_forcing.F |
534 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(kLev+1)) |
|
./model/src/external_forcing.F |
539 |
EXTERNAL_FORCING_T |
kp1 = kLev+1 |
|
./model/src/external_forcing.F |
540 |
EXTERNAL_FORCING_T |
IF (kLev.EQ.Nr) THEN |
|
./model/src/external_forcing.F |
541 |
EXTERNAL_FORCING_T |
kp1 = kLev |
|
./model/src/external_forcing.F |
546 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
547 |
EXTERNAL_FORCING_T |
& -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
550 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
559 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
560 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
567 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
568 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
575 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
576 |
EXTERNAL_FORCING_T |
I kLev, bi, bj, myTime, 0, myThid ) |
|
./model/src/external_forcing.F |
582 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
583 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
590 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
591 |
EXTERNAL_FORCING_T |
I kLev, bi, bj, 1, |
|
./model/src/external_forcing.F |
599 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
600 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
607 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
608 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
615 |
EXTERNAL_FORCING_T |
U gT(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
616 |
EXTERNAL_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
630 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
662 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
688 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
689 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
695 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
696 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
702 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
703 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
713 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
714 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
715 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
717 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
724 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
725 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
726 |
EXTERNAL_FORCING_S |
& *( salt_addMass - sRef(kLev) ) |
|
./model/src/external_forcing.F |
728 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
737 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
740 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
742 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
748 |
EXTERNAL_FORCING_S |
IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN |
|
./model/src/external_forcing.F |
749 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
74 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
751 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
760 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
761 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
762 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
771 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
772 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
779 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
780 |
EXTERNAL_FORCING_S |
I kLev, bi, bj, myTime, 0, myThid ) |
|
./model/src/external_forcing.F |
786 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
787 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
794 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
795 |
EXTERNAL_FORCING_S |
I kLev, bi, bj, 2, |
|
./model/src/external_forcing.F |
803 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
804 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
811 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
812 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
819 |
EXTERNAL_FORCING_S |
U gS(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
820 |
EXTERNAL_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
87 |
EXTERNAL_FORCING_U |
U gU(1-OLx,1-OLy,kLev,bi,bj), |
|
./model/src/external_forcing.F |
88 |
EXTERNAL_FORCING_U |
I iMin,iMax,jMin,jMax, kLev, bi,bj, |
|
./model/src/external_forcing.F |
93 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
98 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
110 |
SHELFICE_FORCING_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/shelfice/shelfice_forcing.F |
145 |
SHELFICE_FORCING_S |
INTEGER kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
167 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
172 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
175 |
SHELFICE_FORCING_S |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
17 |
SHELFICE_FORCING_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./pkg/shelfice/shelfice_forcing.F |
186 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
52 |
SHELFICE_FORCING_T |
INTEGER kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
75 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
80 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
83 |
SHELFICE_FORCING_T |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
94 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/ini_p_ground.F |
330 |
INI_P_GROUND |
kLev = 1 + INT( (pLevHvR(1)-psNorm)/dpHvR ) |
|
./model/src/ini_p_ground.F |
333 |
INI_P_GROUND |
& thetaHvR, kLev, myThid ) |
|
./model/src/ini_p_ground.F |
335 |
INI_P_GROUND |
DO k=1,kLev-1 |
|
./model/src/ini_p_ground.F |
339 |
INI_P_GROUND |
dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) ) |
|
./model/src/ini_p_ground.F |
340 |
INI_P_GROUND |
& * thetaHvR(kLev)*recip_gravity |
|
./model/src/ini_p_ground.F |
74 |
INI_P_GROUND |
INTEGER kLev |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
101 |
FIZHI_TENDENCY_APPLY_T |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
129 |
FIZHI_TENDENCY_APPLY_T |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
138 |
FIZHI_TENDENCY_APPLY_T |
gT_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
139 |
FIZHI_TENDENCY_APPLY_T |
. *( gT_arr(i,j) + gthphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_S |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
175 |
FIZHI_TENDENCY_APPLY_S |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
184 |
FIZHI_TENDENCY_APPLY_S |
gS_arr(i,j) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
185 |
FIZHI_TENDENCY_APPLY_S |
. *( gS_arr(i,j) + gsphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
36 |
FIZHI_TENDENCY_APPLY_U |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
46 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
54 |
FIZHI_TENDENCY_APPLY_V |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
7 |
FIZHI_TENDENCY_APPLY_U |
I iMin,iMax,jMin,jMax, kLev, bi, bj, |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
83 |
FIZHI_TENDENCY_APPLY_V |
INTEGER kLev, bi, bj |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
93 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.128x64x5/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.128x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.128x64x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
101 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
114 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
144 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
167 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
172 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
187 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
217 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
249 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
252 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
279 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
293 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
324 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
347 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
350 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
352 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
66 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
71 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
73 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_write_phys.F |
103 |
AIM_WRITE_PHYS |
IF ( kLev.GE.1 .AND. kLev.LE.nNr ) THEN |
|
./pkg/aim_v23/aim_write_phys.F |
107 |
AIM_WRITE_PHYS |
tmpFld(i,j,1) = field(i,j,kLev,ith) |
|
./pkg/aim_v23/aim_write_phys.F |
11 |
AIM_WRITE_PHYS |
I kLev, bi, bj, iRec, myIter, myThid ) |
|
./pkg/aim_v23/aim_write_phys.F |
43 |
AIM_WRITE_PHYS |
INTEGER kLev, bi, bj, iRec, myIter, myThid |
|
./pkg/aim_v23/aim_write_phys.F |
88 |
AIM_WRITE_PHYS |
ELSEIF ( kLev.NE.0 .AND. kLev.GT.nNr ) THEN |
|
./pkg/aim_v23/aim_write_phys.F |
95 |
AIM_WRITE_PHYS |
& 'AIM_WRITE_PHYS: kLev=', kLev, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
106 |
DIAG_VEGTILE_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
112 |
DIAG_VEGTILE_FILL |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
113 |
DIAG_VEGTILE_FILL |
kFirst = kLev |
|
./pkg/diagnostics/diag_vegtile_fill.F |
114 |
DIAG_VEGTILE_FILL |
kLast = kLev |
|
./pkg/diagnostics/diag_vegtile_fill.F |
11 |
DIAG_VEGTILE_FILL |
& check, chardiag, kLev, nLevs, bi, bj, myThid ) |
|
./pkg/diagnostics/diag_vegtile_fill.F |
120 |
DIAG_VEGTILE_FILL |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
123 |
DIAG_VEGTILE_FILL |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
128 |
DIAG_VEGTILE_FILL |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diag_vegtile_fill.F |
142 |
DIAG_VEGTILE_FILL |
& 'with kLev,nLevs=', kLev,nLevs |
|
./pkg/diagnostics/diag_vegtile_fill.F |
213 |
DIAG_VEGTILE_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diag_vegtile_fill.F |
265 |
DIAG_VEGTILE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diag_vegtile_fill.F |
48 |
DIAG_VEGTILE_FILL |
INTEGER kLev, nLevs, bi, bj |
|
./pkg/diagnostics/diag_vegtile_fill.F |
96 |
DIAG_VEGTILE_FILL |
IF ( (ABS(kLev).LE.1) .AND. (npeice.EQ.1) ) THEN |
|
./pkg/diagnostics/diagnostics_fill.F |
105 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
11 |
DIAGNOSTICS_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fill.F |
146 |
DIAGNOSTICS_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill.F |
59 |
DIAGNOSTICS_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill_field.F |
108 |
DIAGNOSTICS_FILL_FIELD |
IF ( bibjFlg.GE.0 .AND. ABS(kLev).LE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
170 |
DIAGNOSTICS_FILL_FIELD |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
176 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
177 |
DIAGNOSTICS_FILL_FIELD |
kFirst = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
178 |
DIAGNOSTICS_FILL_FIELD |
kLast = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
184 |
DIAGNOSTICS_FILL_FIELD |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
187 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
192 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
19 |
DIAGNOSTICS_FILL_FIELD |
I ndId, ipointer, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
214 |
DIAGNOSTICS_FILL_FIELD |
I 'with kLev,nLevs,bibjFlg=', kLev,nLevs,bibjFlg |
|
./pkg/diagnostics/diagnostics_fill_field.F |
87 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
105 |
DIAGNOSTICS_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
11 |
DIAGNOSTICS_FILL_RS |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
148 |
DIAGNOSTICS_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
59 |
DIAGNOSTICS_FILL_RS |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
11 |
DIAGNOSTICS_FRACT_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
133 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
190 |
DIAGNOSTICS_FRACT_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
72 |
DIAGNOSTICS_FRACT_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
170 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
175 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
176 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
180 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
69 |
DIAGNOSTICS_INTERP_VERT |
INTEGER kLev |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
367 |
DIAGNOSTICS_MNC_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) kLev = 1 |
|
./pkg/diagnostics/diagnostics_out.F |
301 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
303 |
DIAGNOSTICS_OUT |
I kLev, undefRL, |
|
./pkg/diagnostics/diagnostics_out.F |
313 |
DIAGNOSTICS_OUT |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_out.F |
315 |
DIAGNOSTICS_OUT |
I kLev, undefRL, |
|
./pkg/diagnostics/diagnostics_out.F |
72 |
DIAGNOSTICS_OUT |
INTEGER nLevOutp, kLev |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
107 |
DIAGNOSTICS_SCALE_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
11 |
DIAGNOSTICS_SCALE_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
148 |
DIAGNOSTICS_SCALE_FILL |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
63 |
DIAGNOSTICS_SCALE_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
107 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
11 |
DIAGNOSTICS_SCALE_FILL_RS |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
150 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, iSp, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_scale_fill_rs.F |
63 |
DIAGNOSTICS_SCALE_FILL_RS |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
232 |
DIAGNOSTICS_SET_POINTERS |
kLev = numLevels*10 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
235 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
237 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
243 |
DIAGNOSTICS_SET_POINTERS |
ELSEIF ( kLev.GT.numLevels ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
245 |
DIAGNOSTICS_SET_POINTERS |
& 'DIAGNOSTICS_SET_POINTERS: kLev=', kLev, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
253 |
DIAGNOSTICS_SET_POINTERS |
nlevels(ld) = kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
254 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
271 |
DIAGNOSTICS_SET_POINTERS |
kLev = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
273 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
277 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
283 |
DIAGNOSTICS_SET_POINTERS |
& 'DIAGNOSTICS_SET_POINTERS: Ask for level=',kLev, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
38 |
DIAGNOSTICS_SET_POINTERS |
INTEGER i, j, k, k1, k2, kLev |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
105 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
107 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
109 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
114 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
129 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
131 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
133 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
138 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
139 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
145 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
147 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
149 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
154 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
155 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
161 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
163 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
165 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
170 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
171 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
177 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
179 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
181 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
187 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
188 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
192 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
59 |
DIAGNOSTICS_SUM_LEVELS |
INTEGER kLev |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
87 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
90 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_utils.F |
139 |
DIAGNOSTICS_GET_DIAG |
INTEGER k, kd, km, kLev |
|
./pkg/diagnostics/diagnostics_utils.F |
142 |
DIAGNOSTICS_GET_DIAG |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagnostics_utils.F |
143 |
DIAGNOSTICS_GET_DIAG |
IF ( kl.GE.1 .AND. kl.LE.kLev ) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
144 |
DIAGNOSTICS_GET_DIAG |
kLev = 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
146 |
DIAGNOSTICS_GET_DIAG |
kLev = 0 |
|
./pkg/diagnostics/diagnostics_utils.F |
149 |
DIAGNOSTICS_GET_DIAG |
DO k = 1,kLev |
|
./pkg/diagnostics/diagstats_ascii_out.F |
42 |
DIAGSTATS_ASCII_OUT |
INTEGER i, j, k, kLev, nUnit |
|
./pkg/diagnostics/diagstats_ascii_out.F |
51 |
DIAGSTATS_ASCII_OUT |
kLev = kdiag(ndId) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
54 |
DIAGSTATS_ASCII_OUT |
IF ( kLev.EQ.1 ) kLev = 0 |
|
./pkg/diagnostics/diagstats_ascii_out.F |
55 |
DIAGSTATS_ASCII_OUT |
kLev = MIN( kLev, nLev ) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
70 |
DIAGSTATS_ASCII_OUT |
DO k=0,kLev |
|
./pkg/diagnostics/diagstats_fill.F |
160 |
DIAGSTATS_FILL |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
166 |
DIAGSTATS_FILL |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
167 |
DIAGSTATS_FILL |
kFirst = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
168 |
DIAGSTATS_FILL |
kLast = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
175 |
DIAGSTATS_FILL |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
179 |
DIAGSTATS_FILL |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diagstats_fill.F |
185 |
DIAGSTATS_FILL |
kd0 = kInQSd + kLev - 1 |
|
./pkg/diagnostics/diagstats_fill.F |
186 |
DIAGSTATS_FILL |
km0 = kLev |
|
./pkg/diagnostics/diagstats_fill.F |
207 |
DIAGSTATS_FILL |
I 'with kLev,nLevs,bibjFlg=', kLev,nLevs,bibjFlg |
|
./pkg/diagnostics/diagstats_fill.F |
22 |
DIAGSTATS_FILL |
I ndId, kInQSd, region2fill, kLev, nLevs, |
|
./pkg/diagnostics/diagstats_fill.F |
95 |
DIAGSTATS_FILL |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/dic/dic_surfforcing.F |
101 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
104 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
105 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
106 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
109 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
112 |
DIC_SURFFORCING |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
114 |
DIC_SURFFORCING |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing.F |
116 |
DIC_SURFFORCING |
& min(10. _d 0, PTR_CO2(i,j,kLev))) |
|
./pkg/dic/dic_surfforcing.F |
118 |
DIC_SURFFORCING |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
119 |
DIC_SURFFORCING |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
120 |
DIC_SURFFORCING |
surfdic(i,j) = PTR_CO2(i,j,kLev) |
|
./pkg/dic/dic_surfforcing.F |
158 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
171 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
181 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
185 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
186 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
187 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
188 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
229 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
252 |
DIC_SURFFORCING |
GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
48 |
DIC_SURFFORCING |
INTEGER i,j, kLev |
|
./pkg/dic/dic_surfforcing.F |
70 |
DIC_SURFFORCING |
kLev=1 |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
96 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
99 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
175 |
DIC_SURFFORCING_INIT |
& min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2))) |
|
./pkg/dic/dic_surfforcing_init.F |
176 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
178 |
DIC_SURFFORCING_INIT |
& min(1. _d -1,PTRACER(i,j,kLev,bi,bj,3))) |
|
./pkg/dic/dic_surfforcing_init.F |
179 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2) |
|
./pkg/dic/dic_surfforcing_init.F |
182 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= PTRACER(i,j,kLev,bi,bj,3) |
|
./pkg/dic/dic_surfforcing_init.F |
184 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0 |
|
./pkg/dic/dic_surfforcing_init.F |
188 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
189 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
195 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, theta(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
197 |
DIC_SURFFORCING_INIT |
& min(50. _d 0, salt(i,j,kLev,bi,bj))) |
|
./pkg/dic/dic_surfforcing_init.F |
199 |
DIC_SURFFORCING_INIT |
& min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1))) |
|
./pkg/dic/dic_surfforcing_init.F |
201 |
DIC_SURFFORCING_INIT |
surftemp(i,j) = theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
202 |
DIC_SURFFORCING_INIT |
surfsalt(i,j) = salt(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
203 |
DIC_SURFFORCING_INIT |
surfdic(i,j) = PTRACER(i,j,kLev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
204 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
224 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
241 |
DIC_SURFFORCING_INIT |
I i,j,kLev,bi,bj, it , myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
38 |
DIC_SURFFORCING_INIT |
INTEGER i,j, kLev, it |
|
./pkg/dic/dic_surfforcing_init.F |
57 |
DIC_SURFFORCING_INIT |
kLev=1 |