Symbol Description Uses
T1 near-surface air temperature (from Pot.temp) 54


File Line number Procedure Code
./pkg/fizhi/fizhi_clockstuff.F 912 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y
./pkg/fizhi/fizhi_clockstuff.F 958 ASTRO 
           T1 = FUN(T0,PI,ECC,YRLEN,PER         )*FAC
./pkg/fizhi/fizhi_clockstuff.F 959 ASTRO 
           T2 = FUN(ZERO+T1/TWO,PI,ECC,YRLEN,PER)*FAC
./pkg/fizhi/fizhi_clockstuff.F 962 ASTRO 
           TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX
./pkg/fizhi/fizhi_clockstuff.F 965 ASTRO 
           T1 = FUN(TH(KM),PI,ECC,YRLEN,PER       )
./pkg/fizhi/fizhi_clockstuff.F 966 ASTRO 
           T2 = FUN(TH(KM)+T1/TWO,PI,ECC,YRLEN,PER)
./pkg/fizhi/fizhi_clockstuff.F 970 ASTRO 
           TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX
./pkg/aim_v23/phy_shtorh.F 43 SHTORH 
      _RL E0, C1, C2, T0, T1, T2, QS1, QS2
./pkg/aim_v23/phy_shtorh.F 54 SHTORH 
      T1= 35.86 _d 0
./pkg/aim_v23/phy_shtorh.F 67 SHTORH 
          tmpQ   = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/aim_v23/phy_shtorh.F 69 SHTORH 
          recT   = 1. _d 0 / (TA(J)-T1)
./pkg/aim_v23/phy_shtorh.F 70 SHTORH 
          RH(J)  = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/aim_v23/phy_shtorh.F 84 SHTORH 
          QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/aim_v23/phy_snow_precip.F 73 SNOW_PRECIP 
      _RL T1(NGP)
./pkg/aim_v23/phy_snow_precip.F 84 SNOW_PRECIP 
        T1(J) = ThA(J,kGrd(J))*(PSA(J)**kappa)
./pkg/aim_v23/phy_snow_precip.F 85 SNOW_PRECIP 
        IF ( T1(J) .GE. tFreeze ) THEN
./pkg/aim_v23/phy_snow_precip.F 86 SNOW_PRECIP 
         EnPrec(J) = rainCP*(T1(J)-tFreeze)
./pkg/aim_v23/phy_suflux_land.F 119 SUFLUX_LAND 
        FSLAND=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_land.F 128 SUFLUX_LAND 
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_land.F 12 SUFLUX_LAND 
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_land.F 130 SUFLUX_LAND 
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_land.F 81 SUFLUX_LAND 
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 12 SUFLUX_OCEAN 
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_ocean.F 61 SUFLUX_OCEAN 
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 90 SUFLUX_OCEAN 
        FSSEA =1.+MIN(DTHETA,MAX(-DTHETA, Tsurf(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_prep.F 12 SUFLUX_PREP 
     O                   SPEED0,DRAG,DENVV,dTskin,T1,T0,Q0,
./pkg/aim_v23/phy_suflux_prep.F 137 SUFLUX_PREP 
        T1(J) = ThA(J,Ktmp)*(PSA(J)**kappa)
./pkg/aim_v23/phy_suflux_prep.F 141 SUFLUX_PREP 
        T1(J) = 273.16 _d 0
./pkg/aim_v23/phy_suflux_prep.F 148 SUFLUX_PREP 
        T0(J) = FTEMP0*MIN(T0(J),T1(J))+GTEMP0*T1(J)
./pkg/aim_v23/phy_suflux_prep.F 87 SUFLUX_PREP 
      _RL  SPEED0(NGP), DRAG(NGP,0:3), T1(NGP), DENVV(NGP)
./pkg/aim_v23/phy_suflux_sice.F 125 SUFLUX_SICE 
        FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 12 SUFLUX_SICE 
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_sice.F 134 SUFLUX_SICE 
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 136 SUFLUX_SICE 
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_sice.F 81 SUFLUX_SICE 
      _RL  T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP)
./pkg/bulk_force/bulkf_formula_aim.F 11 BULKF_FORMULA_AIM 
     I                   T1, T0, Q0, Vsurf,
./pkg/bulk_force/bulkf_formula_aim.F 163 BULKF_FORMULA_AIM 
        FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/bulk_force/bulkf_formula_aim.F 172 BULKF_FORMULA_AIM 
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/bulk_force/bulkf_formula_aim.F 174 BULKF_FORMULA_AIM 
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/bulk_force/bulkf_formula_aim.F 70 BULKF_FORMULA_AIM 
      _RL  T1(NGP), T0(NGP), Q0(NGP), Vsurf(NGP)
./pkg/bulk_force/bulkf_sh2rh_aim.F 43 BULKF_SH2RH_AIM 
      _RL E0, C1, C2, T0, T1, T2, QS1, QS2
./pkg/bulk_force/bulkf_sh2rh_aim.F 54 BULKF_SH2RH_AIM 
      T1= 35.86 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 67 BULKF_SH2RH_AIM 
          tmpQ   = E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/bulk_force/bulkf_sh2rh_aim.F 69 BULKF_SH2RH_AIM 
          recT   = 1. _d 0 / (TA(J)-T1)
./pkg/bulk_force/bulkf_sh2rh_aim.F 70 BULKF_SH2RH_AIM 
          RH(J)  = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 84 BULKF_SH2RH_AIM 
          QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/chronos/chronos.F 758 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4)
./pkg/chronos/chronos.F 791 ASTRO 
           T1 = FUN(T0         )*FAC
./pkg/chronos/chronos.F 792 ASTRO 
           T2 = FUN(ZERO+T1/TWO)*FAC
./pkg/chronos/chronos.F 795 ASTRO 
           TH(KM) = (T1 + TWO*(T2 + T3) + T4) / SIX
./pkg/chronos/chronos.F 798 ASTRO 
           T1 = FUN(TH(KM)       )
./pkg/chronos/chronos.F 799 ASTRO 
           T2 = FUN(TH(KM)+T1/TWO)
./pkg/chronos/chronos.F 803 ASTRO 
           TH(KP) = TH(KM) + (T1 + TWO*(T2 + T3) + T4) / SIX