C    <%Z%	%Y% %M%	%I% %G%>
! RADIUS changed so that poseidon area equals aries area

      real OMEGA      ! rotation rate of Earth (sec)
      real RADIUS     ! mean radius of Earth (m)
      real PI         ! pi
      real DTOR       ! Degrees to radians (PI/180)
      real GRAVITY    ! gravitational constant
      integer LOFDAY  ! Length of day in seconds

      parameter(OMEGA=7.292E-05)
      parameter(RADIUS=6.36774756933E+06)
      parameter(PI=3.14159265358979323846)
      parameter(DTOR=PI/180.)
!      parameter(GRAVITY=9.7976)
      parameter(GRAVITY=9.807)
      parameter(LOFDAY=86400)
      

      real CP_OCN      ! heat capacity of seawater (J/kg/K)
      real RHOCP       ! heat capacity of seawater (J/m**3/K)
      real RHOCP_R     ! heat capacity of seawater (J/m**3/K)
      real RHO_OCN     ! reference density of seawater ( kg / m^3 )
      real RHO_OCN_R   ! 1./reference density of seawater ( m^3 / kg )
      
!      parameter(RHO_OCN=1024.)
      parameter(RHO_OCN=1000.)
      parameter(RHO_OCN_R=1/RHO_OCN)
!      parameter(CP_OCN=3990.)
      parameter(CP_OCN=4000.)
      parameter(RHOCP=RHO_OCN * CP_OCN)
      parameter(RHOCP_R=1./RHOCP)
      
      real CP_ICE     ! heat capacity of sea ice (J/kg/K)
      real L_VAP      ! latent heat of vaporization (J/m^3)
      real L_SUB      ! latent heat of sublimation (J/m^3)
      real L_FUSION   ! latent heat of fusion (J/m^3)
      real RHO_ICE    ! reference density of seaice ( kg / m^3 )
      real RHO_ICE_R  ! 1./reference density of seaice ( m^3 / kg )
      real RHO_SNO    ! reference density of snow ( kg / m^3 )
      real RHO_SNO_R  ! 1./reference density of snow ( m^3 / kg )
      real FRLN       ! Linearization of freezing point
      
      parameter(CP_ICE=2093.)
      parameter(L_SUB=2.8368E+06)
      parameter(L_VAP=2.4548E+06)
      parameter(L_FUSION=L_SUB - L_VAP)
      parameter(RHO_ICE=910.)
      parameter(RHO_ICE_R =1./RHO_ICE)
      parameter(FRLN=-0.0543)
      parameter(RHO_SNO=300.3)
      parameter(RHO_SNO_R=1./300.3)
      

      real CTOKELV   ! conversion from Centigrade to Kelvin
      parameter(CTOKELV=273.16)