Symbol Description Uses
T0 near-surface air temperature (2-dim) 77


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 957 ASTRO 
           T0 = ZERO
./pkg/fizhi/fizhi_clockstuff.F 958 ASTRO 
           T1 = FUN(T0,PI,ECC,YRLEN,PER         )*FAC
./pkg/aim_v23/aim_diagnostics.F 204 AIM_DIAGNOSTICS 
         CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 1, T0,
./pkg/aim_v23/aim_diagnostics.F 276 AIM_DIAGNOSTICS 
     &        'aim_T0',T0(1,myThid),myThid)
./pkg/aim_v23/aim_diagnostics.F 349 AIM_DIAGNOSTICS 
     &                          + T0(I2,myThid)*DDTT
./pkg/aim_v23/aim_diagnostics.F 432 AIM_DIAGNOSTICS 
        CALL DIAGNOSTICS_FILL( T0(1,myThid),
./pkg/aim_v23/com_physvar.h 49 NO PROCEDURE 
      COMMON /PHYGR3/      TS, TSKIN, T0, Q0, CLOUDC, CLTOP
./pkg/aim_v23/com_physvar.h 54 NO PROCEDURE 
      _RL T0    (NGP,MAX_NO_THREADS)
./pkg/aim_v23/phy_driver.F 297 PHY_DRIVER 
     O             dTskin,T1s,T0(1,myThid),Q0(1,myThid),
./pkg/aim_v23/phy_driver.F 304 PHY_DRIVER 
     I             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 323 PHY_DRIVER 
     O             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 332 PHY_DRIVER 
     I             T1s, T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_driver.F 358 PHY_DRIVER 
     I             T0(1,myThid), Q0(1,myThid), DENVV,
./pkg/aim_v23/phy_shtorh.F 43 SHTORH 
      _RL E0, C1, C2, T0, T1, T2, QS1, QS2
./pkg/aim_v23/phy_shtorh.F 53 SHTORH 
      T0=273.16 _d 0
./pkg/aim_v23/phy_shtorh.F 66 SHTORH 
         IF (TA(J).GE.T0) THEN
./pkg/aim_v23/phy_shtorh.F 67 SHTORH 
          tmpQ   = E0*EXP(C1*(TA(J)-T0)/(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 72 SHTORH 
          tmpQ   = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2))
./pkg/aim_v23/phy_shtorh.F 75 SHTORH 
          RH(J)  = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/aim_v23/phy_shtorh.F 83 SHTORH 
        IF (TA(J).GE.T0) THEN
./pkg/aim_v23/phy_shtorh.F 84 SHTORH 
          QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/aim_v23/phy_shtorh.F 86 SHTORH 
          QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2))
./pkg/aim_v23/phy_suflux_land.F 12 SUFLUX_LAND 
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_land.F 187 SUFLUX_LAND 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_land.F 188 SUFLUX_LAND 
        Shf0(J) =   Shf0(J)*CP*(TSFC(J) -T0(J))
./pkg/aim_v23/phy_suflux_land.F 190 SUFLUX_LAND 
     &            + dShf(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_land.F 199 SUFLUX_LAND 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_land.F 200 SUFLUX_LAND 
        Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J))
./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 95 SUFLUX_OCEAN 
        SHF(J) = CDENVV(J)*CP*(Tsurf(J)-T0(J))
./pkg/aim_v23/phy_suflux_post.F 12 SUFLUX_POST 
     I                   T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_post.F 80 SUFLUX_POST 
      _RL  T0(NGP), Q0(NGP), DENVV(NGP)
./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 134 SUFLUX_PREP 
        T0(J) = TA(J,Ktmp) +    WVS(J)*(TA(J,Ktmp)-TA(J,NL1))
./pkg/aim_v23/phy_suflux_prep.F 140 SUFLUX_PREP 
        T0(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 155 SUFLUX_PREP 
      CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid)
./pkg/aim_v23/phy_suflux_prep.F 173 SUFLUX_PREP 
        DENVV(J)=(PRD*PSA(J)/T0(J))*SPEED0(J)
