| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_apply.F |
140 |
DWNSLP_APPLY |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
141 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
148 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijd,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
149 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
150 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
151 |
DWNSLP_APPLY |
trStar(ijd,k,bi,bj) = trStar(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
153 |
DWNSLP_APPLY |
tmpFld = tracer(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
168 |
DWNSLP_APPLY |
gTracer(ijd,k) = gTracer(ijd,k) + gTrLoc(k) |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
177 |
DWNSLP_APPLY |
& tracer(ijd,k,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijd,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
180 |
DWNSLP_APPLY |
& *recip_rA_arg(ijd,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
181 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf,bi,bj)-tracer(ijd,k,bi,bj)), |
|
./pkg/down_slope/dwnslp_apply.F |
68 |
DWNSLP_APPLY |
INTEGER n,ijd,ijs,kshelf |
|
./pkg/down_slope/dwnslp_calc_flow.F |
100 |
DWNSLP_CALC_FLOW |
ijs = ijd + ijr |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
& -rho3d(ijd,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
106 |
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 |
DO k=kshelf+1,kBottom(ijd,bi,bj),downward |
|
./pkg/down_slope/dwnslp_calc_flow.F |
112 |
DWNSLP_CALC_FLOW |
IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k |
|
./pkg/down_slope/dwnslp_calc_flow.F |
125 |
DWNSLP_CALC_FLOW |
ij = MAX( ijd, ijs ) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
55 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/down_slope/dwnslp_calc_flow.F |
98 |
DWNSLP_CALC_FLOW |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
211 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
212 |
DWNSLP_INIT_FIXED |
ideep = 1-OLx + MOD(ijd-1,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
213 |
DWNSLP_INIT_FIXED |
jdeep = 1-Oly + (ijd-1)/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
308 |
DWNSLP_INIT_FIXED |
ijd = DWNSLP_ijDeep(n,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
309 |
DWNSLP_INIT_FIXED |
ideep = 1-OLx + MOD(ijd-1,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
310 |
DWNSLP_INIT_FIXED |
jdeep = 1-Oly + (ijd-1)/xSize |
|
./pkg/down_slope/dwnslp_init_fixed.F |
322 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
44 |
DWNSLP_INIT_FIXED |
INTEGER n, ncount, ijd, ijr |