suews_phys_anohm.f95 File Reference

Go to the source code of this file.

Modules
module	anohm_module
	AnOHM: Analytical Objective Hysteresis Model.

Functions/Subroutines
subroutine	anohm_module::anohm (tstep, dt_since_start, qn1, qn_av_prev, dqndt_prev, qf, metforcingdata_grid, moist_surf, alb, emis, cpanohm, kkanohm, chanohm, sfr_surf, nsurf, emissionsmethod, id, gridiv, qn_av_next, dqndt_next, a1, a2, a3, qs, deltaqi)
	High level wrapper for AnOHM calculation.
subroutine	anohm_module::anohm_coef (sfc_typ, xid, xgrid, metforcingdata_grid, moist, emissionsmethod, qf, alb, emis, cpanohm, kkanohm, chanohm, xa1, xa2, xa3)
	High level wrapper for AnOHM coefficients calculation.
subroutine	anohm_module::anohm_xts (sfc_typ, asd, msd, ata, mta, tau, mws, mwf, mah, xalb, xemis, xcp, xk, xch, xbo, tsd, xthr, xts)
	calculate the surface temperature related parameters (ATs, mTs, gamma) based on forcings and sfc.
subroutine	anohm_module::anohm_coef_land_cal (asd, msd, ata, mta, tau, mws, mwf, mah, xalb, xemis, xcp, xk, xch, xbo, xa1, xa2, xa3, ats, mts, gamma)
subroutine	anohm_module::anohm_coef_water_cal (asd, msd, ata, mta, tau, mws, mwf, mah, xalb, xemis, xcp, xk, xch, xbo, xeta, xmu, xa1, xa2, xa3, ats, mts, gamma)
	a wrapper for retrieving AnOHM coefficients of water body
subroutine	anohm_module::anohm_fc (xid, metforcingdata_grid, emissionsmethod, qf, asd, msd, tsd, ata, mta, tta, tau, mws, mwf, mah)
subroutine	anohm_module::anohm_fcload (xid, metforcingdata_grid, emissionsmethod, qf, sd, ta, rh, pres, ws, wf, ah, thr)
	load forcing series for AnOHM_FcCal
subroutine	anohm_module::anohm_fccal (sd, ta, ws, wf, ah, thr, asd, msd, tsd, ata, mta, tta, tau, mws, mwf, mah)
	calculate the key parameters of a sinusoidal curve for AnOHM forcings i.e., a, b, c in a*Sin(Pi/12*t+b)+c
subroutine	anohm_module::anohm_shapefit (thr, obs, amp, mean, tpeak)
	calculate the key parameters of a sinusoidal curve for AnOHM forcings i.e., a, b, c in a*Sin(Pi/12*t+b)+c, where t is in hour
subroutine	anohm_module::fsin (m, n, x, xdat, ydat, fvec, iflag)
	sinusoidal function f(t) for fitting: f(t) = mean+amp*Sin(Pi/12(t-delta)) x = (/mean,amp,delta/) contains the fitting parameters
subroutine	anohm_module::anohm_bo_cal (sfc_typ, sd, ta, rh, pres, thr, asd, msd, ata, mta, tau, mws, mwf, mah, xalb, xemis, xcp, xk, xch, xsm, tsd, xbo)
	estimate daytime Bowen ratio for calculation of AnOHM coefficients
subroutine	anohm_module::fcnbo (n, x, fvec, iflag, m, prms)
	this fucntion will construct an equaiton for Bo calculation
real(kind(1d0)) function	anohm_module::esat_fn (ta)
	calculate saturation vapor pressure (es) at air temperature (Ta) (MRR, 1987)
real(kind(1d0)) function	anohm_module::qsat_fn (ta, pres)
	calculate saturation specific humidity (qsat) at air temperature (Ta) and atmospheric pressure (pres) (MRR, 1987)
real(kind(1d0)) function	anohm_module::qa_fn (ta, rh, pres)
	convert relative humidity (RH) to specific humidity (qa) at air temperature (Ta) and atmospheric pressure (pres)