| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
144 |
LAYERS_FLUXCALC |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
146 |
LAYERS_FLUXCALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_fluxcalc.F |
148 |
LAYERS_FLUXCALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_fluxcalc.F |
196 |
LAYERS_FLUXCALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
205 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
206 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
207 |
LAYERS_FLUXCALC |
& ) * maskW(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
212 |
LAYERS_FLUXCALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
216 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
217 |
LAYERS_FLUXCALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
223 |
LAYERS_FLUXCALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
275 |
LAYERS_FLUXCALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
284 |
LAYERS_FLUXCALC |
& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
285 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
286 |
LAYERS_FLUXCALC |
& ) * maskS(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
291 |
LAYERS_FLUXCALC |
& - GM_PsiY(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
295 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
296 |
LAYERS_FLUXCALC |
& * dZZf(kk)*hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
302 |
LAYERS_FLUXCALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
407 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
453 |
LAYERS_DIAPYCNAL |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
489 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
491 |
LAYERS_DIAPYCNAL |
IF (kci.EQ.1) THEN |
|
./pkg/layers/layers_fluxcalc.F |
502 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,1,bi,bi)+ |
|
./pkg/layers/layers_fluxcalc.F |
503 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,1,bi,bi)) |
|
./pkg/layers/layers_fluxcalc.F |
506 |
LAYERS_DIAPYCNAL |
& dzfac * layers_dfr(i,j,kci,1,bi,bi) |
|
./pkg/layers/layers_fluxcalc.F |
509 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,2,bi,bi)+ |
|
./pkg/layers/layers_fluxcalc.F |
510 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,2,bi,bi)) |
|
./pkg/layers/layers_fluxcalc.F |
513 |
LAYERS_DIAPYCNAL |
& dzfac * layers_dfr(i,j,kci,2,bi,bi) |
|
./pkg/layers/layers_fluxcalc.F |
90 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |