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))