diff --git a/srcF/sfx_sheba_noit_param.f90 b/srcF/sfx_sheba_noit_param.f90 index 891550f37ff2f844708eefea2d9520676879b5bb..76807354a96aa7cd4383691edb72474b042d927f 100644 --- a/srcF/sfx_sheba_noit_param.f90 +++ b/srcF/sfx_sheba_noit_param.f90 @@ -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 diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90 index 81a5518bca9d3778b9550cc1873bdf2dc5330c9e..941ef1e12fd9cf7f4182a23a749f074334c75f00 100644 --- a/srcF/sfx_surface.f90 +++ b/srcF/sfx_surface.f90 @@ -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]