From ef5678a8815e9068b20f8137b004484bacd3a651 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=D0=92=D0=B8=D0=BA=D1=82=D0=BE=D1=80=D0=B8=D1=8F=20=D0=A1?= =?UTF-8?q?=D1=83=D1=8F=D0=B7=D0=BE=D0=B2=D0=B0?= <viktoriasuazova@MacBook-Pro-Viktoria.local> Date: Sat, 1 Feb 2025 20:05:08 +0300 Subject: [PATCH] alltype0 --- srcF/sfx_surface.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90 index 13394c2..a07ed37 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] -- GitLab