| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_apply.F |
143 |
DWNSLP_APPLY |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
152 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
154 |
DWNSLP_APPLY |
gTracer(ijd,k) = gTracer(ijd,k) + gTrLoc(k) |
|
./pkg/down_slope/dwnslp_apply.F |
155 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
169 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
170 |
DWNSLP_APPLY |
& tracer(ijd,k), |
|
./pkg/down_slope/dwnslp_apply.F |
172 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijd,k) |
|
./pkg/down_slope/dwnslp_apply.F |
173 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf)-tracer(ijd,k)), |
|
./pkg/down_slope/dwnslp_apply.F |
74 |
DWNSLP_APPLY |
INTEGER n,ijd,ijs,kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
101 |
DWNSLP_CALC_FLOW |
ijs = ijd + ijr |
|
./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 |
112 |
DWNSLP_CALC_FLOW |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./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 |
126 |
DWNSLP_CALC_FLOW |
ij = MAX( ijd, ijs ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
56 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/down_slope/dwnslp_calc_flow.F |
99 |
DWNSLP_CALC_FLOW |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
212 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
213 |
DWNSLP_INIT_FIXED |
ideep = 1-OLx + MOD(ijd-1,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
214 |
DWNSLP_INIT_FIXED |
jdeep = 1-Oly + (ijd-1)/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
309 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
310 |
DWNSLP_INIT_FIXED |
ideep = 1-OLx + MOD(ijd-1,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
311 |
DWNSLP_INIT_FIXED |
jdeep = 1-Oly + (ijd-1)/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
45 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |