| File |
Line number |
Procedure |
Code |
|
./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 |
216 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
219 |
DWNSLP_INIT_FIXED |
kdeep = kSurfC(ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
223 |
DWNSLP_INIT_FIXED |
kdeep = kLowC (ideep, jdeep, bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
228 |
DWNSLP_INIT_FIXED |
i= MAX(ideep,ishelf) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
235 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
252 |
DWNSLP_INIT_FIXED |
dz_bottom = Ro_surf(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
258 |
DWNSLP_INIT_FIXED |
& - R_low(ideep,jdeep,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 |
313 |
DWNSLP_INIT_FIXED |
ishelf = ideep + MOD(ijr,xSize) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
317 |
DWNSLP_INIT_FIXED |
dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
320 |
DWNSLP_INIT_FIXED |
dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf |
|
./pkg/down_slope/dwnslp_init_fixed.F |
323 |
DWNSLP_INIT_FIXED |
& bi,bj,n, ' :', ijd, ideep, jdeep, |
|
./pkg/down_slope/dwnslp_init_fixed.F |
46 |
DWNSLP_INIT_FIXED |
INTEGER ideep, jdeep, kdeep, dkMx |