| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
522 |
INTERC |
& WETFRC |
|
./pkg/fizhi/fizhi_lsm.F |
628 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
630 |
INTERC |
WETFRC=0. |
|
./pkg/fizhi/fizhi_lsm.F |
633 |
INTERC |
CAVAIL = ( 1.-WETFRC)*FWETL*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
634 |
INTERC |
IF ( THRUL * (1-WETFRC) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
635 |
INTERC |
WRUNL = THRUL * WETFRC |
|
./pkg/fizhi/fizhi_lsm.F |
637 |
INTERC |
* + THRUL * ( 1. - WETFRC) / WMAX(1,ITYP(ChNo)) |
|
./pkg/fizhi/fizhi_lsm.F |
647 |
INTERC |
WETFRC=(SWET1(CHNO)-WETEQ1(CHNO))/(1.-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
649 |
INTERC |
WETFRC=0. |
|
./pkg/fizhi/fizhi_lsm.F |
652 |
INTERC |
CAVAIL = (1.-WETFRC)*FWETC*WMAX(1,ITYP(ChNo))*(1-WETEQ1(CHNO)) |
|
./pkg/fizhi/fizhi_lsm.F |
653 |
INTERC |
IF ( THRUC * (1-WETFRC) .LT. CAVAIL ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
654 |
INTERC |
WRUNC = THRUC * WETFRC |
|
./pkg/fizhi/fizhi_lsm.F |
656 |
INTERC |
* + THRUC * ( 1. - WETFRC) / WMAX(1,ITYP(ChNo)) |