ice_constants Module Reference

Functions/Subroutines
subroutine	init_constants

Variables
real(kind=dbl_kind), parameter	gravit = 9.80616_dbl_kind
real(kind=dbl_kind), parameter	secday = 86400.0_dbl_kind
real(kind=dbl_kind), parameter	omega = 7.292e-5_dbl_kind
real(kind=dbl_kind), parameter	radius = 6.37e6_dbl_kind
real(kind=dbl_kind), parameter	rhoi = 917.0_dbl_kind
real(kind=dbl_kind), parameter	rhow = 1026.0_dbl_kind
real(kind=dbl_kind), parameter	rhofresh = 1000.0_dbl_kind
real(kind=dbl_kind), parameter	zvir = 0.606_dbl_kind
real(kind=dbl_kind), parameter	vonkar = 0.4_dbl_kind
real(kind=dbl_kind), parameter	cp_air = 1005.0_dbl_kind
real(kind=dbl_kind), parameter	cp_wv = 1.81e3_dbl_kind
real(kind=dbl_kind), parameter	stefan_boltzmann = 567.0e-10_dbl_kind
real(kind=dbl_kind), parameter	tffresh = 273.15_dbl_kind
real(kind=dbl_kind), parameter	cp_ice = 2106._dbl_kind
real(kind=dbl_kind), parameter	cp_ocn = 4218._dbl_kind
real(kind=dbl_kind), parameter	lsub = 2.835e6_dbl_kind
real(kind=dbl_kind), parameter	lvap = 2.501e6_dbl_kind
real(kind=dbl_kind), parameter	lfresh = Lsub-Lvap
real(kind=dbl_kind), parameter	timelt = 0.0_dbl_kind
real(kind=dbl_kind), parameter	tsmelt = 0.0_dbl_kind
real(kind=dbl_kind), parameter	ice_ref_salinity = 4._dbl_kind
real(kind=real_kind), parameter	spval = 1.0e30_real_kind
real(kind=dbl_kind), parameter	rhos = 330.0_dbl_kind
real(kind=dbl_kind), parameter	depresst = 0.054_dbl_kind
real(kind=dbl_kind), parameter	iceruf = 0.0005_dbl_kind
real(kind=dbl_kind), parameter	kappav = 1.4_dbl_kind
real(kind=dbl_kind), parameter	kappan = 17.6_dbl_kind
real(kind=dbl_kind), parameter	emissivity = 0.95_dbl_kind
real(kind=dbl_kind), parameter	kice = 2.03_dbl_kind
real(kind=dbl_kind), parameter	ksno = 0.30_dbl_kind
real(kind=dbl_kind), parameter	zref = 10._dbl_kind
real(kind=dbl_kind), parameter	qqqice = 11637800._dbl_kind
real(kind=dbl_kind), parameter	tttice = 5897.8_dbl_kind
real(kind=dbl_kind), parameter	qqqocn = 627572.4_dbl_kind
real(kind=dbl_kind), parameter	tttocn = 5107.4_dbl_kind
real(kind=dbl_kind), parameter	c0i = 0.0_dbl_kind
real(kind=dbl_kind), parameter	c1i = 1.0_dbl_kind
real(kind=dbl_kind), parameter	c2i = 2.0_dbl_kind
real(kind=dbl_kind), parameter	c3i = 3.0_dbl_kind
real(kind=dbl_kind), parameter	c4i = 4.0_dbl_kind
real(kind=dbl_kind), parameter	c5i = 5.0_dbl_kind
real(kind=dbl_kind), parameter	c6i = 6.0_dbl_kind
real(kind=dbl_kind), parameter	c7i = 7.0_dbl_kind
real(kind=dbl_kind), parameter	c8i = 8.0_dbl_kind
real(kind=dbl_kind), parameter	c9i = 9.0_dbl_kind
real(kind=dbl_kind), parameter	c10i = 10.0_dbl_kind
real(kind=dbl_kind), parameter	c12 = 12.0_dbl_kind
real(kind=dbl_kind), parameter	c15 = 15.0_dbl_kind
real(kind=dbl_kind), parameter	c16 = 16.0_dbl_kind
real(kind=dbl_kind), parameter	c20 = 20.0_dbl_kind
real(kind=dbl_kind), parameter	c25 = 25.0_dbl_kind
real(kind=dbl_kind), parameter	c90 = 90.0_dbl_kind
real(kind=dbl_kind), parameter	c100 = 100.0_dbl_kind
real(kind=dbl_kind), parameter	c360 = 360.0_dbl_kind
real(kind=dbl_kind), parameter	c365 = 365.0_dbl_kind
real(kind=dbl_kind), parameter	c1000 = 1000.0_dbl_kind
real(kind=dbl_kind), parameter	c1p5 = 1.5_dbl_kind
real(kind=dbl_kind), parameter	p001 = 0.001_dbl_kind
real(kind=dbl_kind), parameter	p01 = 0.01_dbl_kind
real(kind=dbl_kind), parameter	p1 = 0.1_dbl_kind
real(kind=dbl_kind), parameter	p2 = 0.2_dbl_kind
real(kind=dbl_kind), parameter	p4 = 0.4_dbl_kind
real(kind=dbl_kind), parameter	p5 = 0.5_dbl_kind
real(kind=dbl_kind), parameter	p6 = 0.6_dbl_kind
real(kind=dbl_kind), parameter	p15 = 0.15_dbl_kind
real(kind=dbl_kind), parameter	p25 = 0.25_dbl_kind
real(kind=dbl_kind), parameter	p166 = c1i/c6i
real(kind=dbl_kind), parameter	p333 = c1i/c3i
real(kind=dbl_kind), parameter	p666 = c2i/c3i
real(kind=dbl_kind), parameter	p111 = c1i/c9i
real(kind=dbl_kind), parameter	p055 = p111*p5
real(kind=dbl_kind), parameter	p027 = p055*p5
real(kind=dbl_kind), parameter	p222 = c2i/c9i
real(kind=dbl_kind), parameter	eps04 = 1.0e-4_dbl_kind
real(kind=dbl_kind), parameter	eps11 = 1.0e-11_dbl_kind
real(kind=dbl_kind), parameter	eps12 = 1.0e-12_dbl_kind
real(kind=dbl_kind), parameter	eps13 = 1.0e-13_dbl_kind
real(kind=dbl_kind), parameter	eps15 = 1.0e-15_dbl_kind
real(kind=dbl_kind), parameter	eps16 = 1.0e-16_dbl_kind
real(kind=dbl_kind), parameter	puny = 1.0e-5_dbl_kind
real(kind=dbl_kind)	pih
real(kind=dbl_kind), parameter	cm_to_m = 0.01_dbl_kind
real(kind=dbl_kind), parameter	m_to_cm = 100._dbl_kind
real(kind=dbl_kind), parameter	m2_to_km2 = 1.e-6_dbl_kind
real(kind=dbl_kind), parameter	kg_to_g = 1000._dbl_kind
real(kind=dbl_kind), parameter	mps_to_cmpdy = 8.64e6_dbl_kind
real(kind=dbl_kind), parameter	mps_to_cmpyr = mps_to_cmpdy*365._dbl_kind
real(kind=dbl_kind)	rad_to_deg

