mode_sfcflx Module Reference

Functions/Subroutines
real function	sfcflx_lwradatm (T_a, e_a, cl_tot, cl_low)
real function	sfcflx_lwradwsfc (emis, pts)
subroutine	sfcflx_momsenlat (height_u, height_tq, fetch, U_a, T_a, q_a, T_s, P_a, h_ice, Q_momentum, Q_sensible, Q_latent, Q_watvap, Ri, z0u_ini, z0t_ini, Qsat_out, Q_latenti, Q_sublim)
real function	sfcflx_rhoair (T, q, P)
subroutine	sfcflx_roughness (fetch, U_a, u_star, h_ice, c_z0u_fetch, u_star_thresh, z0u, z0t, z0q)
real function	sfcflx_satwvpres (T, h_ice)
real function	sfcflx_spechum (wvpres, P)
real function	sfcflx_wvpreswetbulb (T_dry, T_wetbulb, satwvpres_bulb, P)

Variables
real, parameter	c_karman = 0.40
real, parameter	pr_neutral = 1.0
real, parameter	sc_neutral = 1.0
real, parameter	c_mo_u_stab = 5.0
real, parameter	c_mo_t_stab = 5.0
real, parameter	c_mo_q_stab = 5.0
real, parameter	c_mo_u_conv = 15.0
real, parameter	c_mo_t_conv = 15.0
real, parameter	c_mo_q_conv = 15.0
real, parameter	c_mo_u_exp = 0.25
real, parameter	c_mo_t_exp = 0.5
real, parameter	c_mo_q_exp = 0.5
real, parameter	z0u_ice_rough = 1.0E-03
real, parameter	c_z0u_smooth = 0.1
real, parameter	c_z0u_rough = 1.23E-02
real, parameter	c_z0u_rough_l = 1.00E-01
real, parameter	c_z0u_ftch_f = 0.70
real, parameter	c_z0u_ftch_ex = 0.3333333
real, parameter	c_z0t_rough_1 = 4.0
real, parameter	c_z0t_rough_2 = 3.2
real, parameter	c_z0t_rough_3 = 0.5
real, parameter	c_z0q_rough_1 = 4.0
real, parameter	c_z0q_rough_2 = 4.2
real, parameter	c_z0q_rough_3 = 0.5
real, parameter	c_z0t_ice_b0s = 1.250
real, parameter	c_z0t_ice_b0t = 0.149
real, parameter	c_z0t_ice_b1t = -0.550
real, parameter	c_z0t_ice_b0r = 0.317
real, parameter	c_z0t_ice_b1r = -0.565
real, parameter	c_z0t_ice_b2r = -0.183
real, parameter	c_z0q_ice_b0s = 1.610
real, parameter	c_z0q_ice_b0t = 0.351
real, parameter	c_z0q_ice_b1t = -0.628
real, parameter	c_z0q_ice_b0r = 0.396
real, parameter	c_z0q_ice_b1r = -0.512
real, parameter	c_z0q_ice_b2r = -0.180
real, parameter	re_z0s_ice_t = 2.5
real, parameter	re_z0u_thresh = 0.1
real, parameter	c_free_conv = 0.14
real, parameter	c_lwrad_emis = 0.99
real, parameter	tpsf_c_stefboltz = 5.67E-08
real, parameter	tpsf_r_dryair = 2.8705E+02
real, parameter	tpsf_r_watvap = 4.6151E+02
real, parameter	tpsf_c_a_p = 1.005E+03
real, parameter	tpsf_l_evap = 2.501E+06
real, parameter	tpsf_nu_u_a = 1.50E-05
real, parameter	tpsf_kappa_t_a = 2.20E-05
real, parameter	tpsf_kappa_q_a = 2.40E-05
real, parameter	tpsf_rd_o_rv = tpsf_R_dryair/tpsf_R_watvap
real, parameter	tpsf_alpha_q = (1.-tpsf_Rd_o_Rv)/tpsf_Rd_o_Rv
real, parameter	p_a_ref = 1.0E+05
real, parameter, private	z_ =-HUGE(0.0)
real	z0u_sf =Z_
real	z0t_sf =Z_
real	z0q_sf =Z_
real, parameter	u_wind_min_sf = 1.0E-02
real, parameter	u_star_min_sf = 1.0E-04
real, parameter	z0t_min_sf = 1.0E-11
real, parameter	c_accur_sf = 1.0E-07
real, parameter	c_small_sf = 1.0E-04
real, parameter	num_1o3_sf = 1./3.

