Skip to content
Snippets Groups Projects
Commit 2b26b6a0 authored by Виктория Суязова's avatar Виктория Суязова
Browse files

surt type defolt V0

parent 48071935
Branches
No related tags found
No related merge requests found
......@@ -40,7 +40,7 @@ module sfx_sheba_noit_param
real, parameter :: rho_s =900
real, parameter :: d_s=0.0000886
real, parameter :: h_salt_const=0.05
real, parameter :: u_thsnow=10000.35
real, parameter :: u_thsnow=0.35
real, parameter :: S_salt_const=0.000004
real, parameter :: rho_air=1.2
real, parameter :: Csn=3.25
......
......@@ -99,19 +99,19 @@ module sfx_surface
integer, public, parameter :: ocean_z0m_id = z0m_ch !< ocean surface
integer, public, parameter :: land_z0m_id = z0m_map_id !< land surface
integer, public, parameter :: lake_z0m_id = z0m_map_id !< lake surface
integer, public, parameter :: snow_z0m_id = z0m_ow !< snow covered surface
integer, public, parameter :: snow_z0m_id = z0m_map_id !< snow covered surface
integer, public, parameter :: forest_z0m_id = z0m_map_id !< forest csurface
integer, public, parameter :: usersf_z0m_id = z0m_map_id !< user surface
integer, public, parameter :: ice_z0m_id = z0m_ow !< ice surface
integer, public, parameter :: usersf_z0m_id = z0m_ch !< user surface
integer, public, parameter :: ice_z0m_id = z0m_map_id !< ice surface
integer, public, parameter :: ocean_z0t_id = z0t_kl_water !< ocean surface
integer, public, parameter :: land_z0t_id = z0t_kl_land !< land surface
integer, public, parameter :: lake_z0t_id = z0t_kl_water !< lake surface
integer, public, parameter :: snow_z0t_id = z0t_ot !< snow covered surface
integer, public, parameter :: snow_z0t_id = z0t_kl_land !< snow covered surface
integer, public, parameter :: forest_z0t_id = z0t_kl_land !< forest csurface
integer, public, parameter :: usersf_z0t_id = z0t_kl_water !< user surface
integer, public, parameter :: ice_z0t_id = z0t_ot !< user surface
integer, public, parameter :: ice_z0t_id = z0t_kl_land !< user surface
! --------------------------------------------------------------------------------
real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment