ColumnThermodynamics.f90 File Reference

Modules
module	column_thermodynamics

Functions/Subroutines
real(kind=8) function	column_thermodynamics::fo_upwind (u, sminus, splus)
subroutine	column_thermodynamics::tdmasolve (n, x, a, b, c, d)
subroutine	column_thermodynamics::sigma_advect (rhs, energy, senergy, benergy, husig, fsig, dt, mask, n)
subroutine	column_thermodynamics::moisture_transport (energy, epmp, cdsig, n)
subroutine	column_thermodynamics::fo_diffusive_advance (energy, tillwaterdepth, senergy, sflux, sdiric, benergy, bflux, rhs, thckold, thcknew, tillwaterdrainfactor, fsig, dt, mask, n)
subroutine	column_thermodynamics_set_constants (asput, arhoi, arhoo, agrav, ashci, alhci, aconi, aconm, apmlt, atrpt)
subroutine	column_thermodynamics_set_water_constants (a_water_fraction_drain, a_water_fraction_max, a_water_drain_factor, a_till_water_drain_factor, a_till_water_max, a_floating_base_max_heat_flux)
subroutine	column_thermodynamics_update_internal_energy (energy, tillwaterdepth, senergy, sflux, sdiric, benergy, mask, bflux, rhs, thckold, thcknew, tillwaterdrainfactor, usig, fsig, dsig, time, dt, n)
subroutine	column_compute_sigma_vel (husig, ux, uy, divhu, dsig, n, dht, smb, bmb)
subroutine	column_compute_z_vel (uz, uzs, ux, uy, divhu, fsig, dsig, n, dsx, dhx, dsy, dhy, dst, dht, smb, bmb)

Variables
real(kind=8)	column_thermodynamics::sput
real(kind=8)	column_thermodynamics::rhoi
real(kind=8)	column_thermodynamics::rhoo
real(kind=8)	column_thermodynamics::grav
real(kind=8)	column_thermodynamics::shci
real(kind=8)	column_thermodynamics::lhci
real(kind=8)	column_thermodynamics::coni
real(kind=8)	column_thermodynamics::conm
real(kind=8)	column_thermodynamics::pmlt
real(kind=8)	column_thermodynamics::trpt
real(kind=8)	column_thermodynamics::water_fraction_drain
real(kind=8)	column_thermodynamics::water_fraction_max
real(kind=8)	column_thermodynamics::water_drain_factor
real(kind=8)	column_thermodynamics::deprecated_till_water_drain_factor
real(kind=8)	column_thermodynamics::till_water_max
real(kind=8)	column_thermodynamics::floating_base_max_heat_flux
integer, parameter	column_thermodynamics::groundedmaskval = 1
integer, parameter	column_thermodynamics::floatingmaskval = 2
integer, parameter	column_thermodynamics::openseamaskval = 4
integer, parameter	column_thermodynamics::openlandmaskval = 8
real(kind=8), parameter	column_thermodynamics::temp_eps = 1.0e-3
real(kind=8), parameter	column_thermodynamics::max_delta_energy = 200.0
real(kind=8), parameter	column_thermodynamics::zero_debug = 0.0d0
real(kind=8), parameter	column_thermodynamics::temperature_min = 200.0d0

Function/Subroutine Documentation

column_compute_sigma_vel()

subroutine column_compute_sigma_vel	(	real(kind=8), dimension(1:n+1), intent(out)	husig,
		real(kind=8), dimension(1:n+1), intent(in)	ux,
		real(kind=8), dimension(1:n+1), intent(in)	uy,
		real(kind=8), dimension(1:n), intent(in)	divhu,
		real(kind=8), dimension(1:n), intent(in)	dsig,
		integer, intent(in)	n,
		real(kind=8), intent(in)	dht,
		real(kind=8), intent(in)	smb,
		real(kind=8), intent(in)	bmb
	)

column_compute_z_vel()