./pkg/aim_v23/phy_suflux_prep.F 88 SUFLUX_PREP 
      _RL  dTskin(NGP), T0(NGP), Q0(NGP)
./pkg/aim_v23/phy_suflux_sice.F 12 SUFLUX_SICE 
     I                   T1, T0, Q0, DENVV,
./pkg/aim_v23/phy_suflux_sice.F 174 SUFLUX_SICE 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 175 SUFLUX_SICE 
        Shf0(J) =   Shf0(J)*CP*(TSFC(J) -T0(J))
./pkg/aim_v23/phy_suflux_sice.F 177 SUFLUX_SICE 
     &            + dShf(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 186 SUFLUX_SICE 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 187 SUFLUX_SICE 
        Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J))
./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 145 BULKF_FORMULA_AIM 
        DENVV(J)=(PRD*PSA(J)/T0(J))*Vsurf(J)
./pkg/bulk_force/bulkf_formula_aim.F 208 BULKF_FORMULA_AIM 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/bulk_force/bulkf_formula_aim.F 209 BULKF_FORMULA_AIM 
        Shf0(J) =   Shf0(J)*CP*(TSFC(J) -T0(J))
./pkg/bulk_force/bulkf_formula_aim.F 211 BULKF_FORMULA_AIM 
     &            + dShf(J)*CP*(TSKIN(J)-T0(J))
./pkg/bulk_force/bulkf_formula_aim.F 220 BULKF_FORMULA_AIM 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/bulk_force/bulkf_formula_aim.F 221 BULKF_FORMULA_AIM 
        Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J))
./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 53 BULKF_SH2RH_AIM 
      T0=273.16 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 66 BULKF_SH2RH_AIM 
         IF (TA(J).GE.T0) THEN
./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 70 BULKF_SH2RH_AIM 
          RH(J)  = QSAT(J)*C1*(T0-T1)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 72 BULKF_SH2RH_AIM 
          tmpQ   = E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2))
./pkg/bulk_force/bulkf_sh2rh_aim.F 75 BULKF_SH2RH_AIM 
          RH(J)  = QSAT(J)*C2*(T0-T2)*recT*recT*sigP/(sigP-QS2*tmpQ)
./pkg/bulk_force/bulkf_sh2rh_aim.F 83 BULKF_SH2RH_AIM 
        IF (TA(J).GE.T0) THEN
./pkg/bulk_force/bulkf_sh2rh_aim.F 84 BULKF_SH2RH_AIM 
          QSAT(J)=E0*EXP(C1*(TA(J)-T0)/(TA(J)-T1))
./pkg/bulk_force/bulkf_sh2rh_aim.F 86 BULKF_SH2RH_AIM 
          QSAT(J)=E0*EXP(C2*(TA(J)-T0)/(TA(J)-T2))
./pkg/chronos/chronos.F 758 ASTRO 
      _RL      TH(DAYSCY),T0,T1,T2,T3,T4,FUN,Y,MNDY(12,4)
./pkg/chronos/chronos.F 790 ASTRO 
           T0 = ZERO
./pkg/chronos/chronos.F 791 ASTRO 
           T1 = FUN(T0         )*FAC
./pkg/ebm/ebm_atmosphere.F 155 EBM_ATMOSPHERE 
        T0(1) = TtS - 0.5*T2(1)*((T_var(3)/T_var(1)) - 1.)
./pkg/ebm/ebm_atmosphere.F 161 EBM_ATMOSPHERE 
        T0(2) = TtN - 0.5*T2(2)*((T_var(3)/T_var(1)) - 1.)
./pkg/ebm/ebm_atmosphere.F 166 EBM_ATMOSPHERE 
         T35(no_so)= T0(no_so) +
./pkg/ebm/ebm_atmosphere.F 253 EBM_ATMOSPHERE 
          T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 79 EBM_ATMOSPHERE 
      _RL T_var(4), T0(2), T2(2), T35(2), DTDy35(2)