Symbol | Description | Uses |
WETFRC | 13 |
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)) |