|
real(kind=kind_phys) function | sfcflx_lwradatm (t_a, e_a, cl_tot, cl_low) |
|
real(kind=kind_phys) function | sfcflx_lwradwsfc (t) |
|
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, q_s, rho_a) |
|
real(kind=kind_phys) 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(kind=kind_phys) function | sfcflx_satwvpres (t, h_ice) |
|
real(kind=kind_phys) function | sfcflx_spechum (wvpres, p) |
|
real(kind=ireals) function | sfcflx_wvpreswetbulb (t_dry, t_wetbulb, satwvpres_bulb, p) |
|
|
real(kind=kind_phys), parameter | c_karman = 0.40 |
|
real(kind=kind_phys), parameter | pr_neutral = 0.9 |
|
real(kind=kind_phys), parameter | sc_neutral = 1.0 |
|
real(kind=kind_phys), parameter | c_mo_u_stab = 5.0 |
|
real(kind=kind_phys), parameter | c_mo_t_stab = 5.0 |
|
real(kind=kind_phys), parameter | c_mo_q_stab = 5.0 |
|
real(kind=kind_phys), parameter | c_mo_u_conv = 15.0 |
|
real(kind=kind_phys), parameter | c_mo_t_conv = 15.0 |
|
real(kind=kind_phys), parameter | c_mo_q_conv = 15.0 |
|
real(kind=kind_phys), parameter | c_mo_u_exp = 0.25 |
|
real(kind=kind_phys), parameter | c_mo_t_exp = 0.5 |
|
real(kind=kind_phys), parameter | c_mo_q_exp = 0.5 |
|
real(kind=kind_phys), parameter | z0u_ice_rough = 1.0E-03 |
|
real(kind=kind_phys), parameter | c_z0u_smooth = 0.1 |
|
real(kind=kind_phys), parameter | c_z0u_rough = 1.23E-02 |
|
real(kind=kind_phys), parameter | c_z0u_rough_l = 1.00E-01 |
|
real(kind=kind_phys), parameter | c_z0u_ftch_f = 0.70 |
|
real(kind=kind_phys), parameter | c_z0u_ftch_ex = 0.3333333 |
|
real(kind=kind_phys), parameter | c_z0t_rough_1 = 4.0 |
|
real(kind=kind_phys), parameter | c_z0t_rough_2 = 3.2 |
|
real(kind=kind_phys), parameter | c_z0t_rough_3 = 0.5 |
|
real(kind=kind_phys), parameter | c_z0q_rough_1 = 4.0 |
|
real(kind=kind_phys), parameter | c_z0q_rough_2 = 4.2 |
|
real(kind=kind_phys), parameter | c_z0q_rough_3 = 0.5 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b0s = 1.250 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b0t = 0.149 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b1t = -0.550 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b0r = 0.317 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b1r = -0.565 |
|
real(kind=kind_phys), parameter | c_z0t_ice_b2r = -0.183 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b0s = 1.610 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b0t = 0.351 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b1t = -0.628 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b0r = 0.396 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b1r = -0.512 |
|
real(kind=kind_phys), parameter | c_z0q_ice_b2r = -0.180 |
|
real(kind=kind_phys), parameter | re_z0s_ice_t = 2.5 |
|
real(kind=kind_phys), parameter | re_z0u_thresh = 0.1 |
|
real(kind=kind_phys), parameter | c_free_conv = 0.14 |
|
real(kind=kind_phys), parameter | c_lwrad_emis = 0.99 |
|
real(kind=kind_phys), parameter | tpsf_c_stefboltz = 5.67E-08 |
|
real(kind=kind_phys), parameter | tpsf_r_dryair = 2.8705E+02 |
|
real(kind=kind_phys), parameter | tpsf_r_watvap = 4.6151E+02 |
|
real(kind=kind_phys), parameter | tpsf_c_a_p = 1.005E+03 |
|
real(kind=kind_phys), parameter | tpsf_l_evap = 2.501E+06 |
|
real(kind=kind_phys), parameter | tpsf_nu_u_a = 1.50E-05 |
|
real(kind=kind_phys), parameter | tpsf_kappa_t_a = 2.20E-05 |
|
real(kind=kind_phys), parameter | tpsf_kappa_q_a = 2.40E-05 |
|
real(kind=kind_phys), parameter | tpsf_rd_o_rv = tpsf_R_dryair/tpsf_R_watvap |
|
real(kind=kind_phys), parameter | tpsf_alpha_q = (1.0-tpsf_Rd_o_Rv)/tpsf_Rd_o_Rv |
|
real(kind=kind_phys), parameter | p_a_ref = 1.0E+05 |
|
real(kind=kind_phys) | z0u_sf |
|
real(kind=kind_phys) | z0t_sf |
|
real(kind=kind_phys) | z0q_sf |
|
real(kind=kind_phys) | u_star_a_sf |
|
real(kind=kind_phys) | q_mom_a_sf |
|
real(kind=kind_phys) | q_sens_a_sf |
|
real(kind=kind_phys) | q_lat_a_sf |
|
real(kind=kind_phys) | q_watvap_a_sf |
|
real(kind=kind_phys), parameter | u_wind_min_sf = 1.0E-02 |
|
real(kind=kind_phys), parameter | u_star_min_sf = 1.0E-04 |
|
real(kind=kind_phys), parameter | c_accur_sf = 1.0E-07 |
|
real(kind=kind_phys), parameter | c_small_sf = 1.0E-04 |
|
real(kind=kind_phys), parameter | num_1o3_sf = 1.0/3.0 |
|