Symbol Description Uses
CHNO 319



File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 963 FLUXES
      SMELT(CHNO)=0.
./pkg/fizhi/fizhi_lsm.F 964 FLUXES
      SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO)
./pkg/fizhi/fizhi_lsm.F 965 FLUXES
      IF(TC(CHNO)+DTC .GT. TF .AND. SNLEFT.GT.0.) THEN
./pkg/fizhi/fizhi_lsm.F 971 FLUXES
        SMELT(CHNO)=SNLEFT/DTSTEP
./pkg/fizhi/fizhi_lsm.F 980 FLUXES
        IF(TC(CHNO)+DTC .LT. TF) THEN
./pkg/fizhi/fizhi_lsm.F 981 FLUXES
          DTC=TF-TC(CHNO)
./pkg/fizhi/fizhi_lsm.F 984 FLUXES
          SMELT(CHNO)=(Q0-Q0SNOW)/ALHM