| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_calc_flow.F |
100 |
DWNSLP_CALC_FLOW |
ijs = ijd + ijr |
|
./pkg/down_slope/dwnslp_calc_flow.F |
126 |
DWNSLP_CALC_FLOW |
sgnFac = SIGN(1,-ijr) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
127 |
DWNSLP_CALC_FLOW |
IF ( ABS(ijr).EQ.1 ) THEN |
|
./pkg/down_slope/dwnslp_calc_flow.F |
55 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/down_slope/dwnslp_calc_flow.F |
99 |
DWNSLP_CALC_FLOW |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
214 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
215 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
216 |
DWNSLP_INIT_FIXED |
jshelf = jdeep + ijr/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
239 |
DWNSLP_INIT_FIXED |
IF (ABS(ijr).EQ.1) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
259 |
DWNSLP_INIT_FIXED |
IF (ABS(ijr).EQ.1) THEN |
|
./pkg/down_slope/dwnslp_init_fixed.F |
311 |
DWNSLP_INIT_FIXED |
ijr = DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
312 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
313 |
DWNSLP_INIT_FIXED |
jshelf = jdeep + ijr/xSize |
|
./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 |
44 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |