My Project
Modules | Functions/Subroutines | Variables
ice_therm_vertical.f90 File Reference

Go to the source code of this file.

Modules

module  ice_therm_vertical
 

Functions/Subroutines

subroutine ice_therm_vertical::init_thermo_vertical
 
subroutine ice_therm_vertical::thermo_vertical
 
subroutine ice_therm_vertical::frzmlt_bottom_lateral (Tbot, fbot, rside)
 
subroutine ice_therm_vertical::init_thermo_vars (strxn, stryn, Trefn, Qrefn, fsensn, flatn, fswabsn, flwoutn, evapn, freshn, fsaltn, fhnetn, fswthrun, fsurf, fcondtop, fcondbot, fswint, einit, efinal, mvap)
 
subroutine ice_therm_vertical::init_vertical_profile (ni, icells, indxi, indxj, hin, hlyr, hsn, hin_init, hsn_init, qin, Tin, qsn, Tsn, Tsf, einit)
 
subroutine ice_therm_vertical::temperature_changes (ni, icells, indxi, indxj, hlyr, hsn, qin, Tin, qsn, Tsn, Tsf, Tbot, fbot, fsensn, flatn, fswabsn, flwoutn, fswthrun, fhnetn, fsurf, fcondtop, fcondbot, fswint, einit)
 
subroutine ice_therm_vertical::conductivity (icells, indxi, indxj, hlyr, hsn, Tin, Tbot, khi, khs)
 
subroutine ice_therm_vertical::absorbed_solar (ni, icells, indxi, indxj, hlyr, hsn, fswsfc, fswint, fswthrun, Iabs)
 
subroutine ice_therm_vertical::surface_fluxes (isolve, indxii, indxjj, Tsf, fswsfc, flwoutn, fsensn, flatn, fsurf, dflwout_dT, dfsens_dT, dflat_dT, dfsurf_dT)
 
subroutine ice_therm_vertical::tridiag_solver (isolve, indxii, indxjj, nmat, sbdiag, diag, spdiag, rhs, xout)
 
subroutine ice_therm_vertical::thickness_changes (ni, icells, indxi, indxj, hin, hlyr, hsn, qin, qsn, mvap, Tbot, fbot, flatn, fhnetn, fsurf, fcondtop, fcondbot, efinal)
 
subroutine ice_therm_vertical::conservation_check_vthermo (ni, icells, indxi, indxj, fsurf, flatn, fhnetn, fswint, einit, efinal)
 
subroutine ice_therm_vertical::add_new_snow (ni, icells, indxi, indxj, hsn, hsn_new, qsn, Tsf)
 
subroutine ice_therm_vertical::update_state_vthermo (ni, icells, indxi, indxj, hin, hsn, qin, qsn, Tsf)
 

Variables

real(kind=dbl_kind), parameter ice_therm_vertical::ferrmax = 1.0e-3_dbl_kind
 
real(kind=dbl_kind), parameter ice_therm_vertical::hsnomin = 1.0e-6_dbl_kind
 
real(kind=dbl_kind), dimension(nilyr+1) ice_therm_vertical::salin
 
real(kind=dbl_kind), dimension(nilyr+1) ice_therm_vertical::tmlt
 
real(kind=dbl_kind) ice_therm_vertical::ustar_scale
 
real(kind=dbl_kind), dimension(:,:,:), allocatable, save ice_therm_vertical::hicen_old
 
real(kind=dbl_kind), dimension(:,:), allocatable, save ice_therm_vertical::rside
 
logical(kind=log_kind) ice_therm_vertical::l_brine