Function/Subroutine Documentation

sfcflx_lwradatm()

real function mode_sfcflx::sfcflx_lwradatm	(	real, intent(in)	T_a,
		real, intent(in)	e_a,
		real, intent(in)	cl_tot,
		real, intent(in)	cl_low
	)

Definition at line 217 of file mode_sfcflx.F90.

sfcflx_lwradwsfc()

real function mode_sfcflx::sfcflx_lwradwsfc	(	real, intent(in)	emis,
		real, intent(in)	pts
	)

Definition at line 383 of file mode_sfcflx.F90.

Here is the caller graph for this function:

sfcflx_momsenlat()

subroutine mode_sfcflx::sfcflx_momsenlat	(	real, intent(in)	height_u,
		real, intent(in)	height_tq,
		real, intent(in)	fetch,
		real, intent(in)	U_a,
		real, intent(in)	T_a,
		real, intent(in)	q_a,
		real, intent(in)	T_s,
		real, intent(in)	P_a,
		real, intent(in)	h_ice,
		real, intent(inout)	Q_momentum,
		real, intent(out)	Q_sensible,
		real, intent(out)	Q_latent,
		real, intent(out)	Q_watvap,
		real, intent(out)	Ri,
		real, intent(in)	z0u_ini,
		real, intent(in)	z0t_ini,
		real, intent(out)	Qsat_out,
		real, intent(out)	Q_latenti,
		real, intent(out)	Q_sublim
	)

Definition at line 466 of file mode_sfcflx.F90.

Here is the call graph for this function:

sfcflx_rhoair()

real function mode_sfcflx::sfcflx_rhoair	(	real, intent(in)	T,
		real, intent(in)	q,
		real, intent(in)	P
	)

Definition at line 906 of file mode_sfcflx.F90.

Here is the caller graph for this function:

sfcflx_roughness()

subroutine mode_sfcflx::sfcflx_roughness	(	real, intent(in)	fetch,
		real, intent(in)	U_a,
		real, intent(in)	u_star,
		real, intent(in)	h_ice,
		real, intent(out)	c_z0u_fetch,
		real, intent(out)	u_star_thresh,
		real, intent(out)	z0u,
		real, intent(out)	z0t,
		real, intent(out)	z0q
	)

Definition at line 987 of file mode_sfcflx.F90.

Here is the caller graph for this function:

sfcflx_satwvpres()

real function mode_sfcflx::sfcflx_satwvpres	(	real, intent(in)	T,
		real, intent(in)	h_ice
	)

Definition at line 1142 of file mode_sfcflx.F90.

sfcflx_spechum()

real function mode_sfcflx::sfcflx_spechum	(	real, intent(in)	wvpres,
		real, intent(in)	P
	)

Definition at line 1240 of file mode_sfcflx.F90.

sfcflx_wvpreswetbulb()

real function mode_sfcflx::sfcflx_wvpreswetbulb	(	real, intent(in)	T_dry,
		real, intent(in)	T_wetbulb,
		real, intent(in)	satwvpres_bulb,
		real, intent(in)	P
	)

Definition at line 1320 of file mode_sfcflx.F90.

Variable Documentation

c_accur_sf

real, parameter mode_sfcflx::c_accur_sf = 1.0E-07

Definition at line 185 of file mode_sfcflx.F90.

c_free_conv

real, parameter mode_sfcflx::c_free_conv = 0.14

Definition at line 138 of file mode_sfcflx.F90.

c_karman

real, parameter mode_sfcflx::c_karman = 0.40

Definition at line 94 of file mode_sfcflx.F90.

c_lwrad_emis

real, parameter mode_sfcflx::c_lwrad_emis = 0.99

Definition at line 142 of file mode_sfcflx.F90.

