ice_mechred.F90 File Reference

Go to the source code of this file.

Modules
module	ice_mechred
Functions/Subroutines
subroutine	ice_mechred::ridge_ice (nx_block, ny_block, dt_dyn, dt_thm, icells, indxi, indxj, rdg_conv, rdg_shear, aicen, trcrn, vicen, vsnon, eicen, esnon, aice0, trcr_depend, l_stop, istop, jstop, dardg1dt, dardg2dt, dvirdgdt, opening, fresh, fhocn, fsoot)
subroutine	ice_mechred::asum_ridging (nx_block, ny_block, icells, indxi, indxj, aicen, aice0, asum)
subroutine	ice_mechred::ridge_prep (nx_block, ny_block, icells, indxi, indxj, dt, rdg_conv, rdg_shear, asum, closing_net, divu_adv, opning)
subroutine	ice_mechred::ridge_itd (nx_block, ny_block, icells, indxi, indxj, aicen, vicen, aice0, aksum, apartic, hrmin, hrmax, hrexp, krdg)
subroutine	ice_mechred::ridge_shift (nx_block, ny_block, icells, indxi, indxj, dt, aicen, trcrn, vicen, vsnon, eicen, esnon, aice0, trcr_depend, aksum, apartic, hrmin, hrmax, hrexp, krdg, closing_net, opning, ardg1, ardg2, virdg, aopen, msnow_mlt, esnow_mlt, msoot, l_stop, istop, jstop)
subroutine	ice_mechred::ridge_check (nx_block, ny_block, icells, indxi, indxj, dt, asum, closing_net, divu_adv, opning, iterate_ridging)
subroutine	ice_mechred::ice_strength (nx_block, ny_block, ilo, ihi, jlo, jhi, icells, indxi, indxj, aice, vice, aice0, aicen, vicen, strength)
Variables
integer(kind=int_kind)	ice_mechred::kstrength
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
logical(kind=log_kind), parameter	ice_mechred::l_conservation_check = .true.