Symbol Description Uses
TSKIN skin surface temperature (2-dim) 34



File Line number Procedure Code
./pkg/aim/com_physvar.h 39 NO PROCEDURE
      COMMON /PHYGR3/ PSG, TS, TSKIN, CLOUDC, PNLEVW
./pkg/aim/com_physvar.h 42 NO PROCEDURE
      _RL TSKIN (NGP,MAX_NO_THREADS)
./pkg/aim_v23/phy_suflux_land.F 107 SUFLUX_LAND
        TSKIN(J) = Tsurf(J) + dTskin(J)
./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 130 SUFLUX_LAND
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_land.F 138 SUFLUX_LAND
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_land.F 15 SUFLUX_LAND
     O                   TSFC, TSKIN,
./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 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 210 SUFLUX_LAND
        TS2     = TSKIN(J)*TSKIN(J)
./pkg/aim_v23/phy_suflux_land.F 212 SUFLUX_LAND
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/aim_v23/phy_suflux_land.F 86 SUFLUX_LAND
      _RL  TSFC(NGP), TSKIN(NGP)
./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 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/com_physvar.h 45 NO PROCEDURE
      COMMON /PHYGR3/      TS, TSKIN, T0, Q0, CLOUDC, CLTOP
./pkg/aim_v23/com_physvar.h 48 NO PROCEDURE
      _RL TSKIN (NGP,MAX_NO_THREADS)
./pkg/aim_v23/phy_suflux_sice.F 113 SUFLUX_SICE
        TSKIN(J) = Tsurf(J)
./pkg/aim_v23/phy_suflux_sice.F 124 SUFLUX_SICE
        FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH
./pkg/aim_v23/phy_suflux_sice.F 135 SUFLUX_SICE
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_sice.F 147 SUFLUX_SICE
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_sice.F 15 SUFLUX_SICE
     O                   TSFC, TSKIN,
./pkg/aim_v23/phy_suflux_sice.F 173 SUFLUX_SICE
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 176 SUFLUX_SICE
     &            + dShf(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 185 SUFLUX_SICE
        SHF(J)  = CDENVV(J)*CP*(TSKIN(J)-T0(J))
./pkg/aim_v23/phy_suflux_sice.F 196 SUFLUX_SICE
        TS2     = TSKIN(J)*TSKIN(J)
./pkg/aim_v23/phy_suflux_sice.F 198 SUFLUX_SICE
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/aim_v23/phy_suflux_sice.F 85 SUFLUX_SICE
      _RL  TSFC(NGP), TSKIN(NGP)
./pkg/aim_v23/phy_driver.F 253 PHY_DRIVER
     O             TS(1,myThid), TSKIN(1,myThid),
./pkg/aim_v23/phy_driver.F 281 PHY_DRIVER
     O             TS(1,myThid), TSKIN(1,myThid),
./pkg/aim_v23/phy_driver.F 307 PHY_DRIVER
     O             ST4S, TS(1,myThid), TSKIN(1,myThid),