| File |
Line number |
Procedure |
Code |
|
./pkg/down_slope/dwnslp_apply.F |
141 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
143 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
158 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_apply.F |
159 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac_arg(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
161 |
DWNSLP_APPLY |
trStar(ijs,k,bi,bj) = trStar(ijs,k,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
166 |
DWNSLP_APPLY |
gTracer(ijs,k) = gTracer(ijs,k) + gTrLoc(0) |
|
./pkg/down_slope/dwnslp_apply.F |
176 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./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 |
182 |
DWNSLP_APPLY |
& tracer(ijs,kshelf,bi,bj), |
|
./pkg/down_slope/dwnslp_apply.F |
184 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac_arg(ijs,kshelf,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
185 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
186 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf,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 |
101 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
103 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,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 |
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 |
147 |
DWNSLP_CALC_FLOW |
ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
148 |
DWNSLP_CALC_FLOW |
ishelf = 1-OLx + mod(ijs-1,xSize) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
149 |
DWNSLP_CALC_FLOW |
jshelf = 1-OLy + (ijs-1)/xSize |
|
./pkg/down_slope/dwnslp_calc_flow.F |
150 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
55 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |
|
./pkg/exf/exf_interp_read.F |
222 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
224 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r4(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
229 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
231 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
78 |
EXF_INTERP_READ |
INTEGER ijs |