| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_calc_flow.F |
111 |
DWNSLP_CALC_FLOW |
kdeep = kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
113 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
115 |
DWNSLP_CALC_FLOW |
DWNSLP_deepK(n,bi,bj) = kdeep |
|
./pkg/down_slope/dwnslp_calc_flow.F |
57 |
DWNSLP_CALC_FLOW |
INTEGER kdeep, ishelf, jshelf, kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kdeep = kLowC (ideep, jdeep, 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 |
46 |
DWNSLP_INIT_FIXED |
INTEGER ideep, jdeep, kdeep, dkMx |