ice_mechred.f90 File Reference

Go to the source code of this file.

Modules
module	ice_mechred

Functions/Subroutines
subroutine	ice_mechred::init_mechred
subroutine	ice_mechred::ridge_ice (Delta, divu)
subroutine	ice_mechred::ice_strength (kstrngth)
subroutine	ice_mechred::ridge_prep
subroutine	ice_mechred::ridge_shift (opning, closing_gross, msnow_mlt, esnow_mlt)
subroutine	ice_mechred::asum_ridging

Variables
integer(kind=int_kind)	ice_mechred::kstrength
integer(kind=int_kind)	ice_mechred::krdg_partic
integer(kind=int_kind)	ice_mechred::krdg_redist
real(kind=dbl_kind), parameter	ice_mechred::cf = 17._dbl_kind
real(kind=dbl_kind), parameter	ice_mechred::cs = p25
real(kind=dbl_kind), parameter	ice_mechred::cp = p5*gravit*(rhow-rhoi)*rhoi/rhow
real(kind=dbl_kind), parameter	ice_mechred::fsnowrdg = p5
real(kind=dbl_kind), parameter	ice_mechred::gstar = p15
real(kind=dbl_kind), parameter	ice_mechred::astar = 0.05_dbl_kind
real(kind=dbl_kind), parameter	ice_mechred::maxraft = c1i
real(kind=dbl_kind), parameter	ice_mechred::hstar = c25
real(kind=dbl_kind), parameter	ice_mechred::mu_rdg = c4i
real(kind=dbl_kind), parameter	ice_mechred::pstar = 2.75e4_dbl_kind
real(kind=dbl_kind), parameter	ice_mechred::cstar = c20
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::dardg1dt
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::dardg2dt
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::dvirdgdt
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::opening
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::asum
real(kind=dbl_kind), dimension(:,:), allocatable, save	ice_mechred::aksum
real(kind=dbl_kind), dimension(:,:,:), allocatable, save	ice_mechred::apartic
real(kind=dbl_kind), dimension(:,:,:), allocatable, save	ice_mechred::hrmin
real(kind=dbl_kind), dimension(:,:,:), allocatable, save	ice_mechred::hrmax
real(kind=dbl_kind), dimension(:,:,:), allocatable, save	ice_mechred::hrexp
real(kind=dbl_kind), dimension(:,:,:), allocatable, save	ice_mechred::krdg
logical(kind=log_kind), parameter	ice_mechred::l_conservation_check = .true.