| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
107 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
126 |
FIZHI_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
127 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
135 |
FIZHI_TENDENCY_APPLY_V |
tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
136 |
FIZHI_TENDENCY_APPLY_V |
. - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
140 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
147 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
150 |
FIZHI_TENDENCY_APPLY_V |
call DIAGNOSTICS_FILL(tmpdiag,'RFV ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
156 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
181 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
203 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
204 |
FIZHI_TENDENCY_APPLY_T |
. *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
206 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
207 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
208 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
209 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
210 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
211 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
218 |
FIZHI_TENDENCY_APPLY_T |
tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
220 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
221 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
222 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
223 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
224 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
225 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
229 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
236 |
FIZHI_TENDENCY_APPLY_T |
. (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
237 |
FIZHI_TENDENCY_APPLY_T |
. maskW(i+1,j,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
238 |
FIZHI_TENDENCY_APPLY_T |
. uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
239 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+ |
|
./pkg/fizhi/fizhi_tendency_apply.F |
240 |
FIZHI_TENDENCY_APPLY_T |
. maskS(i,j+1,kLev,bi,bj)* |
|
./pkg/fizhi/fizhi_tendency_apply.F |
241 |
FIZHI_TENDENCY_APPLY_T |
. vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
245 |
FIZHI_TENDENCY_APPLY_T |
call DIAGNOSTICS_FILL(tmpdiag,'RFT ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
251 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
276 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
288 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
289 |
FIZHI_TENDENCY_APPLY_S |
. *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
296 |
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 |
300 |
FIZHI_TENDENCY_APPLY_S |
call DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/fizhi/fizhi_tendency_apply.F |
51 |
FIZHI_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) + |
|
./pkg/fizhi/fizhi_tendency_apply.F |
52 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
53 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
60 |
FIZHI_TENDENCY_APPLY_U |
tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
61 |
FIZHI_TENDENCY_APPLY_U |
. - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
65 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
72 |
FIZHI_TENDENCY_APPLY_U |
. maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400 |
|
./pkg/fizhi/fizhi_tendency_apply.F |
75 |
FIZHI_TENDENCY_APPLY_U |
call DIAGNOSTICS_FILL(tmpdiag,'RFU ',kLev,1,2,bi,bj,myThid) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,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) |
|
./pkg/obcs/obcs_sponge.F |
113 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
114 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
115 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
132 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBEu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
133 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
147 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
148 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
149 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
166 |
OBCS_SPONGE_U |
& float(spongeThickness-isl)*OBWu(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
167 |
OBCS_SPONGE_U |
& + float(isl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
181 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
182 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
183 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
18 |
OBCS_SPONGE_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
202 |
OBCS_SPONGE_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
226 |
OBCS_SPONGE_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
248 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
249 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
263 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
264 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
265 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
282 |
OBCS_SPONGE_V |
& float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
283 |
OBCS_SPONGE_V |
& + float(jsl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
297 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
298 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
299 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
316 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBEv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
317 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
331 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
332 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
333 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
351 |
OBCS_SPONGE_V |
& float(spongeThickness-isl)*OBWv(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
352 |
OBCS_SPONGE_V |
& + float(isl)*vVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
366 |
OBCS_SPONGE_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
367 |
OBCS_SPONGE_V |
& - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v |
|
./pkg/obcs/obcs_sponge.F |
368 |
OBCS_SPONGE_V |
& * ( vVel(i,j,kLev,bi,bj) - vrelax ) |
|
./pkg/obcs/obcs_sponge.F |
387 |
OBCS_SPONGE_T |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
415 |
OBCS_SPONGE_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
42 |
OBCS_SPONGE_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
457 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
458 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
471 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
472 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
473 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
497 |
OBCS_SPONGE_T |
& float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
498 |
OBCS_SPONGE_T |
& + float(jsl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
512 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
513 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
514 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
538 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBEt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
539 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
553 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
554 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
555 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
581 |
OBCS_SPONGE_T |
& float(spongeThickness-isl)*OBWt(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
582 |
OBCS_SPONGE_T |
& + float(isl)*theta(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
596 |
OBCS_SPONGE_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
597 |
OBCS_SPONGE_T |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_t |
|
./pkg/obcs/obcs_sponge.F |
598 |
OBCS_SPONGE_T |
& * ( theta(i,j,kLev,bi,bj) - trelax ) |
|
./pkg/obcs/obcs_sponge.F |
618 |
OBCS_SPONGE_S |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/obcs/obcs_sponge.F |
646 |
OBCS_SPONGE_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/obcs/obcs_sponge.F |
64 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
65 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
688 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
689 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
703 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
704 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
705 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
729 |
OBCS_SPONGE_S |
& float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
730 |
OBCS_SPONGE_S |
& + float(jsl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
744 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
745 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
746 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
770 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBEs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
771 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
785 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
786 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
787 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
79 |
OBCS_SPONGE_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
80 |
OBCS_SPONGE_U |
& - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u |
|
./pkg/obcs/obcs_sponge.F |
814 |
OBCS_SPONGE_S |
& float(spongeThickness-isl)*OBWs(j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
815 |
OBCS_SPONGE_S |
& + float(isl)*salt(i,j,kLev,bi,bj) ) |
|
./pkg/obcs/obcs_sponge.F |
81 |
OBCS_SPONGE_U |
& * ( uVel(i,j,kLev,bi,bj) - urelax ) |
|
./pkg/obcs/obcs_sponge.F |
829 |
OBCS_SPONGE_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
830 |
OBCS_SPONGE_S |
& - maskC(i,j,kLev,bi,bj) * lambda_obcs_s |
|
./pkg/obcs/obcs_sponge.F |
831 |
OBCS_SPONGE_S |
& * ( salt(i,j,kLev,bi,bj) - srelax ) |
|
./pkg/obcs/obcs_sponge.F |
98 |
OBCS_SPONGE_U |
& float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj) |
|
./pkg/obcs/obcs_sponge.F |
99 |
OBCS_SPONGE_U |
& + float(jsl)*uVel(i,j,kLev,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
11 |
SALT_PLUME_TENDENCY_APPLY_S |
& bi,bj,kLev,myTime,myThid) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
30 |
SALT_PLUME_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
60 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. -rF(kLev) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
63 |
SALT_PLUME_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
65 |
SALT_PLUME_TENDENCY_APPLY_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
73 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumefrac,'PLUMEKB ',kLev,1,2,bi,bj,myThid ) |
|
./model/src/external_forcing.F |
103 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
115 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
174 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
179 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
184 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
186 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
193 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
200 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
207 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
219 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
250 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
280 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
286 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
296 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
297 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
& *( temp_addMass - theta(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
300 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
307 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
308 |
EXTERNAL_FORCING_T |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
309 |
EXTERNAL_FORCING_T |
& *( temp_addMass - tRef(kLev) ) |
|
./model/src/external_forcing.F |
311 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
320 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
325 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
333 |
EXTERNAL_FORCING_T |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
334 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
& +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
344 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& bi,bj, kLev, myTime, myThid ) |
|
./model/src/external_forcing.F |
374 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
390 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
397 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
409 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
441 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/external_forcing.F |
464 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
480 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
481 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
482 |
EXTERNAL_FORCING_S |
& *( salt_addMass - salt(i,j,kLev,bi,bj) ) |
|
./model/src/external_forcing.F |
484 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
491 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
492 |
EXTERNAL_FORCING_S |
& + addMass(i,j,kLev,bi,bj)*mass2rUnit |
|
./model/src/external_forcing.F |
493 |
EXTERNAL_FORCING_S |
& *( salt_addMass - sRef(kLev) ) |
|
./model/src/external_forcing.F |
495 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
504 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
507 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
509 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
517 |
EXTERNAL_FORCING_S |
IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN |
|
./model/src/external_forcing.F |
518 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
519 |
EXTERNAL_FORCING_S |
& +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
528 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
535 |
EXTERNAL_FORCING_S |
& bi,bj, kLev, myTime, myThid ) |
|
./model/src/external_forcing.F |
541 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
555 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
562 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
75 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./model/src/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj) |
|
./model/src/external_forcing.F |
89 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
103 |
SHELFICE_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
12 |
SHELFICE_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./pkg/shelfice/shelfice_forcing.F |
135 |
SHELFICE_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
156 |
SHELFICE_FORCING_S |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
157 |
SHELFICE_FORCING_S |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
158 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
161 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
162 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
163 |
SHELFICE_FORCING_S |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
164 |
SHELFICE_FORCING_S |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
166 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
173 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc |
|
./pkg/shelfice/shelfice_forcing.F |
174 |
SHELFICE_FORCING_S |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
178 |
SHELFICE_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
43 |
SHELFICE_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/shelfice/shelfice_forcing.F |
64 |
SHELFICE_FORCING_T |
IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
65 |
SHELFICE_FORCING_T |
kp1 = MIN(kLev+1,Nr) |
|
./pkg/shelfice/shelfice_forcing.F |
66 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
69 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
70 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
71 |
SHELFICE_FORCING_T |
ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
72 |
SHELFICE_FORCING_T |
km1 = MAX(kLev-1,1) |
|
./pkg/shelfice/shelfice_forcing.F |
74 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
81 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc |
|
./pkg/shelfice/shelfice_forcing.F |
82 |
SHELFICE_FORCING_T |
& * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
IF ( kLev .EQ. kTopC(I,J,bi,bj) ) THEN |
|
./pkg/shelfice/shelfice_forcing.F |
86 |
SHELFICE_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
113 |
FIZHI_TENDENCY_APPLY_T |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
120 |
FIZHI_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
121 |
FIZHI_TENDENCY_APPLY_T |
. *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
128 |
FIZHI_TENDENCY_APPLY_S |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
153 |
FIZHI_TENDENCY_APPLY_S |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
160 |
FIZHI_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
161 |
FIZHI_TENDENCY_APPLY_S |
. *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
32 |
FIZHI_TENDENCY_APPLY_U |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
39 |
FIZHI_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
40 |
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 |
47 |
FIZHI_TENDENCY_APPLY_V |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
6 |
FIZHI_TENDENCY_APPLY_U |
. bi,bj,kLev,myTime,myThid) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
73 |
FIZHI_TENDENCY_APPLY_V |
integer iMin, iMax, jMin, jMax, kLev, bi, bj, myThid |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
80 |
FIZHI_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) + |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
81 |
FIZHI_TENDENCY_APPLY_V |
. maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F |
88 |
FIZHI_TENDENCY_APPLY_T |
. bi,bj,kLev,myTime,myThid) |
|
./model/src/ini_p_ground.F |
329 |
INI_P_GROUND |
kLev = 1 + INT( (pLevHvR(1)-psNorm)/dpHvR ) |
|
./model/src/ini_p_ground.F |
332 |
INI_P_GROUND |
& thetaHvR, kLev, mythid) |
|
./model/src/ini_p_ground.F |
334 |
INI_P_GROUND |
DO k=1,kLev-1 |
|
./model/src/ini_p_ground.F |
338 |
INI_P_GROUND |
dzLoc = ( PiHvR(kLev)-atm_Cp*(psNorm**atm_kappa) ) |
|
./model/src/ini_p_ground.F |
339 |
INI_P_GROUND |
& * thetaHvR(kLev)*recip_gravity |
|
./model/src/ini_p_ground.F |
74 |
INI_P_GROUND |
INTEGER kLev |
|
./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/hs94.1x64x5/code/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
125 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
145 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
148 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
149 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
159 |
EXTERNAL_FORCING_V |
termP = aHybSigmC(kLev)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
161 |
EXTERNAL_FORCING_V |
& + bHybSigmC(kLev) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
164 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
165 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
178 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
208 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
228 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
235 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
246 |
EXTERNAL_FORCING_T |
termP = aHybSigmC(kLev)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
248 |
EXTERNAL_FORCING_T |
& + bHybSigmC(kLev) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
253 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
254 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
255 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
267 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
298 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
75 |
EXTERNAL_FORCING_U |
termP = aHybSigmC(kLev)*rFullDepth |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
77 |
EXTERNAL_FORCING_U |
& + bHybSigmC(kLev) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
81 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
94 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
109 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
11 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
139 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
162 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
168 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
173 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
178 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
180 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
187 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
194 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
237 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
310 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
316 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
321 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
324 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
326 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
351 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
377 |
EXTERNAL_FORCING_T |
hC = hFacC(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
378 |
EXTERNAL_FORCING_T |
hW = hFacW(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
379 |
EXTERNAL_FORCING_T |
hE = hFacW(i+1,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
380 |
EXTERNAL_FORCING_T |
hN = hFacS(i ,j+1,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
381 |
EXTERNAL_FORCING_T |
hS = hFacS(i ,j ,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
384 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
386 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/external_forcing.F |
391 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
393 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(tCyl - theta(i,j,kLev,bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
398 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
400 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(tCyl-theta(i,j,kLev,bi,bj)) |
|
./verification/rotating_tank/code/external_forcing.F |
405 |
EXTERNAL_FORCING_T |
faceArea = drF(kLev)*dxG(i,j,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
407 |
EXTERNAL_FORCING_T |
& -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl) |
|
./verification/rotating_tank/code/external_forcing.F |
413 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
414 |
EXTERNAL_FORCING_T |
& -_recip_hFacC(i,j,kLev,bi,bj)*recip_drF(kLev) |
|
./verification/rotating_tank/code/external_forcing.F |
41 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
427 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
440 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
471 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/rotating_tank/code/external_forcing.F |
494 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
500 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
505 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
508 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
510 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
518 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
70 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
75 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/rotating_tank/code/external_forcing.F |
80 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/rotating_tank/code/external_forcing.F |
89 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/rotating_tank/code/external_forcing.F |
96 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
108 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
113 |
EXTERNAL_FORCING_U |
& *_maskW(i,j,kLev,bi,bj) |
|
./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 |
120 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
127 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
140 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
170 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
193 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
199 |
EXTERNAL_FORCING_V |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
204 |
EXTERNAL_FORCING_V |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
209 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
211 |
EXTERNAL_FORCING_V |
& *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
218 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
225 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
238 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
268 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
298 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
304 |
EXTERNAL_FORCING_T |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
309 |
EXTERNAL_FORCING_T |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
312 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
314 |
EXTERNAL_FORCING_T |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
339 |
EXTERNAL_FORCING_T |
& *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
348 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
361 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
392 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tidal_basin_2d/code/external_forcing.F |
415 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./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 |
421 |
EXTERNAL_FORCING_S |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
426 |
EXTERNAL_FORCING_S |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
429 |
EXTERNAL_FORCING_S |
gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
431 |
EXTERNAL_FORCING_S |
& *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
439 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
66 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
72 |
EXTERNAL_FORCING_U |
& iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tidal_basin_2d/code/external_forcing.F |
77 |
EXTERNAL_FORCING_U |
IF ( kLev .EQ. kSurface ) THEN |
|
./verification/tidal_basin_2d/code/external_forcing.F |
82 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
84 |
EXTERNAL_FORCING_U |
& *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
108 |
EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
10 |
EXTERNAL_FORCING_U |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
126 |
EXTERNAL_FORCING_V |
IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
132 |
EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
133 |
EXTERNAL_FORCING_V |
& -kV*vVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
146 |
EXTERNAL_FORCING_T |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
176 |
EXTERNAL_FORCING_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
205 |
EXTERNAL_FORCING_T |
gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
206 |
EXTERNAL_FORCING_T |
& - kT*( theta(i,j,kLev,bi,bj)-thetaEq ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
207 |
EXTERNAL_FORCING_T |
& *maskC(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
219 |
EXTERNAL_FORCING_S |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
250 |
EXTERNAL_FORCING_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
40 |
EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
58 |
EXTERNAL_FORCING_U |
IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& -kV*uVel(i,j,kLev,bi,bj) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
78 |
EXTERNAL_FORCING_V |
I iMin,iMax, jMin,jMax, bi,bj, kLev, |
|
./model/src/taueddy_external_forcing.F |
105 |
TAUEDDY_EXTERNAL_FORCING_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./model/src/taueddy_external_forcing.F |
137 |
TAUEDDY_EXTERNAL_FORCING_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
15 |
TAUEDDY_EXTERNAL_FORCING_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./model/src/taueddy_external_forcing.F |
170 |
TAUEDDY_EXTERNAL_FORCING_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./model/src/taueddy_external_forcing.F |
47 |
TAUEDDY_EXTERNAL_FORCING_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./model/src/taueddy_external_forcing.F |
80 |
TAUEDDY_EXTERNAL_FORCING_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
103 |
AIM_TENDENCY_APPLY_U |
& .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
105 |
AIM_TENDENCY_APPLY_U |
& -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
106 |
AIM_TENDENCY_APPLY_U |
& +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
107 |
AIM_TENDENCY_APPLY_U |
& )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
108 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
109 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
110 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
112 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
120 |
AIM_TENDENCY_APPLY_U |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
126 |
AIM_TENDENCY_APPLY_U |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
142 |
AIM_TENDENCY_APPLY_V |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
167 |
AIM_TENDENCY_APPLY_V |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
16 |
AIM_TENDENCY_APPLY_U |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
186 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
197 |
AIM_TENDENCY_APPLY_V |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
202 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
203 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
205 |
AIM_TENDENCY_APPLY_V |
& -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
206 |
AIM_TENDENCY_APPLY_V |
& *vVel(i,j,kLev,bi,bj)*hFacS(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
210 |
AIM_TENDENCY_APPLY_V |
ELSEIF (kLev.eq.1) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
213 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
216 |
AIM_TENDENCY_APPLY_V |
& * 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
217 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
218 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
219 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
221 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
228 |
AIM_TENDENCY_APPLY_V |
IF ( maskS(i,j,kLev-1,bi,bj) .EQ. 0. |
|
./pkg/aim_v23/aim_tendency_apply.F |
229 |
AIM_TENDENCY_APPLY_V |
& .AND. maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
231 |
AIM_TENDENCY_APPLY_V |
& -( (1.-maskC(i,j-1,kLev-1,bi,bj))*aim_drag(i,j-1,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
232 |
AIM_TENDENCY_APPLY_V |
& +(1.-maskC(i, j ,kLev-1,bi,bj))*aim_drag(i, j ,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
233 |
AIM_TENDENCY_APPLY_V |
& )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
234 |
AIM_TENDENCY_APPLY_V |
gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
235 |
AIM_TENDENCY_APPLY_V |
& + vStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
236 |
AIM_TENDENCY_APPLY_V |
& * recip_hFacS(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
238 |
AIM_TENDENCY_APPLY_V |
aim_KEvStr(i,j,bi,bj) = vStr_tmp * vVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
246 |
AIM_TENDENCY_APPLY_V |
IF (aim_taveFreq.NE.0 .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
252 |
AIM_TENDENCY_APPLY_V |
IF (usediagnostics .AND. kLev.EQ.Nr) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
268 |
AIM_TENDENCY_APPLY_T |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
291 |
AIM_TENDENCY_APPLY_T |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
304 |
AIM_TENDENCY_APPLY_T |
gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
305 |
AIM_TENDENCY_APPLY_T |
& *( gT(i,j,kLev,bi,bj) + aim_dTdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
317 |
AIM_TENDENCY_APPLY_S |
I iMin, iMax, jMin, jMax,bi,bj,kLev, |
|
./pkg/aim_v23/aim_tendency_apply.F |
340 |
AIM_TENDENCY_APPLY_S |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
354 |
AIM_TENDENCY_APPLY_S |
gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
355 |
AIM_TENDENCY_APPLY_S |
& *( gS(i,j,kLev,bi,bj) + aim_dSdt(i,j,kLev,bi,bj) ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
41 |
AIM_TENDENCY_APPLY_U |
INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj |
|
./pkg/aim_v23/aim_tendency_apply.F |
60 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
71 |
AIM_TENDENCY_APPLY_U |
IF ( kLev.EQ.Nr .AND. aim_dragStrato.GT.0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
76 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
77 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato |
|
./pkg/aim_v23/aim_tendency_apply.F |
79 |
AIM_TENDENCY_APPLY_U |
& -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
& *uVel(i,j,kLev,bi,bj)*hFacW(i,j,kLev,bi,bj)*drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
84 |
AIM_TENDENCY_APPLY_U |
ELSEIF (kLev.eq.1) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
87 |
AIM_TENDENCY_APPLY_U |
IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
90 |
AIM_TENDENCY_APPLY_U |
& * 0.5 _d 0 * uVel(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
91 |
AIM_TENDENCY_APPLY_U |
gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
92 |
AIM_TENDENCY_APPLY_U |
& + uStr_tmp*gravity*recip_drF(kLev) |
|
./pkg/aim_v23/aim_tendency_apply.F |
93 |
AIM_TENDENCY_APPLY_U |
& * recip_hFacW(i,j,kLev,bi,bj) |
|
./pkg/aim_v23/aim_tendency_apply.F |
95 |
AIM_TENDENCY_APPLY_U |
aim_KEuStr(i,j,bi,bj) = uStr_tmp * uVel(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 |
11 |
DIAGNOSTICS_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fill.F |
138 |
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.F |
97 |
DIAGNOSTICS_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
105 |
DIAGNOSTICS_FILL_FIELD |
IF ( bibjFlg.GE.0 .AND. ABS(kLev).LE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
163 |
DIAGNOSTICS_FILL_FIELD |
IF (kLev.LE.0) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
169 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.LE.nLevs ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
170 |
DIAGNOSTICS_FILL_FIELD |
kFirst = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
171 |
DIAGNOSTICS_FILL_FIELD |
kLast = kLev |
|
./pkg/diagnostics/diagnostics_fill_field.F |
177 |
DIAGNOSTICS_FILL_FIELD |
IF ( kLev.EQ.-1 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
180 |
DIAGNOSTICS_FILL_FIELD |
ELSEIF ( kLev.EQ.0 ) THEN |
|
./pkg/diagnostics/diagnostics_fill_field.F |
185 |
DIAGNOSTICS_FILL_FIELD |
kd0 = ipointer + kLev - 1 |
|
./pkg/diagnostics/diagnostics_fill_field.F |
18 |
DIAGNOSTICS_FILL_FIELD |
I ndiagnum, ipointer, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fill_field.F |
206 |
DIAGNOSTICS_FILL_FIELD |
I 'with kLev,nLevs,bibjFlg=', kLev,nLevs,bibjFlg |
|
./pkg/diagnostics/diagnostics_fill_field.F |
85 |
DIAGNOSTICS_FILL_FIELD |
INTEGER kLev, nLevs, bibjFlg, biArg, bjArg |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
11 |
DIAGNOSTICS_FILL_RS |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fill_rs.F |
140 |
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_fill_rs.F |
97 |
DIAGNOSTICS_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
11 |
DIAGNOSTICS_FRACT_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
126 |
DIAGNOSTICS_FRACT_FILL |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_fract_fill.F |
184 |
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 |
172 |
DIAGNOSTICS_INTERP_VERT |
kLev = kdiag(ndId)-k+1 |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
177 |
DIAGNOSTICS_INTERP_VERT |
IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
178 |
DIAGNOSTICS_INTERP_VERT |
qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
182 |
DIAGNOSTICS_INTERP_VERT |
pkz(i,j,k) = qtmp2(i,j,kLev,bi,bj)**kappa |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
67 |
DIAGNOSTICS_INTERP_VERT |
INTEGER kLev |
|
./pkg/diagnostics/diagnostics_out.F |
570 |
DIAGNOSTICS_OUT |
IF ( fflags(listId)(2:2).EQ.'I' ) kLev = 1 |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
11 |
DIAGNOSTICS_SCALE_FILL |
I kLev, nLevs, bibjFlg, biArg, bjArg, myThid ) |
|
./pkg/diagnostics/diagnostics_scale_fill.F |
140 |
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.F |
99 |
DIAGNOSTICS_SCALE_FILL |
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 |
142 |
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_scale_fill_rs.F |
99 |
DIAGNOSTICS_SCALE_FILL_RS |
I ndId, ipt, kLev, nLevs, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
164 |
DIAGNOSTICS_SET_POINTERS |
kLev = numLevels*10 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
167 |
DIAGNOSTICS_SET_POINTERS |
kLev = MIN(kdiag(nd),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
169 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.LE.0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
175 |
DIAGNOSTICS_SET_POINTERS |
ELSEIF ( kLev.GT.numLevels ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
177 |
DIAGNOSTICS_SET_POINTERS |
& 'DIAGNOSTICS_SET_POINTERS: kLev=', kLev, |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
185 |
DIAGNOSTICS_SET_POINTERS |
nlevels(ld) = kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
186 |
DIAGNOSTICS_SET_POINTERS |
DO k=1,kLev |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
203 |
DIAGNOSTICS_SET_POINTERS |
kLev = 0 |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
205 |
DIAGNOSTICS_SET_POINTERS |
kLev = MAX(NINT(levs(k,ld)),kLev) |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
209 |
DIAGNOSTICS_SET_POINTERS |
IF ( kLev.GT.kdiag(nd) ) THEN |
|
./pkg/diagnostics/diagnostics_set_pointers.F |
215 |
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, mm, kLev |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
102 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
104 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
106 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
111 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
126 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
128 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
130 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
135 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
136 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacC(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
142 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
144 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
146 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
151 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
152 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacW(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
158 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
160 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
162 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
167 |
DIAGNOSTICS_SUM_LEVELS |
& + tmpFac*fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
168 |
DIAGNOSTICS_SUM_LEVELS |
& *hFacS(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
174 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
176 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drC(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
178 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
183 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
184 |
DIAGNOSTICS_SUM_LEVELS |
& hFacW( i,j-1,kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
185 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS( i, j, kLev,bi,bj), |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
186 |
DIAGNOSTICS_SUM_LEVELS |
& hFacS(i-1,j, kLev,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
189 |
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 |
85 |
DIAGNOSTICS_SUM_LEVELS |
kLev = NINT(levs(k,listId)) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
88 |
DIAGNOSTICS_SUM_LEVELS |
tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj) |
|
./pkg/diagnostics/diagstats_ascii_out.F |
59 |
DIAGSTATS_ASCII_OUT |
IF ( klev.EQ.1 ) kLev = 0 |
|
./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 |
134 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
136 |
DIC_SURFFORCING |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing.F |
137 |
DIC_SURFFORCING |
I PTR_CO2(i,j,kLev), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing.F |
145 |
DIC_SURFFORCING |
I i,j,kLev,bi,bj,myIter,myThid ) |
|
./pkg/dic/dic_surfforcing.F |
155 |
DIC_SURFFORCING |
IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN |
|
./pkg/dic/dic_surfforcing.F |
159 |
DIC_SURFFORCING |
& + sca2 * theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
160 |
DIC_SURFFORCING |
& + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
161 |
DIC_SURFFORCING |
& + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
162 |
DIC_SURFFORCING |
& *theta(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
189 |
DIC_SURFFORCING |
IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing.F |
212 |
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 |
66 |
DIC_SURFFORCING |
kLev=1 |
|
./pkg/dic/dic_surfforcing.F |
88 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
90 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
92 |
DIC_SURFFORCING |
surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s |
|
./pkg/dic/dic_surfforcing.F |
93 |
DIC_SURFFORCING |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
94 |
DIC_SURFFORCING |
surfphos(i,j) = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing.F |
97 |
DIC_SURFFORCING |
surfsi(i,j) = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
181 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
183 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
185 |
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 |
186 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
187 |
DIC_SURFFORCING_INIT |
surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
190 |
DIC_SURFFORCING_INIT |
surfsi(i,j) = Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
191 |
DIC_SURFFORCING_INIT |
PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1) |
|
./pkg/dic/dic_surfforcing_init.F |
192 |
DIC_SURFFORCING_INIT |
& * maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/dic_surfforcing_init.F |
211 |
DIC_SURFFORCING_INIT |
IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN |
|
./pkg/dic/dic_surfforcing_init.F |
217 |
DIC_SURFFORCING_INIT |
I theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj), |
|
./pkg/dic/dic_surfforcing_init.F |
218 |
DIC_SURFFORCING_INIT |
I PTR_CO2(i,j,kLev), surfphos(i,j), |
|
./pkg/dic/dic_surfforcing_init.F |
226 |
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 |
56 |
DIC_SURFFORCING_INIT |
kLev=1 |
|
./pkg/dic/tracer_meanarea.F |
26 |
TRACER_MEANAREA |
INTEGER kLev |
|
./pkg/dic/tracer_meanarea.F |
45 |
TRACER_MEANAREA |
& tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/tracer_meanarea.F |
46 |
TRACER_MEANAREA |
& maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
8 |
TRACER_MEANAREA |
I tracer, kLev, |