diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90 index 13394c23bafb9520ad8a56bd93a8b6386df4d4fa..a07ed3752f2403a59cc7facc254761c29d3d6983 100644 --- a/srcF/sfx_surface.f90 +++ b/srcF/sfx_surface.f90 @@ -105,13 +105,13 @@ module sfx_surface integer, public, parameter :: ice_z0m_id = z0m_ch !< ice surface - integer, public, parameter :: ocean_z0t_id = z0t_kl_land !< ocean surface - integer, public, parameter :: land_z0t_id = z0t_zi !< land surface - integer, public, parameter :: lake_z0t_id = z0t_zi !< lake surface - integer, public, parameter :: snow_z0t_id = z0t_zi !< snow covered surface - integer, public, parameter :: forest_z0t_id = z0t_zi !< forest csurface - integer, public, parameter :: usersf_z0t_id = z0t_kl_land !< user surface - integer, public, parameter :: ice_z0t_id = z0t_kl_land !< user 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_land !< lake 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_kl_water !< user surface ! -------------------------------------------------------------------------------- real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]