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


File Line number Procedure Code
./pkg/aim_v23/com_physvar.h 49 NO PROCEDURE 
      COMMON /PHYGR3/      TS, TSKIN, T0, Q0, CLOUDC, CLTOP
./pkg/aim_v23/com_physvar.h 52 NO PROCEDURE 
      _RL TSKIN (NGP,MAX_NO_THREADS)
./pkg/aim_v23/phy_driver.F 307 PHY_DRIVER 
     O             TS(1,myThid), TSKIN(1,myThid),
./pkg/aim_v23/phy_driver.F 335 PHY_DRIVER 
     O             TS(1,myThid), TSKIN(1,myThid),
./pkg/aim_v23/phy_driver.F 361 PHY_DRIVER 
     O             ST4S, TS(1,myThid), TSKIN(1,myThid),
./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/phy_suflux_sice.F 114 SUFLUX_SICE 
        TSKIN(J) = Tsurf(J)
./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 136 SUFLUX_SICE 
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/aim_v23/phy_suflux_sice.F 148 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 174 SUFLUX_SICE 
        SHF(J)  = CDENVV(J)*CP*(TSKIN(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 197 SUFLUX_SICE 
        TS2     = TSKIN(J)*TSKIN(J)
./pkg/aim_v23/phy_suflux_sice.F 199 SUFLUX_SICE 
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/aim_v23/phy_suflux_sice.F 86 SUFLUX_SICE 
      _RL  TSFC(NGP), TSKIN(NGP)
./pkg/bulk_force/bulkf_formula_aim.F 117 BULKF_FORMULA_AIM 
      _RL  TSFC(NGP), TSKIN(NGP)
./pkg/bulk_force/bulkf_formula_aim.F 152 BULKF_FORMULA_AIM 
        TSKIN(J) = Tsurf(J) + celsius2K
./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 174 BULKF_FORMULA_AIM 
        dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab
./pkg/bulk_force/bulkf_formula_aim.F 182 BULKF_FORMULA_AIM 
      CALL BULKF_SH2RH_AIM( 2, NGP, TSKIN, PSA, 1. _d 0,
./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 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 231 BULKF_FORMULA_AIM 
        TS2     = TSKIN(J)*TSKIN(J)
./pkg/bulk_force/bulkf_formula_aim.F 233 BULKF_FORMULA_AIM 
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)