| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_apply.F |
143 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
156 |
DWNSLP_APPLY |
k = kshelf |
|
./pkg/down_slope/dwnslp_apply.F |
167 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
181 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf,bi,bj)-tracer(ijd,k,bi,bj)), |
|
./pkg/down_slope/dwnslp_apply.F |
182 |
DWNSLP_APPLY |
& tracer(ijs,kshelf,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
184 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac_arg(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
186 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf,bi,bj)) |
|
./pkg/down_slope/dwnslp_apply.F |
68 |
DWNSLP_APPLY |
INTEGER n,ijd,ijs,kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
101 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
103 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
& -rho3d(ijd,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
106 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,kshelf+1,bi,bj).GT.rho3d(ijd,kshelf+1,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
110 |
DWNSLP_CALC_FLOW |
kdeep = kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
111 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
150 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
154 |
DWNSLP_CALC_FLOW |
& ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
56 |
DWNSLP_CALC_FLOW |
INTEGER kdeep, ishelf, jshelf, kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
232 |
DWNSLP_INIT_FIXED |
DO k = kshelf,kdeep,downward |
|
./pkg/down_slope/dwnslp_init_fixed.F |
242 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
246 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
263 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
268 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
315 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
318 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
319 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
46 |
DWNSLP_INIT_FIXED |
INTEGER ishelf,jshelf,kshelf |