Symbol Description Uses
DEA 46


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1006 FLUXES 
        DEA = EM(CHNO) - EA(CHNO)
./pkg/fizhi/fizhi_lsm.F 1008 FLUXES 
     &   (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA)
./pkg/fizhi/fizhi_lsm.F 1012 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 1016 FLUXES 
        SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 1024 FLUXES 
      EANEW = EA(CHNO) + DEA
./pkg/fizhi/fizhi_lsm.F 1040 FLUXES 
        DEA = EM(CHNO) - EA(CHNO)
./pkg/fizhi/fizhi_lsm.F 1041 FLUXES 
        DTC = ( Q0 + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) /
./pkg/fizhi/fizhi_lsm.F 1045 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 1049 FLUXES 
        SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 1055 FLUXES 
          DTC = ( Q0X + ALHX(CHNO)*ETURB(ChNo) - DHSDEA(CHNO)*DEA ) /
./pkg/fizhi/fizhi_lsm.F 1059 FLUXES 
            Q0SNOW=A11*DTC+A12*DEA
./pkg/fizhi/fizhi_lsm.F 1062 FLUXES 
          SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 1071 FLUXES 
      IF( CHOKE .AND. ABS(DEA) .GT. 0.5*EA(CHNO) ) THEN
./pkg/fizhi/fizhi_lsm.F 1072 FLUXES 
        DEA = SIGN(.5*EA(CHNO),DEA)
./pkg/fizhi/fizhi_lsm.F 1073 FLUXES 
        DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 1076 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 1077 FLUXES 
          STRDG8(ChNo)=-A12*DEA/A11
./pkg/fizhi/fizhi_lsm.F 1079 FLUXES 
        EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 1080 FLUXES 
        SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 1086 FLUXES 
          DTC = ( Q0X - A12*DEA ) / A11
./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 1093 FLUXES 
          SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 1101 FLUXES 
      EA(ChNo) = EA(ChNo) + DEA
./pkg/fizhi/fizhi_lsm.F 860 FLUXES 
     &           DEA,     DTC,  SNLEFT,     Q0X,  Q0SNOW,
./pkg/fizhi/fizhi_lsm.F 930 FLUXES 
          DEA = ( Q0*A21 - A11*F0 ) / ( DETERM * A11*A22 )
./pkg/fizhi/fizhi_lsm.F 931 FLUXES 
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 934 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 935 FLUXES 
          STRDG8(ChNo)=-A12*DEA/A11
./pkg/fizhi/fizhi_lsm.F 937 FLUXES 
          EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 938 FLUXES 
          SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 946 FLUXES 
          DEA = ( Q0*A21 - A11*F0 ) / ( A12*A21 - A11*A22 )
./pkg/fizhi/fizhi_lsm.F 947 FLUXES 
          DTC = ( Q0 - A12*DEA ) / A11
./pkg/fizhi/fizhi_lsm.F 950 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 951 FLUXES 
          STRDG8(ChNo)=-A12*DEA/A11
./pkg/fizhi/fizhi_lsm.F 953 FLUXES 
          EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC
./pkg/fizhi/fizhi_lsm.F 954 FLUXES 
          SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 973 FLUXES 
            DEA = ( Q0X*A21 - A11*F0 ) / DENOM
./pkg/fizhi/fizhi_lsm.F 974 FLUXES 
            DTC = ( Q0X - A12*DEA ) / A11
./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 988 FLUXES 
          STRDG2(ChNo)=DEA
./pkg/fizhi/fizhi_lsm.F 989 FLUXES 
          STRDG8(ChNo)=-A12*DEA/A11
./pkg/fizhi/fizhi_lsm.F 991 FLUXES 
        EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA +
./pkg/fizhi/fizhi_lsm.F 993 FLUXES 
        SHFLUX(ChNo) = HSTURB(ChNo) + DHSDEA(ChNo)*DEA +