c
c $Id: comtsc.h,v 1.1.1.1 2004/02/27 05:44:07 rca Exp $
c $Author: rca $
c
C
C Constants for surface temperature/energy exchange calculations
C
      common/comtsc/latice  ,tmelt   ,latvap  ,rair    ,stebol  ,
     $              snwedp  
C
      real latice     ! Latent heat of fusion
      real tmelt      ! Melting temperature of snow and ice
      real latvap     ! Latent heat of vaporization
      real rair       ! Gas constant for dry air
      real stebol     ! Stefan-Boltzmann constant
      real snwedp     ! Snow equivalent depth factor 
C