| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1636 |
GWATER |
ZDEP23 = VGZDEX(ROOTLY,ChNo) + VGZDEX(RECHLY,ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
1637 |
GWATER |
DHDZ=1. + 2. * (PHLAY(ChNo,ROOTLY) - PHLAY(ChNo,RECHLY)) / ZDEP23 |
|
./pkg/fizhi/fizhi_lsm.F |
1641 |
GWATER |
AKAVE = AKLAY(ChNo,RECHLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1651 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(RECHLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1652 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1656 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1670 |
GWATER |
SWET(ChNo,RECHLY) = SWET(ChNo,RECHLY) + |
|
./pkg/fizhi/fizhi_lsm.F |
1671 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1678 |
GWATER |
GWFLUX = VGSLOX(ChNo) * AKLAY(ChNo,RECHLY) * 1000. * DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1686 |
GWATER |
& SWET(ChNo,RECHLY) * WSMAX(RECHLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1687 |
GWATER |
SWET(ChNo,RECHLY) = SWET(ChNo,RECHLY) - |
|
./pkg/fizhi/fizhi_lsm.F |
1688 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
177 |
TILE |
VGZDEX(RECHLY,ChNo) = VGZDEP(RECHLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
210 |
TILE |
SWET(ChNo,RECHLY) = max( min(SWET3(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
419 |
TILE |
I NCH, ITYP, SWET(1,RECHLY), VGBEEX, |
|
./pkg/fizhi/fizhi_lsm.F |
421 |
TILE |
O PHLAY(1,RECHLY), AKLAY(1,RECHLY), WETEQ2 |
|
./pkg/fizhi/fizhi_lsm.F |
462 |
TILE |
SWET3(ChNo) = SWET(ChNo,RECHLY) |
|
./pkg/fizhi/sibber.h |
11 |
NO PROCEDURE |
INTEGER NLAY, SFCLY, ROOTLY, RECHLY |
|
./pkg/fizhi/sibber.h |
19 |
NO PROCEDURE |
PARAMETER (SFCLY = 1, ROOTLY = SFCLY + 1, RECHLY = ROOTLY + 1) |