surt type defolt V0

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

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]