Function/Subroutine Documentation

init_constants()

subroutine ice_constants::init_constants

(

)

Definition at line 236 of file ice_constants.f90.

!
! !DESCRIPTION:
!
! Initializes constants that are best defined at run time (e.g. pi)
!
! !REVISION HISTORY:
!
! author Elizabeth C. Hunke, LANL
!
! !USES:
!
! !INPUT/OUTPUT PARAMETERS:
!
!EOP
!
      integer (kind=int_kind) :: i, j

      do j=jlo,jhi
       do i=ilo,ihi
!        one(i,j) = c1i
       enddo
      enddo

!#ifndef CCSMcoupled
!      pi  = c4*atan(c1)
!#endif
!      pi2 = c2*pi
      pih = p5*pi

      rad_to_deg = 180.0_dbl_kind/pi

Variable Documentation

c0i

real (kind=dbl_kind), parameter ice_constants::c0i = 0.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

      real (kind=dbl_kind), parameter :: &
        c0i   = 0.0_dbl_kind,             &
        c1i   = 1.0_dbl_kind,             &
        c2i   = 2.0_dbl_kind,             &
        c3i   = 3.0_dbl_kind,             &
        c4i   = 4.0_dbl_kind,             &
        c5i   = 5.0_dbl_kind,             &
        c6i   = 6.0_dbl_kind,             &
        c7i   = 7.0_dbl_kind,             &
        c8i   = 8.0_dbl_kind,             &
        c9i   = 9.0_dbl_kind,             &
        c10i  = 10.0_dbl_kind,            &
        c12  = 12.0_dbl_kind,             &
        c15  = 15.0_dbl_kind,             &
        c16  = 16.0_dbl_kind,             &
        c20  = 20.0_dbl_kind,             &
        c25  = 25.0_dbl_kind,             &
        c90  = 90.0_dbl_kind,             &
        c100 = 100.0_dbl_kind,            &
        c360 = 360.0_dbl_kind,            &
        c365 = 365.0_dbl_kind,            &
        c1000= 1000.0_dbl_kind,           &
        c1p5 = 1.5_dbl_kind,              &
        p001 = 0.001_dbl_kind,            &
        p01  = 0.01_dbl_kind,             &
        p1   = 0.1_dbl_kind,              &
        p2   = 0.2_dbl_kind,              &
        p4   = 0.4_dbl_kind,              &
        p5   = 0.5_dbl_kind,              &
        p6   = 0.6_dbl_kind,              &
        p15  = 0.15_dbl_kind,             &
        p25  = 0.25_dbl_kind,             &
        p166 = c1i/c6i,                     &
        p333 = c1i/c3i,                     &
        p666 = c2i/c3i,                     &
        p111 = c1i/c9i,                     &
        p055 = p111*p5,                   &
        p027 = p055*p5,                   &
        p222 = c2i/c9i,                     &
        eps04  = 1.0e-4_dbl_kind,         &
        eps11  = 1.0e-11_dbl_kind,        &
        eps12  = 1.0e-12_dbl_kind,        &
        eps13  = 1.0e-13_dbl_kind,        &
        eps15  = 1.0e-15_dbl_kind,        &
        eps16  = 1.0e-16_dbl_kind,        &
