From d76d7178e07bdfce980f1f13c9610b9ba60b8ccf Mon Sep 17 00:00:00 2001
From: Victoria Suiazova <er-riad@mail.ru>
Date: Tue, 1 Apr 2025 09:59:46 +0000
Subject: [PATCH] sfx_surface z0t - kl_land/kl_wather (defolt)
---
srcF/sfx_surface.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90
index 8471130..abb608e 100644
--- a/srcF/sfx_surface.f90
+++ b/srcF/sfx_surface.f90
@@ -111,11 +111,11 @@ module sfx_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_mix !< snow covered surface
- integer, public, parameter :: forest_z0t_id = z0t_mix !< forest csurface
+ 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_land !< user surface
- integer, public, parameter :: mosaic_z0t_id = z0t_map_id
+ integer, public, parameter :: mosaic_z0t_id = z0t_kl_land
! --------------------------------------------------------------------------------
real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]
! --------------------------------------------------------------------------------
--
GitLab