Symbol Description Uses
SWET1 22



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 12 TILE
     U                 TC, TD, QA, SWET1, SWET2, SWET3, CAPAC, SNOW,
./pkg/fizhi/fizhi_lsm.F 208 TILE
      SWET(ChNo,SFCLY ) = max( min(SWET1(ChNo),1. _d 0), 0. _d 0)
./pkg/fizhi/fizhi_lsm.F 43 TILE
     &       SWET1(NCH),  SWET2(NCH),  SWET3(NCH),  CAPAC(NCH),
./pkg/fizhi/fizhi_lsm.F 460 TILE
      SWET1(ChNo) = SWET(ChNo,SFCLY)
./pkg/fizhi/fizhi_lsm.F 464 TILE
      IF(SWET1(ChNo).LT.1.E-10) SWET1(CHNO) = 0.0
./pkg/fizhi/fizhi_lsm.F 500 INTERC
     U                   TC, CAPAC, SNOW,  SWET1,  RUNOFF, RUNSRF,
./pkg/fizhi/fizhi_lsm.F 518 INTERC
     &      SNOW(NCH), SWET1(NCH),  RUNOFF(NCH),  SMELT(NCH),
./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 636 INTERC
          SWET1(ChNo) = SWET1(ChNo)
./pkg/fizhi/fizhi_lsm.F 640 INTERC
          SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(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 655 INTERC
          SWET1(ChNo) = SWET1(ChNo)
./pkg/fizhi/fizhi_lsm.F 659 INTERC
          SWET1(CHNO) = SWET1(CHNO) + CAVAIL / WMAX(1,ITYP(ChNo))
./pkg/fizhi/fizhi_lsm.F 827 FLUXES
     U             TC,     TD,     EA,  SWET1,   SNOW,
./pkg/fizhi/fizhi_lsm.F 851 FLUXES
     &               SWET1(NCH,NLAY),   SNOW(NCH),