!c     &  puny = eps13
!        puny = eps11


        puny = 1.0e-5_dbl_kind

c100

real (kind=dbl_kind), parameter ice_constants::c100 = 100.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c1000

real (kind=dbl_kind), parameter ice_constants::c1000 = 1000.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c10i

real (kind=dbl_kind), parameter ice_constants::c10i = 10.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c12

real (kind=dbl_kind), parameter ice_constants::c12 = 12.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c15

real (kind=dbl_kind), parameter ice_constants::c15 = 15.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c16

real (kind=dbl_kind), parameter ice_constants::c16 = 16.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c1i

real (kind=dbl_kind), parameter ice_constants::c1i = 1.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c1p5

real (kind=dbl_kind), parameter ice_constants::c1p5 = 1.5_dbl_kind

Definition at line 150 of file ice_constants.f90.

c20

real (kind=dbl_kind), parameter ice_constants::c20 = 20.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c25

real (kind=dbl_kind), parameter ice_constants::c25 = 25.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c2i

real (kind=dbl_kind), parameter ice_constants::c2i = 2.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c360

real (kind=dbl_kind), parameter ice_constants::c360 = 360.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c365

real (kind=dbl_kind), parameter ice_constants::c365 = 365.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c3i

real (kind=dbl_kind), parameter ice_constants::c3i = 3.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c4i

