| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_interp_read.F |
219 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
221 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r4(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
226 |
EXF_INTERP_READ |
ijs = (j-1)*nx_in |
|
./pkg/exf/exf_interp_read.F |
228 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i+ijs) |
|
./pkg/exf/exf_interp_read.F |
77 |
EXF_INTERP_READ |
INTEGER ijs |
|
./pkg/down_slope/dwnslp_apply.F |
144 |
DWNSLP_APPLY |
ijs = ijd + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
146 |
DWNSLP_APPLY |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
147 |
DWNSLP_APPLY |
tmpFld = tracer(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
160 |
DWNSLP_APPLY |
& *( tmpFld - tracer(ijs,k) ) |
|
./pkg/down_slope/dwnslp_apply.F |
161 |
DWNSLP_APPLY |
& *recip_drF(k)*recip_hFac(ijs,k) |
|
./pkg/down_slope/dwnslp_apply.F |
162 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_apply.F |
163 |
DWNSLP_APPLY |
gTracer(ijs,k) = gTracer(ijs,k) + gTrLoc(0) |
|
./pkg/down_slope/dwnslp_apply.F |
169 |
DWNSLP_APPLY |
& bi,bj,n,ijd,ijs,k, |
|
./pkg/down_slope/dwnslp_apply.F |
174 |
DWNSLP_APPLY |
& (tracer(ijs,kshelf)-tracer(ijd,k)), |
|
./pkg/down_slope/dwnslp_apply.F |
175 |
DWNSLP_APPLY |
& tracer(ijs,kshelf), |
|
./pkg/down_slope/dwnslp_apply.F |
177 |
DWNSLP_APPLY |
& *recip_drF(kshelf)*recip_hFac(ijs,kshelf) |
|
./pkg/down_slope/dwnslp_apply.F |
178 |
DWNSLP_APPLY |
& *recip_rA_arg(ijs,bi,bj)* |
|
./pkg/down_slope/dwnslp_apply.F |
179 |
DWNSLP_APPLY |
& (tmpFld-tracer(ijs,kshelf)) |
|
./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 |
102 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
104 |
DWNSLP_CALC_FLOW |
dRhoH = rho3d(ijs,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 |
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 |
149 |
DWNSLP_CALC_FLOW |
ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
150 |
DWNSLP_CALC_FLOW |
ishelf = 1-OLx + mod(ijs-1,xSize) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
151 |
DWNSLP_CALC_FLOW |
jshelf = 1-OLy + (ijs-1)/xSize |
|
./pkg/down_slope/dwnslp_calc_flow.F |
152 |
DWNSLP_CALC_FLOW |
kshelf = kBottom(ijs,bi,bj) |
|
./pkg/down_slope/dwnslp_calc_flow.F |
56 |
DWNSLP_CALC_FLOW |
INTEGER n, ijd, ijr, ijs |