| File |
Line number |
Procedure |
Code |
|
./pkg/layers/layers_calc.F |
110 |
LAYERS_CALC |
kci = CellIndex(kk) |
|
./pkg/layers/layers_calc.F |
163 |
LAYERS_CALC |
& dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
167 |
LAYERS_CALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_calc.F |
169 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_calc.F |
171 |
LAYERS_CALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_calc.F |
174 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
175 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
181 |
LAYERS_CALC |
& + dZZf(kk) * hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
234 |
LAYERS_CALC |
& + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
238 |
LAYERS_CALC |
kcip1 = MIN(kci+1,Nr) |
|
./pkg/layers/layers_calc.F |
240 |
LAYERS_CALC |
IF (kci.GE.Nr) maskp1 = 0. |
|
./pkg/layers/layers_calc.F |
242 |
LAYERS_CALC |
& - GM_PsiX(i,j, kci, bi,bj) |
|
./pkg/layers/layers_calc.F |
245 |
LAYERS_CALC |
& + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
246 |
LAYERS_CALC |
& * dZZf(kk)*hFacW(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
252 |
LAYERS_CALC |
& + dZZf(kk) * hFacS(i,j,kci,bi,bj) |
|
./pkg/layers/layers_calc.F |
58 |
LAYERS_CALC |
INTEGER i,j,k,kk,kg,kci |