real (kind=dbl_kind), parameter ice_constants::c4i = 4.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c5i

real (kind=dbl_kind), parameter ice_constants::c5i = 5.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c6i

real (kind=dbl_kind), parameter ice_constants::c6i = 6.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c7i

real (kind=dbl_kind), parameter ice_constants::c7i = 7.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c8i

real (kind=dbl_kind), parameter ice_constants::c8i = 8.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c90

real (kind=dbl_kind), parameter ice_constants::c90 = 90.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

c9i

real (kind=dbl_kind), parameter ice_constants::c9i = 9.0_dbl_kind

Definition at line 150 of file ice_constants.f90.

cm_to_m

real (kind=dbl_kind), parameter ice_constants::cm_to_m = 0.01_dbl_kind

Definition at line 213 of file ice_constants.f90.

      real (kind=dbl_kind), parameter :: & 
        cm_to_m       = 0.01_dbl_kind      &  ! cm to meters
      , m_to_cm       = 100._dbl_kind      &  ! meters to cm
      , m2_to_km2     = 1.e-6_dbl_kind     &  ! m^2 to km^2
      , kg_to_g       = 1000._dbl_kind     &  ! kilograms to grams
      , mps_to_cmpdy  = 8.64e6_dbl_kind &! m per s to cm per day
      , mps_to_cmpyr  = mps_to_cmpdy*365._dbl_kind ! m per s to cm per yr

cp_air

real (kind=dbl_kind), parameter ice_constants::cp_air = 1005.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

cp_ice

real (kind=dbl_kind), parameter ice_constants::cp_ice = 2106._dbl_kind

Definition at line 85 of file ice_constants.f90.

cp_ocn

real (kind=dbl_kind), parameter ice_constants::cp_ocn = 4218._dbl_kind

Definition at line 85 of file ice_constants.f90.

cp_wv

real (kind=dbl_kind), parameter ice_constants::cp_wv = 1.81e3_dbl_kind

Definition at line 85 of file ice_constants.f90.

depresst

real (kind=dbl_kind), parameter ice_constants::depresst = 0.054_dbl_kind

Definition at line 118 of file ice_constants.f90.

emissivity

real (kind=dbl_kind), parameter ice_constants::emissivity = 0.95_dbl_kind

Definition at line 118 of file ice_constants.f90.

eps04

real (kind=dbl_kind), parameter ice_constants::eps04 = 1.0e-4_dbl_kind

Definition at line 150 of file ice_constants.f90.

eps11

real (kind=dbl_kind), parameter ice_constants::eps11 = 1.0e-11_dbl_kind

Definition at line 150 of file ice_constants.f90.

eps12

real (kind=dbl_kind), parameter ice_constants::eps12 = 1.0e-12_dbl_kind

Definition at line 150 of file ice_constants.f90.

eps13

real (kind=dbl_kind), parameter ice_constants::eps13 = 1.0e-13_dbl_kind

Definition at line 150 of file ice_constants.f90.

eps15

real (kind=dbl_kind), parameter ice_constants::eps15 = 1.0e-15_dbl_kind

Definition at line 150 of file ice_constants.f90.

eps16

real (kind=dbl_kind), parameter ice_constants::eps16 = 1.0e-16_dbl_kind

Definition at line 150 of file ice_constants.f90.

gravit

real (kind=dbl_kind), parameter ice_constants::gravit = 9.80616_dbl_kind

