| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1440 |
WUPDAT |
WLAY2 = SWET(ChNo,ROOTLY) * VGWMAX(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1516 |
WUPDAT |
SWET(ChNo,ROOTLY) = (WLAY2 - ELAY2) / VGWMAX(ROOTLY,ITYP(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
1521 |
WUPDAT |
SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1591 |
GWATER |
ZDEP12 = VGZDEX(SFCLY,ChNo) + VGZDEX(ROOTLY,ChNo) |
|
./pkg/fizhi/fizhi_lsm.F |
1594 |
GWATER |
DHDZ = 1. + 2.*(PHSAT(CHNO)-PHLAY(CHNO,ROOTLY))/ZDEP12 |
|
./pkg/fizhi/fizhi_lsm.F |
1598 |
GWATER |
DHDZ = 1. + 2.*(PHLAY(ChNo,SFCLY)-PHLAY(ChNo,ROOTLY))/ZDEP12 |
|
./pkg/fizhi/fizhi_lsm.F |
1599 |
GWATER |
AKAVE = AKLAY(ChNo,ROOTLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1611 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(ROOTLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1612 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1616 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1631 |
GWATER |
SWET(ChNo,ROOTLY) = SWET(ChNo,ROOTLY) + |
|
./pkg/fizhi/fizhi_lsm.F |
1632 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
|
./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 |
1639 |
GWATER |
AKAVE = AKLAY(ChNo,ROOTLY) |
|
./pkg/fizhi/fizhi_lsm.F |
1646 |
GWATER |
HALFMX=0.5*ABS( SWET(CHNO,ROOTLY)-WETEQ2(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1647 |
GWATER |
& * WSMAX(ROOTLY,ITYP(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
1650 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1657 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), WSMAX(ROOTLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1658 |
GWATER |
& SWET(ChNo,ROOTLY) * WSMAX(ROOTLY,ITYP(ChNo)) ) |
|
./pkg/fizhi/fizhi_lsm.F |
1668 |
GWATER |
SWET(ChNo,ROOTLY) = SWET(ChNo,ROOTLY) - |
|
./pkg/fizhi/fizhi_lsm.F |
1669 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
176 |
TILE |
VGZDEX(ROOTLY,ChNo) = VGZDEP(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
209 |
TILE |
SWET(ChNo,ROOTLY) = max( min(SWET2(ChNo),1. _d 0), 0. _d 0) |
|
./pkg/fizhi/fizhi_lsm.F |
220 |
TILE |
& SWET(ChNo,ROOTLY) * VGWMAX(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
222 |
TILE |
& (VGWMAX(SFCLY,ITYP(ChNo)) + VGWMAX(ROOTLY,ITYP(ChNo))) |
|
./pkg/fizhi/fizhi_lsm.F |
414 |
TILE |
I NCH, ITYP, SWET(1,ROOTLY), VGBEEX, |
|
./pkg/fizhi/fizhi_lsm.F |
416 |
TILE |
O PHLAY(1,ROOTLY), AKLAY(1,ROOTLY), WETEQ1 |
|
./pkg/fizhi/fizhi_lsm.F |
438 |
TILE |
I NCH, ITYP, SWET(1,ROOTLY), VGBEEX, |
|
./pkg/fizhi/fizhi_lsm.F |
440 |
TILE |
O PHLAY(1,ROOTLY), AKLAY(1,ROOTLY), WETEQ1 |
|
./pkg/fizhi/fizhi_lsm.F |
461 |
TILE |
SWET2(ChNo) = SWET(ChNo,ROOTLY) |
|
./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) |