| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
k = kshelf |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf)-tracer(ijd,k)), |
|
./pkg/down_slope/dwnslp_apply.F |
175 |
DWNSLP_APPLY |
& tracer(ijs,kshelf), |
|
./pkg/down_slope/dwnslp_apply.F |
177 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf)) |
|
./pkg/down_slope/dwnslp_apply.F |
74 |
DWNSLP_APPLY |
INTEGER n,ijd,ijs,kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
102 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
105 |
DWNSLP_CALC_FLOW |
& -rho3d(ijd,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
107 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,kshelf+1,bi,bj).GT.rho3d(ijd,kshelf+1,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
111 |
DWNSLP_CALC_FLOW |
kdeep = kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
156 |
DWNSLP_CALC_FLOW |
& ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf, |
|
./pkg/down_slope/dwnslp_calc_flow.F |
57 |
DWNSLP_CALC_FLOW |
INTEGER kdeep, ishelf, jshelf, kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
220 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
224 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
233 |
DWNSLP_INIT_FIXED |
DO k = kshelf,kdeep,downward |
|
./pkg/down_slope/dwnslp_init_fixed.F |
243 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
247 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
264 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
269 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
316 |
DWNSLP_INIT_FIXED |
kshelf = kSurfC(ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
317 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
319 |
DWNSLP_INIT_FIXED |
kshelf = kLowC (ishelf,jshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
320 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
324 |
DWNSLP_INIT_FIXED |
& ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
47 |
DWNSLP_INIT_FIXED |
INTEGER ishelf,jshelf,kshelf |