Definition at line 85 of file ice_constants.f90.

      real (kind=dbl_kind), parameter :: &
         gravit    = 9.80616_dbl_kind  &! gravitational acceleration (m/s^2)
      ,  secday    = 86400.0_dbl_kind  &! seconds in calendar day
      ,  omega     = 7.292e-5_dbl_kind &! angular velocity of earth (rad/sec)
      ,  radius    = 6.37e6_dbl_kind   &! earth radius (m)
      ,  rhoi      = 917.0_dbl_kind    &! density of ice (kg/m^3)
      ,  rhow      = 1026.0_dbl_kind   &! density of seawater (kg/m^3)
      ,  rhofresh  = 1000.0_dbl_kind   &! density of fresh water (kg/m^3)
      ,  zvir      = 0.606_dbl_kind    &! rh2o/rair - 1.0
      ,  vonkar    = 0.4_dbl_kind      &! von Karman constant
      ,  cp_air    = 1005.0_dbl_kind   &! specific heat of air (J/kg/K)
      ,  cp_wv     = 1.81e3_dbl_kind   &! specific heat of water vapor (J/kg/K)
      ,  stefan_boltzmann = 567.0e-10_dbl_kind &!  W/m^2/K^4
      ,  tffresh   = 273.15_dbl_kind   &! freezing temp of fresh ice (K)
!#ifdef CCSM
!     &,  cp_ice = 2054._dbl_kind       ! specific heat of fresh ice (J/kg/K)
!#else
      ,  cp_ice = 2106._dbl_kind      & ! specific heat of fresh ice (J/kg/K)
!#endif
      ,  cp_ocn    = 4218._dbl_kind    &! specific heat of ocn    (J/kg/K)
      ,  lsub      = 2.835e6_dbl_kind  &! latent heat, sublimation freshwater (J/kg)
      ,  lvap      = 2.501e6_dbl_kind  &! latent heat, vaporization freshwater (J/kg)
      ,  lfresh    = lsub-lvap         &! latent heat of melting of fresh ice (J/kg)
      ,  timelt    = 0.0_dbl_kind      &! melting temperature, ice top surface  (C)
      ,  tsmelt    = 0.0_dbl_kind      &! melting temperature, snow top surface (C)
      ,  ice_ref_salinity = 4._dbl_kind   ! (psu)

ice_ref_salinity

real (kind=dbl_kind), parameter ice_constants::ice_ref_salinity = 4._dbl_kind

Definition at line 85 of file ice_constants.f90.

iceruf

real (kind=dbl_kind), parameter ice_constants::iceruf = 0.0005_dbl_kind

Definition at line 118 of file ice_constants.f90.

kappan

real (kind=dbl_kind), parameter ice_constants::kappan = 17.6_dbl_kind

Definition at line 118 of file ice_constants.f90.

kappav

real (kind=dbl_kind), parameter ice_constants::kappav = 1.4_dbl_kind

Definition at line 118 of file ice_constants.f90.

kg_to_g

real (kind=dbl_kind), parameter ice_constants::kg_to_g = 1000._dbl_kind

Definition at line 213 of file ice_constants.f90.

kice

real (kind=dbl_kind), parameter ice_constants::kice = 2.03_dbl_kind

Definition at line 118 of file ice_constants.f90.

ksno

real (kind=dbl_kind), parameter ice_constants::ksno = 0.30_dbl_kind

Definition at line 118 of file ice_constants.f90.

lfresh

real (kind=dbl_kind), parameter ice_constants::lfresh = Lsub-Lvap

Definition at line 85 of file ice_constants.f90.

lsub

real (kind=dbl_kind), parameter ice_constants::lsub = 2.835e6_dbl_kind

Definition at line 85 of file ice_constants.f90.

lvap

real (kind=dbl_kind), parameter ice_constants::lvap = 2.501e6_dbl_kind

Definition at line 85 of file ice_constants.f90.

m2_to_km2

real (kind=dbl_kind), parameter ice_constants::m2_to_km2 = 1.e-6_dbl_kind

Definition at line 213 of file ice_constants.f90.

m_to_cm

