|
| 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) |
| |
|
| 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 | 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 | 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. |
| |
|
| real, parameter, private | z_ =-HUGE(0.0) |
| |
Definition at line 9 of file mode_sfcflx.F90.
| 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 |
|
) |
| |
| real function mode_sfcflx::sfcflx_lwradwsfc |
( |
real, intent(in) |
emis, |
|
|
real, intent(in) |
pts |
|
) |
| |
| 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, |
|
|
|
z0u_ini, |
|
|
|
z0t_ini, |
|
|
real, intent(out) |
Qsat_out, |
|
|
real, intent(out) |
Q_latenti, |
|
|
real, intent(out) |
Q_sublim |
|
) |
| |
| real function mode_sfcflx::sfcflx_rhoair |
( |
real, intent(in) |
T, |
|
|
real, intent(in) |
q, |
|
|
real, intent(in) |
P |
|
) |
| |
| 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 |
|
) |
| |
| real function mode_sfcflx::sfcflx_satwvpres |
( |
real, intent(in) |
T, |
|
|
real, intent(in) |
h_ice |
|
) |
| |
| real function mode_sfcflx::sfcflx_spechum |
( |
real, intent(in) |
wvpres, |
|
|
real, intent(in) |
P |
|
) |
| |
| 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 |
|
) |
| |
| real, parameter mode_sfcflx::c_accur_sf = 1.0E-07 |
| real, parameter mode_sfcflx::c_free_conv = 0.14 |
| real, parameter mode_sfcflx::c_karman = 0.40 |
| real, parameter mode_sfcflx::c_lwrad_emis = 0.99 |
| real, parameter mode_sfcflx::c_mo_q_conv = 15.0 |
| real, parameter mode_sfcflx::c_mo_q_exp = 0.5 |
| real, parameter mode_sfcflx::c_mo_q_stab = 5.0 |
| real, parameter mode_sfcflx::c_mo_t_conv = 15.0 |
| real, parameter mode_sfcflx::c_mo_t_exp = 0.5 |
| real, parameter mode_sfcflx::c_mo_t_stab = 5.0 |
| real, parameter mode_sfcflx::c_mo_u_conv = 15.0 |
| real, parameter mode_sfcflx::c_mo_u_exp = 0.25 |
| real, parameter mode_sfcflx::c_mo_u_stab = 5.0 |
| real, parameter mode_sfcflx::c_small_sf = 1.0E-04 |
| real, parameter mode_sfcflx::c_z0q_ice_b0r = 0.396 |
| real, parameter mode_sfcflx::c_z0q_ice_b0s = 1.610 |
| real, parameter mode_sfcflx::c_z0q_ice_b0t = 0.351 |
| real, parameter mode_sfcflx::c_z0q_ice_b1r = -0.512 |
| real, parameter mode_sfcflx::c_z0q_ice_b1t = -0.628 |
| real, parameter mode_sfcflx::c_z0q_ice_b2r = -0.180 |
| real, parameter mode_sfcflx::c_z0q_rough_1 = 4.0 |
| real, parameter mode_sfcflx::c_z0q_rough_2 = 4.2 |
| real, parameter mode_sfcflx::c_z0q_rough_3 = 0.5 |
| real, parameter mode_sfcflx::c_z0t_ice_b0r = 0.317 |
| real, parameter mode_sfcflx::c_z0t_ice_b0s = 1.250 |
| real, parameter mode_sfcflx::c_z0t_ice_b0t = 0.149 |
| real, parameter mode_sfcflx::c_z0t_ice_b1r = -0.565 |
| real, parameter mode_sfcflx::c_z0t_ice_b1t = -0.550 |
| real, parameter mode_sfcflx::c_z0t_ice_b2r = -0.183 |
| real, parameter mode_sfcflx::c_z0t_rough_1 = 4.0 |
| real, parameter mode_sfcflx::c_z0t_rough_2 = 3.2 |
| real, parameter mode_sfcflx::c_z0t_rough_3 = 0.5 |
| real, parameter mode_sfcflx::c_z0u_ftch_ex = 0.3333333 |
| real, parameter mode_sfcflx::c_z0u_ftch_f = 0.70 |
| real, parameter mode_sfcflx::c_z0u_rough = 1.23E-02 |
| real, parameter mode_sfcflx::c_z0u_rough_l = 1.00E-01 |
| real, parameter mode_sfcflx::c_z0u_smooth = 0.1 |
| real, parameter mode_sfcflx::num_1o3_sf = 1./3. |
| real, parameter mode_sfcflx::p_a_ref = 1.0E+05 |
| real, parameter mode_sfcflx::pr_neutral = 1.0 |
| real, parameter mode_sfcflx::re_z0s_ice_t = 2.5 |
| real, parameter mode_sfcflx::sc_neutral = 1.0 |
| real, parameter mode_sfcflx::tpsf_alpha_q = (1.-tpsf_Rd_o_Rv)/tpsf_Rd_o_Rv |
| real, parameter mode_sfcflx::tpsf_c_a_p = 1.005E+03 |
| real, parameter mode_sfcflx::tpsf_c_stefboltz = 5.67E-08 |
| real, parameter mode_sfcflx::tpsf_kappa_q_a = 2.40E-05 |
| real, parameter mode_sfcflx::tpsf_kappa_t_a = 2.20E-05 |
| real, parameter mode_sfcflx::tpsf_l_evap = 2.501E+06 |
| real, parameter mode_sfcflx::tpsf_nu_u_a = 1.50E-05 |
| real, parameter mode_sfcflx::tpsf_r_dryair = 2.8705E+02 |
| real, parameter mode_sfcflx::tpsf_r_watvap = 4.6151E+02 |
| real, parameter mode_sfcflx::tpsf_rd_o_rv = tpsf_R_dryair/tpsf_R_watvap |
| real, parameter mode_sfcflx::u_star_min_sf = 1.0E-04 |
| real, parameter mode_sfcflx::u_wind_min_sf = 1.0E-02 |
| real mode_sfcflx::z0q_sf =Z_ |
| real, parameter mode_sfcflx::z0t_min_sf = 1.0E-11 |
| real mode_sfcflx::z0t_sf =Z_ |
| real, parameter mode_sfcflx::z0u_ice_rough = 1.0E-03 |
| real mode_sfcflx::z0u_sf =Z_ |
| real, parameter, private mode_sfcflx::z_ =-HUGE(0.0) |
|
private |
The documentation for this module was generated from the following file:
1.8.5