c_mo_q_conv

real, parameter mode_sfcflx::c_mo_q_conv = 15.0

Definition at line 94 of file mode_sfcflx.F90.

c_mo_q_exp

real, parameter mode_sfcflx::c_mo_q_exp = 0.5

Definition at line 94 of file mode_sfcflx.F90.

c_mo_q_stab

real, parameter mode_sfcflx::c_mo_q_stab = 5.0

Definition at line 94 of file mode_sfcflx.F90.

c_mo_t_conv

real, parameter mode_sfcflx::c_mo_t_conv = 15.0

Definition at line 94 of file mode_sfcflx.F90.

c_mo_t_exp

real, parameter mode_sfcflx::c_mo_t_exp = 0.5

Definition at line 94 of file mode_sfcflx.F90.

c_mo_t_stab

real, parameter mode_sfcflx::c_mo_t_stab = 5.0

Definition at line 94 of file mode_sfcflx.F90.

c_mo_u_conv

real, parameter mode_sfcflx::c_mo_u_conv = 15.0

Definition at line 94 of file mode_sfcflx.F90.

c_mo_u_exp

real, parameter mode_sfcflx::c_mo_u_exp = 0.25

Definition at line 94 of file mode_sfcflx.F90.

c_mo_u_stab

real, parameter mode_sfcflx::c_mo_u_stab = 5.0

Definition at line 94 of file mode_sfcflx.F90.

c_small_sf

real, parameter mode_sfcflx::c_small_sf = 1.0E-04

Definition at line 185 of file mode_sfcflx.F90.

c_z0q_ice_b0r

real, parameter mode_sfcflx::c_z0q_ice_b0r = 0.396

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_ice_b0s

real, parameter mode_sfcflx::c_z0q_ice_b0s = 1.610

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_ice_b0t

real, parameter mode_sfcflx::c_z0q_ice_b0t = 0.351

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_ice_b1r

real, parameter mode_sfcflx::c_z0q_ice_b1r = -0.512

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_ice_b1t

real, parameter mode_sfcflx::c_z0q_ice_b1t = -0.628

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_ice_b2r

real, parameter mode_sfcflx::c_z0q_ice_b2r = -0.180

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_rough_1

real, parameter mode_sfcflx::c_z0q_rough_1 = 4.0

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_rough_2

real, parameter mode_sfcflx::c_z0q_rough_2 = 4.2

Definition at line 94 of file mode_sfcflx.F90.

c_z0q_rough_3

real, parameter mode_sfcflx::c_z0q_rough_3 = 0.5

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b0r

real, parameter mode_sfcflx::c_z0t_ice_b0r = 0.317

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b0s

real, parameter mode_sfcflx::c_z0t_ice_b0s = 1.250

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b0t

real, parameter mode_sfcflx::c_z0t_ice_b0t = 0.149

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b1r

real, parameter mode_sfcflx::c_z0t_ice_b1r = -0.565

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b1t

real, parameter mode_sfcflx::c_z0t_ice_b1t = -0.550

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_ice_b2r

real, parameter mode_sfcflx::c_z0t_ice_b2r = -0.183

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_rough_1

real, parameter mode_sfcflx::c_z0t_rough_1 = 4.0

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_rough_2

real, parameter mode_sfcflx::c_z0t_rough_2 = 3.2

Definition at line 94 of file mode_sfcflx.F90.

c_z0t_rough_3

real, parameter mode_sfcflx::c_z0t_rough_3 = 0.5

Definition at line 94 of file mode_sfcflx.F90.

c_z0u_ftch_ex

real, parameter mode_sfcflx::c_z0u_ftch_ex = 0.3333333

Definition at line 94 of file mode_sfcflx.F90.

c_z0u_ftch_f

real, parameter mode_sfcflx::c_z0u_ftch_f = 0.70

Definition at line 94 of file mode_sfcflx.F90.

c_z0u_rough

real, parameter mode_sfcflx::c_z0u_rough = 1.23E-02

Definition at line 94 of file mode_sfcflx.F90.

c_z0u_rough_l

real, parameter mode_sfcflx::c_z0u_rough_l = 1.00E-01

