| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_fluxcalc.F |
108 |
LAYERS_FLUXCALC |
INTEGER i,j,k,kk,kg,kci,kp1,kloc |
|
./pkg/layers/layers_fluxcalc.F |
167 |
LAYERS_FLUXCALC |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
169 |
LAYERS_FLUXCALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_fluxcalc.F |
171 |
LAYERS_FLUXCALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_fluxcalc.F |
216 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
221 |
LAYERS_FLUXCALC |
& dzfac * uVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
230 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
231 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
232 |
LAYERS_FLUXCALC |
& ) * maskW(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
237 |
LAYERS_FLUXCALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
241 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
296 |
LAYERS_FLUXCALC |
dzfac = dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
310 |
LAYERS_FLUXCALC |
& VH(i,j,kloc,bi,bj) + dzfac * vVel(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
319 |
LAYERS_FLUXCALC |
& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
321 |
LAYERS_FLUXCALC |
& ) * maskS(i,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
326 |
LAYERS_FLUXCALC |
& - GM_PsiY(i,j, kci, bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
330 |
LAYERS_FLUXCALC |
& + delPsi*recip_drF(kci)*_recip_hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
454 |
LAYERS_DIAPYCNAL |
INTEGER i,j,k,kk,kg,kci,kloc |
|
./pkg/layers/layers_fluxcalc.F |
524 |
LAYERS_DIAPYCNAL |
kci = CellIndex(kk) |
|
./pkg/layers/layers_fluxcalc.F |
537 |
LAYERS_DIAPYCNAL |
kci = kk |
|
./pkg/layers/layers_fluxcalc.F |
613 |
LAYERS_DIAPYCNAL |
dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
615 |
LAYERS_DIAPYCNAL |
dzfac = dRf(kci) * hFacC(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
630 |
LAYERS_DIAPYCNAL |
Tfac = layers_alpha(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
631 |
LAYERS_DIAPYCNAL |
Sfac = layers_beta(i,j,kci,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
633 |
LAYERS_DIAPYCNAL |
IF (kci.EQ.1) THEN |
|
./pkg/layers/layers_fluxcalc.F |
646 |
LAYERS_DIAPYCNAL |
& Tfac * dzfac * layers_sw(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
652 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
653 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
656 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_dfr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
659 |
LAYERS_DIAPYCNAL |
& (layers_dfx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
660 |
LAYERS_DIAPYCNAL |
& layers_dfy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
663 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_dfr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
667 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,1,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
668 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,1,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
671 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_afr(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
674 |
LAYERS_DIAPYCNAL |
& (layers_afx(i,j,kci,2,bi,bj)+ |
|
./pkg/layers/layers_fluxcalc.F |
675 |
LAYERS_DIAPYCNAL |
& layers_afy(i,j,kci,2,bi,bj)) |
|
./pkg/layers/layers_fluxcalc.F |
678 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_afr(i,j,kci,2,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
682 |
LAYERS_DIAPYCNAL |
& dzfac * Tfac * layers_tottend(i,j,kci,1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
685 |
LAYERS_DIAPYCNAL |
& dzfac * Sfac * layers_tottend(i,j,kci,2,bi,bj) |