Symbol Description Uses
TSFC surface temperature (clim.) (2-dim) 25


File Line number Procedure Code
./pkg/aim_v23/phy_suflux_land.F 108 SUFLUX_LAND 
        TSFC(J)=273.16 _d 0 + dTskin(J)
./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 140 SUFLUX_LAND 
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_land.F 15 SUFLUX_LAND 
     O                   TSFC, TSKIN,
./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 200 SUFLUX_LAND 
        Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J))
./pkg/aim_v23/phy_suflux_land.F 208 SUFLUX_LAND 
        TS2     = TSFC(J)*TSFC(J)
./pkg/aim_v23/phy_suflux_land.F 86 SUFLUX_LAND 
      _RL  TSFC(NGP), TSKIN(NGP)
./pkg/aim_v23/phy_suflux_post.F 128 SUFLUX_POST 
        TSFC(J)  = (FMASK(J,1)*TLAND(J) + FMASK(J,2)*TSEA(J)
./pkg/aim_v23/phy_suflux_post.F 130 SUFLUX_POST 
        TSKIN(J) = TSFC(J)+FMASK(J,1)*dTskin(J)
./pkg/aim_v23/phy_suflux_post.F 144 SUFLUX_POST 
        IF (  TSFC(J).LT.lwTemp1 .OR.
./pkg/aim_v23/phy_suflux_post.F 145 SUFLUX_POST 
     &        TSFC(J).GT.lwTemp2 ) THEN
./pkg/aim_v23/phy_suflux_post.F 149 SUFLUX_POST 
     &    'SUFLUX_POST: TS=', TSFC(J),
./pkg/aim_v23/phy_suflux_post.F 14 SUFLUX_POST 
     O                   SLRU, TSFC, TSKIN,
./pkg/aim_v23/phy_suflux_post.F 83 SUFLUX_POST 
      _RL  SLRU(NGP), TSFC(NGP), TSKIN(NGP)
./pkg/aim_v23/phy_suflux_sice.F 114 SUFLUX_SICE 
        TSFC(J)=273.16 _d 0
./pkg/aim_v23/phy_suflux_sice.F 133 SUFLUX_SICE 
        Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 149 SUFLUX_SICE 
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_sice.F 15 SUFLUX_SICE 
     O                   TSFC, TSKIN,
./pkg/aim_v23/phy_suflux_sice.F 174 SUFLUX_SICE 
        Shf0(J) =   Shf0(J)*CP*(TSFC(J) -T0(J))
./pkg/aim_v23/phy_suflux_sice.F 186 SUFLUX_SICE 
        Shf0(J) = CDENVV(J)*CP*(TSFC(J) -T0(J))
./pkg/aim_v23/phy_suflux_sice.F 194 SUFLUX_SICE 
        TS2     = TSFC(J)*TSFC(J)
./pkg/aim_v23/phy_suflux_sice.F 85 SUFLUX_SICE 
      _RL  TSFC(NGP), TSKIN(NGP)