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