| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_calc_flow.F |
100 |
DWNSLP_CALC_FLOW |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
101 |
DWNSLP_CALC_FLOW |
ijs = ijd + ijr |
|
./pkg/down_slope/dwnslp_calc_flow.F |
127 |
DWNSLP_CALC_FLOW |
sgnFac = SIGN(1,-ijr) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
128 |
DWNSLP_CALC_FLOW |
IF ( ABS(ijr).EQ.1 ) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
56 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/down_slope/dwnslp_init_fixed.F |
215 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
216 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
217 |
DWNSLP_INIT_FIXED |
jshelf = jdeep + ijr/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
240 |
DWNSLP_INIT_FIXED |
IF (ABS(ijr).EQ.1) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
260 |
DWNSLP_INIT_FIXED |
IF (ABS(ijr).EQ.1) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
312 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
313 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
314 |
DWNSLP_INIT_FIXED |
jshelf = jdeep + ijr/xSize |
|
./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 |
45 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |