Symbol Description Uses
Tsurf surface temperature (2-dim) 42


File Line number Procedure Code
./pkg/land/land_impl_temp.F 335 LAND_IMPL_TEMP 
     &           + delT*(fLoc-bLoc*Tsurf)
./pkg/thsice/thsice_get_bulkf.F 100 THSICE_GET_BULKF 
     I               Tsurf, flwdwn(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 80 THSICE_GET_BULKF 
      _RL     Tsurf(1), SHF(1), EVPloc(1), SLRU(1)
./pkg/thsice/thsice_get_bulkf.F 98 THSICE_GET_BULKF 
          Tsurf(1) = Tsf(i,j)
./pkg/aim_v23/aim_land_impl.F 152 AIM_LAND_IMPL 
         dTsurf(J)= tFreeze - Tsurf(J)
./pkg/aim_v23/aim_land_impl.F 153 AIM_LAND_IMPL 
         Tsurf(J) = tFreeze
./pkg/aim_v23/aim_land_impl.F 155 AIM_LAND_IMPL 
         Tsurf(J) = Tsurf(J)+ dTsurf(J)
./pkg/aim_v23/aim_land_impl.F 16 AIM_LAND_IMPL 
     U               Tsurf, SHF, EVAP, SLRU,
./pkg/aim_v23/aim_land_impl.F 71 AIM_LAND_IMPL 
      _RL  Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP)
./pkg/aim_v23/aim_sice_impl.F 100 AIM_SICE_IMPL 
         dTsurf(J)= tFreeze - Tsurf(J)
./pkg/aim_v23/aim_sice_impl.F 101 AIM_SICE_IMPL 
         Tsurf(J) = tFreeze
./pkg/aim_v23/aim_sice_impl.F 106 AIM_SICE_IMPL 
         Tsurf(J) = Tsurf(J)+ dTsurf(J)
./pkg/aim_v23/aim_sice_impl.F 15 AIM_SICE_IMPL 
     U               Tsurf, SHF, EVAP, SLRU,
./pkg/aim_v23/aim_sice_impl.F 69 AIM_SICE_IMPL 
      _RL  Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP)
./pkg/aim_v23/phy_suflux_land.F 107 SUFLUX_LAND 
        TSKIN(J) = Tsurf(J) + dTskin(J)
./pkg/aim_v23/phy_suflux_land.F 11 SUFLUX_LAND 
     I                   Tsurf, dTskin, SWAV, SSR, SLRD,
./pkg/aim_v23/phy_suflux_land.F 79 SUFLUX_LAND 
      _RL  Tsurf(NGP), dTskin(NGP), SWAV(NGP)
./pkg/aim_v23/phy_suflux_ocean.F 100 SUFLUX_OCEAN 
      CALL SHTORH (0, NGP, Tsurf, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_ocean.F 110 SUFLUX_OCEAN 
        TS4     = Tsurf(J)**4
./pkg/aim_v23/phy_suflux_ocean.F 11 SUFLUX_OCEAN 
     I                   Tsurf, SSR, SLRD,
./pkg/aim_v23/phy_suflux_ocean.F 59 SUFLUX_OCEAN 
      _RL  FMASK(NGP), Tsurf(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_ocean.F 95 SUFLUX_OCEAN 
        SHF(J) = CDENVV(J)*CP*(Tsurf(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 114 SUFLUX_SICE 
        TSKIN(J) = Tsurf(J)
./pkg/aim_v23/phy_suflux_sice.F 11 SUFLUX_SICE 
     I                   Tsurf, dTskin, SSR, SLRD,
./pkg/aim_v23/phy_suflux_sice.F 79 SUFLUX_SICE 
      _RL  Tsurf(NGP), dTskin(NGP)
./pkg/bulk_force/bulkf_formula_aim.F 10 BULKF_FORMULA_AIM 
     I                   Tsurf, SLRD,
./pkg/bulk_force/bulkf_formula_aim.F 152 BULKF_FORMULA_AIM 
        TSKIN(J) = Tsurf(J) + celsius2K
./pkg/bulk_force/bulkf_formula_aim.F 67 BULKF_FORMULA_AIM 
      _RL  Tsurf(NGP)
./pkg/cheapaml/cheapaml.F 355 CHEAPAML 
     O                    Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 88 CHEAPAML 
        _RL Tsurf  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./pkg/cheapaml/cheapaml_seaice.F 18 CHEAPAML_SEAICE 
     O                    Tsurf, iceFrac, sw2oce,
./pkg/cheapaml/cheapaml_seaice.F 195 CHEAPAML_SEAICE 
            Tsurf(i,j) = 0.
./pkg/cheapaml/cheapaml_seaice.F 198 CHEAPAML_SEAICE 
     I                    Tsurf, windSq,
./pkg/cheapaml/cheapaml_seaice.F 206 CHEAPAML_SEAICE 
            Tsurf(i,j) = Tsrf(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 209 CHEAPAML_SEAICE 
     I                    Tsurf, windSq,
./pkg/cheapaml/cheapaml_seaice.F 236 CHEAPAML_SEAICE 
           Tsurf(i,j)= 0.
./pkg/cheapaml/cheapaml_seaice.F 242 CHEAPAML_SEAICE 
           Tsurf(i,j)= Tsurf(i,j)+ dTsurf(i,j)
./pkg/cheapaml/cheapaml_seaice.F 85 CHEAPAML_SEAICE 
      _RL Tsurf(1-OLx:sNx+OLx,1-OLy:sNy+OLy)