Definition at line 94 of file mode_sfcflx.F90.

c_z0u_smooth

real, parameter mode_sfcflx::c_z0u_smooth = 0.1

Definition at line 94 of file mode_sfcflx.F90.

num_1o3_sf

real, parameter mode_sfcflx::num_1o3_sf = 1./3.

Definition at line 193 of file mode_sfcflx.F90.

p_a_ref

real, parameter mode_sfcflx::p_a_ref = 1.0E+05

Definition at line 162 of file mode_sfcflx.F90.

pr_neutral

real, parameter mode_sfcflx::pr_neutral = 1.0

Definition at line 94 of file mode_sfcflx.F90.

re_z0s_ice_t

real, parameter mode_sfcflx::re_z0s_ice_t = 2.5

Definition at line 94 of file mode_sfcflx.F90.

re_z0u_thresh

real, parameter mode_sfcflx::re_z0u_thresh = 0.1

Definition at line 94 of file mode_sfcflx.F90.

sc_neutral

real, parameter mode_sfcflx::sc_neutral = 1.0

Definition at line 94 of file mode_sfcflx.F90.

tpsf_alpha_q

real, parameter mode_sfcflx::tpsf_alpha_q = (1.-tpsf_Rd_o_Rv)/tpsf_Rd_o_Rv

Definition at line 157 of file mode_sfcflx.F90.

tpsf_c_a_p

real, parameter mode_sfcflx::tpsf_c_a_p = 1.005E+03

Definition at line 146 of file mode_sfcflx.F90.

tpsf_c_stefboltz

real, parameter mode_sfcflx::tpsf_c_stefboltz = 5.67E-08

Definition at line 146 of file mode_sfcflx.F90.

tpsf_kappa_q_a

real, parameter mode_sfcflx::tpsf_kappa_q_a = 2.40E-05

Definition at line 146 of file mode_sfcflx.F90.

tpsf_kappa_t_a

real, parameter mode_sfcflx::tpsf_kappa_t_a = 2.20E-05

Definition at line 146 of file mode_sfcflx.F90.

tpsf_l_evap

real, parameter mode_sfcflx::tpsf_l_evap = 2.501E+06

Definition at line 146 of file mode_sfcflx.F90.

tpsf_nu_u_a

real, parameter mode_sfcflx::tpsf_nu_u_a = 1.50E-05

Definition at line 146 of file mode_sfcflx.F90.

tpsf_r_dryair

real, parameter mode_sfcflx::tpsf_r_dryair = 2.8705E+02

Definition at line 146 of file mode_sfcflx.F90.

tpsf_r_watvap

real, parameter mode_sfcflx::tpsf_r_watvap = 4.6151E+02

Definition at line 146 of file mode_sfcflx.F90.

tpsf_rd_o_rv

real, parameter mode_sfcflx::tpsf_rd_o_rv = tpsf_R_dryair/tpsf_R_watvap

Definition at line 157 of file mode_sfcflx.F90.

u_star_min_sf

real, parameter mode_sfcflx::u_star_min_sf = 1.0E-04

Definition at line 185 of file mode_sfcflx.F90.

u_wind_min_sf

real, parameter mode_sfcflx::u_wind_min_sf = 1.0E-02

Definition at line 185 of file mode_sfcflx.F90.

z0q_sf

real mode_sfcflx::z0q_sf =Z_

Definition at line 180 of file mode_sfcflx.F90.

z0t_min_sf

real, parameter mode_sfcflx::z0t_min_sf = 1.0E-11

Definition at line 185 of file mode_sfcflx.F90.

z0t_sf

real mode_sfcflx::z0t_sf =Z_

Definition at line 180 of file mode_sfcflx.F90.

z0u_ice_rough

real, parameter mode_sfcflx::z0u_ice_rough = 1.0E-03

Definition at line 94 of file mode_sfcflx.F90.

z0u_sf

real mode_sfcflx::z0u_sf =Z_

Definition at line 180 of file mode_sfcflx.F90.

z_

real, parameter, private mode_sfcflx::z_ =-HUGE(0.0)

private

Definition at line 177 of file mode_sfcflx.F90.