real (kind=dbl_kind), parameter ice_constants::m_to_cm = 100._dbl_kind

Definition at line 213 of file ice_constants.f90.

mps_to_cmpdy

real (kind=dbl_kind), parameter ice_constants::mps_to_cmpdy = 8.64e6_dbl_kind

Definition at line 213 of file ice_constants.f90.

mps_to_cmpyr

real (kind=dbl_kind), parameter ice_constants::mps_to_cmpyr = mps_to_cmpdy*365._dbl_kind

Definition at line 213 of file ice_constants.f90.

omega

real (kind=dbl_kind), parameter ice_constants::omega = 7.292e-5_dbl_kind

Definition at line 85 of file ice_constants.f90.

p001

real (kind=dbl_kind), parameter ice_constants::p001 = 0.001_dbl_kind

Definition at line 150 of file ice_constants.f90.

p01

real (kind=dbl_kind), parameter ice_constants::p01 = 0.01_dbl_kind

Definition at line 150 of file ice_constants.f90.

p027

real (kind=dbl_kind), parameter ice_constants::p027 = p055*p5

Definition at line 150 of file ice_constants.f90.

p055

real (kind=dbl_kind), parameter ice_constants::p055 = p111*p5

Definition at line 150 of file ice_constants.f90.

p1

real (kind=dbl_kind), parameter ice_constants::p1 = 0.1_dbl_kind

Definition at line 150 of file ice_constants.f90.

p111

real (kind=dbl_kind), parameter ice_constants::p111 = c1i/c9i

Definition at line 150 of file ice_constants.f90.

p15

real (kind=dbl_kind), parameter ice_constants::p15 = 0.15_dbl_kind

Definition at line 150 of file ice_constants.f90.

p166

real (kind=dbl_kind), parameter ice_constants::p166 = c1i/c6i

Definition at line 150 of file ice_constants.f90.

p2

real (kind=dbl_kind), parameter ice_constants::p2 = 0.2_dbl_kind

Definition at line 150 of file ice_constants.f90.

p222

real (kind=dbl_kind), parameter ice_constants::p222 = c2i/c9i

Definition at line 150 of file ice_constants.f90.

p25

real (kind=dbl_kind), parameter ice_constants::p25 = 0.25_dbl_kind

Definition at line 150 of file ice_constants.f90.

p333

real (kind=dbl_kind), parameter ice_constants::p333 = c1i/c3i

Definition at line 150 of file ice_constants.f90.

p4

real (kind=dbl_kind), parameter ice_constants::p4 = 0.4_dbl_kind

Definition at line 150 of file ice_constants.f90.

p5

real (kind=dbl_kind), parameter ice_constants::p5 = 0.5_dbl_kind

Definition at line 150 of file ice_constants.f90.

p6

real (kind=dbl_kind), parameter ice_constants::p6 = 0.6_dbl_kind

Definition at line 150 of file ice_constants.f90.

p666

real (kind=dbl_kind), parameter ice_constants::p666 = c2i/c3i

Definition at line 150 of file ice_constants.f90.

pih

real (kind=dbl_kind) ice_constants::pih

Definition at line 206 of file ice_constants.f90.

      real (kind=dbl_kind) :: & 
        pih !, pi2         ! pi/2 and 2pi

puny

real (kind=dbl_kind), parameter ice_constants::puny = 1.0e-5_dbl_kind

Definition at line 150 of file ice_constants.f90.

qqqice

real (kind=dbl_kind), parameter ice_constants::qqqice = 11637800._dbl_kind

Definition at line 134 of file ice_constants.f90.

      real (kind=dbl_kind), parameter :: &
        qqqice       = 11637800._dbl_kind       &! for qsat over ice
      , tttice       = 5897.8_dbl_kind          &! for qsat over ice
      , qqqocn       = 627572.4_dbl_kind        &! for qsat over ocn
      , tttocn       = 5107.4_dbl_kind          ! for qsat over ocn

