| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1576 |
GWATER |
_RL ZDEP12, AKAVE, GWFLUX, ZDEP23, HALFMX, DHDZ, |
|
./pkg/fizhi/fizhi_lsm.F |
1602 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ * FAREA |
|
./pkg/fizhi/fizhi_lsm.F |
1608 |
GWATER |
IF (GWFLUX .GE. 0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1609 |
GWATER |
GWFLUX = MIN( GWFLUX, |
|
./pkg/fizhi/fizhi_lsm.F |
1611 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(ROOTLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1613 |
GWATER |
GWFLUX = MIN( GWFLUX, HALFMX ) |
|
./pkg/fizhi/fizhi_lsm.F |
1615 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), |
|
./pkg/fizhi/fizhi_lsm.F |
1617 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), WSMAX(SFCLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1619 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), HALFMX ) |
|
./pkg/fizhi/fizhi_lsm.F |
1626 |
GWATER |
GWFLUX=GWFLUX*FRAMP |
|
./pkg/fizhi/fizhi_lsm.F |
1630 |
GWATER |
& GWFLUX / WSMAX(SFCLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1632 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1643 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ |
|
./pkg/fizhi/fizhi_lsm.F |
1648 |
GWATER |
IF (GWFLUX .GE. 0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1649 |
GWATER |
GWFLUX = MIN( GWFLUX, |
|
./pkg/fizhi/fizhi_lsm.F |
1651 |
GWATER |
GWFLUX = MIN( GWFLUX, WSMAX(RECHLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1653 |
GWATER |
GWFLUX = MIN( GWFLUX, HALFMX ) |
|
./pkg/fizhi/fizhi_lsm.F |
1655 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), |
|
./pkg/fizhi/fizhi_lsm.F |
1657 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), WSMAX(ROOTLY,ITYP(ChNo)) - |
|
./pkg/fizhi/fizhi_lsm.F |
1659 |
GWATER |
GWFLUX = -MIN( ABS(GWFLUX), HALFMX ) |
|
./pkg/fizhi/fizhi_lsm.F |
1665 |
GWATER |
GWFLUX=GWFLUX*FRAMP |
|
./pkg/fizhi/fizhi_lsm.F |
1669 |
GWATER |
& GWFLUX / WSMAX(ROOTLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1671 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1672 |
GWATER |
GDRAIN(CHNO)=GWFLUX/DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1678 |
GWATER |
GWFLUX = VGSLOX(ChNo) * AKLAY(ChNo,RECHLY) * 1000. * DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1683 |
GWATER |
GWFLUX=GWFLUX*FRAMP |
|
./pkg/fizhi/fizhi_lsm.F |
1685 |
GWATER |
GWFLUX = MIN( GWFLUX, |
|
./pkg/fizhi/fizhi_lsm.F |
1688 |
GWATER |
& GWFLUX / WSMAX(RECHLY,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
1690 |
GWATER |
RUNOFF (ChNo) = RUNOFF (ChNo) + GWFLUX/DTSTEP |