File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_lsm.F |
1576 |
GWATER |
_RL ZDEP12, AKAVE, GWFLUX, ZDEP23, HALFMX, DHDZ, |
./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 |
1602 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ * FAREA |
./pkg/fizhi/fizhi_lsm.F |
1637 |
GWATER |
DHDZ=1. + 2. * (PHLAY(ChNo,ROOTLY) - PHLAY(ChNo,RECHLY)) / ZDEP23 |
./pkg/fizhi/fizhi_lsm.F |
1638 |
GWATER |
IF(DHDZ.GE.0.) THEN |
./pkg/fizhi/fizhi_lsm.F |
1643 |
GWATER |
GWFLUX = 1000. * DTSTEP * AKAVE * DHDZ |