Symbol Description Uses
DTC 44


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1007 FLUXES 
        DTC =
./pkg/fizhi/fizhi_lsm.F 1011 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 1017 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1023 FLUXES 
      ESATNW = ESATTC(CHNO)+DESDTC(CHNO)*DTC
./pkg/fizhi/fizhi_lsm.F 1041 FLUXES 
        DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) /
./pkg/fizhi/fizhi_lsm.F 1044 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 1050 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1052 FLUXES 
        IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN
./pkg/fizhi/fizhi_lsm.F 1055 FLUXES 
          DTC = ( Q0X + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) /
./pkg/fizhi/fizhi_lsm.F 1057 FLUXES 
          IF(TC(CHNO)+DTC .LT. TF) THEN
./pkg/fizhi/fizhi_lsm.F 1058 FLUXES 
            DTC=TF-TC(CHNO)
./pkg/fizhi/fizhi_lsm.F 1059 FLUXES 
            Q0SNOW=A11*DTC+A12*DEA
./pkg/fizhi/fizhi_lsm.F 1063 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1073 FLUXES 
        DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 1075 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 1079 FLUXES 
        EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1081 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1082 FLUXES 
        IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN
./pkg/fizhi/fizhi_lsm.F 1086 FLUXES 
          DTC = ( Q0X - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 1087 FLUXES 
          IF(TC(CHNO)+DTC .LT. TF) THEN
./pkg/fizhi/fizhi_lsm.F 1088 FLUXES 
            DTC=TF-TC(CHNO)
./pkg/fizhi/fizhi_lsm.F 1089 FLUXES 
            Q0SNOW=A11*DTC+A12*DEA
./pkg/fizhi/fizhi_lsm.F 1092 FLUXES 
          EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1094 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1100 FLUXES 
      TC(ChNo) = TC(ChNo) + DTC
./pkg/fizhi/fizhi_lsm.F 1106 FLUXES 
      HLWUP(CHNO) = HLWTC + DHLWTC*DTC
./pkg/fizhi/fizhi_lsm.F 860 FLUXES 
     &           DEA,     DTC,  SNLEFT,     Q0X,  Q0SNOW,
./pkg/fizhi/fizhi_lsm.F 931 FLUXES 
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 933 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 937 FLUXES 
          EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 939 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 947 FLUXES 
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 949 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 953 FLUXES 
          EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 955 FLUXES 
     &                                            DHSDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 965 FLUXES 
      IF(TC(CHNO)+DTC .GT. TF .AND. SNLEFT.GT.0.) THEN
./pkg/fizhi/fizhi_lsm.F 974 FLUXES 
            DTC = ( Q0X - A12*DEA ) / A11
./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 982 FLUXES 
          DEA=(F0-A21*DTC)/A22
./pkg/fizhi/fizhi_lsm.F 983 FLUXES 
          Q0SNOW=A11*DTC+A12*DEA
./pkg/fizhi/fizhi_lsm.F 987 FLUXES 
          STRDG1(ChNo)=DTC
./pkg/fizhi/fizhi_lsm.F 992 FLUXES 
     &                   DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 994 FLUXES 
     &                                            DHSDTC(ChNo)*DTC