qqqocn

real (kind=dbl_kind), parameter ice_constants::qqqocn = 627572.4_dbl_kind

Definition at line 134 of file ice_constants.f90.

rad_to_deg

real (kind=dbl_kind) ice_constants::rad_to_deg

Definition at line 221 of file ice_constants.f90.

      real (kind=dbl_kind) :: & 
        rad_to_deg               ! degree-radian conversion

radius

real (kind=dbl_kind), parameter ice_constants::radius = 6.37e6_dbl_kind

Definition at line 85 of file ice_constants.f90.

rhofresh

real (kind=dbl_kind), parameter ice_constants::rhofresh = 1000.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

rhoi

real (kind=dbl_kind), parameter ice_constants::rhoi = 917.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

rhos

real (kind=dbl_kind), parameter ice_constants::rhos = 330.0_dbl_kind

Definition at line 118 of file ice_constants.f90.

      real (kind=dbl_kind), parameter :: &
         rhos     = 330.0_dbl_kind     &! density of snow (kg/m^3)
      ,  depresst = 0.054_dbl_kind     &! Tf:brine salinity ratio (C/ppt)
      ,  iceruf   = 0.0005_dbl_kind    & ! ice surface roughness (m)

         ! (Ebert, Schramm and Curry JGR 100 15965-15975 Aug 1995)
      ,  kappav = 1.4_dbl_kind   &! vis extnctn coef in ice, wvlngth<700nm (1/m)
      ,  kappan = 17.6_dbl_kind  &! vis extnctn coef in ice, wvlngth<700nm (1/m)

         ! (Briegleb JGR 97 11475-11485  July 1992)
      ,  emissivity = 0.95_dbl_kind  & ! emissivity of snow and ice

      ,  kice   = 2.03_dbl_kind   &! thermal conductivity of fresh ice(W/m/deg)
      ,  ksno   = 0.30_dbl_kind   &! thermal conductivity of snow  (W/m/deg)
      ,  zref   = 10._dbl_kind     ! reference height for stability (m)

rhow

real (kind=dbl_kind), parameter ice_constants::rhow = 1026.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

secday

real (kind=dbl_kind), parameter ice_constants::secday = 86400.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

spval

real (kind=real_kind), parameter ice_constants::spval = 1.0e30_real_kind

Definition at line 114 of file ice_constants.f90.

      real (kind=real_kind), parameter :: &
     &   spval     = 1.0e30_real_kind  ! special value

stefan_boltzmann

real (kind=dbl_kind), parameter ice_constants::stefan_boltzmann = 567.0e-10_dbl_kind

Definition at line 85 of file ice_constants.f90.

tffresh

real (kind=dbl_kind), parameter ice_constants::tffresh = 273.15_dbl_kind

Definition at line 85 of file ice_constants.f90.

timelt

real (kind=dbl_kind), parameter ice_constants::timelt = 0.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

tsmelt

real (kind=dbl_kind), parameter ice_constants::tsmelt = 0.0_dbl_kind

Definition at line 85 of file ice_constants.f90.

tttice

real (kind=dbl_kind), parameter ice_constants::tttice = 5897.8_dbl_kind

Definition at line 134 of file ice_constants.f90.

tttocn

real (kind=dbl_kind), parameter ice_constants::tttocn = 5107.4_dbl_kind

Definition at line 134 of file ice_constants.f90.

vonkar

real (kind=dbl_kind), parameter ice_constants::vonkar = 0.4_dbl_kind

Definition at line 85 of file ice_constants.f90.

zref

real (kind=dbl_kind), parameter ice_constants::zref = 10._dbl_kind

Definition at line 118 of file ice_constants.f90.

zvir

real (kind=dbl_kind), parameter ice_constants::zvir = 0.606_dbl_kind

Definition at line 85 of file ice_constants.f90.