| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1562 |
GWATER |
I DTSTEP, VGZDEX, VGSLOX, WETEQ1, WETEQ2, |
|
./pkg/fizhi/fizhi_lsm.F |
1582 |
GWATER |
& VGZDEX(NLAY,nch), WETEQ1(NCH), WETEQ2(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
1592 |
GWATER |
IF( SWET(CHNO,SFCLY) .GT. WETEQ1(CHNO) ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1593 |
GWATER |
FAREA=(SWET(CHNO,SFCLY) - WETEQ1(CHNO)) / (1. - WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
1606 |
GWATER |
HALFMX=0.5*ABS( SWET(CHNO,SFCLY)-WETEQ1(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
416 |
TILE |
O PHLAY(1,ROOTLY), AKLAY(1,ROOTLY), WETEQ1 |
|
./pkg/fizhi/fizhi_lsm.F |
426 |
TILE |
I VGZDEX, VGSLOX, WETEQ1, WETEQ2, |
|
./pkg/fizhi/fizhi_lsm.F |
440 |
TILE |
O PHLAY(1,ROOTLY), AKLAY(1,ROOTLY), WETEQ1 |
|
./pkg/fizhi/fizhi_lsm.F |
445 |
TILE |
I VGWMAX, CSOIL, WETEQ1, |
|
./pkg/fizhi/fizhi_lsm.F |
499 |
INTERC |
I TSNOW, SATCAP, WMAX, CSOIL, WETEQ1, |
|
./pkg/fizhi/fizhi_lsm.F |
519 |
INTERC |
& RUNSRF(NCH), FWSOIL(NCH), WETEQ1(NCH), WETINT |
|
./pkg/fizhi/fizhi_lsm.F |
627 |
INTERC |
IF(SWET1(CHNO).GT.WETEQ1(CHNO) .AND. WETEQ1(CHNO).NE.1.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
628 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
633 |
INTERC |
CAVAIL = ( 1.-WETFRC)*FWETL*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
646 |
INTERC |
IF(SWET1(CHNO).GT.WETEQ1(CHNO) .AND. WETEQ1(CHNO).NE.1.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
647 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
652 |
INTERC |
CAVAIL = (1.-WETFRC)*FWETC*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
75 |
TILE |
& WETEQ1(nch), WETEQ2(nch), |