subroutine column_compute_z_vel	(	real(kind=8), dimension(1:n+1), intent(out)	uz,
		real(kind=8), intent(out)	uzs,
		real(kind=8), dimension(1:n+1), intent(in)	ux,
		real(kind=8), dimension(1:n+1), intent(in)	uy,
		real(kind=8), dimension(1:n), intent(in)	divhu,
		real(kind=8), dimension(1:n+1), intent(in)	fsig,
		real(kind=8), dimension(1:n), intent(in)	dsig,
		integer, intent(in)	n,
		real(kind=8), intent(in)	dsx,
		real(kind=8), intent(in)	dhx,
		real(kind=8), intent(in)	dsy,
		real(kind=8), intent(in)	dhy,
		real(kind=8), intent(in)	dst,
		real(kind=8), intent(in)	dht,
		real(kind=8), intent(in)	smb,
		real(kind=8), intent(in)	bmb
	)

column_thermodynamics_set_constants()

subroutine column_thermodynamics_set_constants	(	real(kind=8)	asput,
		real(kind=8)	arhoi,
		real(kind=8)	arhoo,
		real(kind=8)	agrav,
		real(kind=8)	ashci,
		real(kind=8)	alhci,
		real(kind=8)	aconi,
		real(kind=8)	aconm,
		real(kind=8)	apmlt,
		real(kind=8)	atrpt
	)

References column_thermodynamics::coni, column_thermodynamics::conm, column_thermodynamics::grav, column_thermodynamics::lhci, column_thermodynamics::pmlt, column_thermodynamics::rhoi, column_thermodynamics::rhoo, column_thermodynamics::shci, column_thermodynamics::sput, and column_thermodynamics::trpt.

column_thermodynamics_set_water_constants()

subroutine column_thermodynamics_set_water_constants	(	real(kind=8)	a_water_fraction_drain,
		real(kind=8)	a_water_fraction_max,
		real(kind=8)	a_water_drain_factor,
		real(kind=8)	a_till_water_drain_factor,
		real(kind=8)	a_till_water_max,
		real(kind=8)	a_floating_base_max_heat_flux
	)

References column_thermodynamics::deprecated_till_water_drain_factor, column_thermodynamics::floating_base_max_heat_flux, column_thermodynamics::till_water_max, column_thermodynamics::water_drain_factor, column_thermodynamics::water_fraction_drain, and column_thermodynamics::water_fraction_max.

column_thermodynamics_update_internal_energy()

subroutine column_thermodynamics_update_internal_energy	(	real(kind=8), dimension(1:n), intent(inout)	energy,
		real(kind=8), intent(inout)	tillwaterdepth,
		real(kind=8), intent(inout)	senergy,
		real(kind=8), intent(inout)	sflux,
		logical, intent(in)	sdiric,
		real(kind=8), intent(inout)	benergy,
		integer, intent(in)	mask,
		real(kind=8), intent(inout)	bflux,
		real(kind=8), dimension(1:n), intent(inout)	rhs,
		real(kind=8), intent(in)	thckold,
		real(kind=8), intent(in)	thcknew,
		real(kind=8), intent(in)	tillwaterdrainfactor,
		real(kind=8), dimension(1:n+1), intent(inout)	usig,
		real(kind=8), dimension(1:n+1), intent(inout)	fsig,
		real(kind=8), dimension(1:n), intent(inout)	dsig,
		real(kind=8), intent(in)	time,
		real(kind=8), intent(in)	dt,
		integer	n
	)

References column_thermodynamics::coni, column_thermodynamics::floatingmaskval, column_thermodynamics::fo_diffusive_advance(), column_thermodynamics::grav, column_thermodynamics::openseamaskval, column_thermodynamics::pmlt, column_thermodynamics::rhoi, column_thermodynamics::shci, column_thermodynamics::sigma_advect(), column_thermodynamics::temp_eps, column_thermodynamics::till_water_max, and column_thermodynamics::trpt.