From ef07ec18ef6518b110c3a21b85f99fa85b86b601 Mon Sep 17 00:00:00 2001
From: Victoria Suiazova <er-riad@mail.ru>
Date: Tue, 4 Mar 2025 20:14:06 +0000
Subject: [PATCH] ow z0m for ICE/SNOW, mix for LAND/FOREST, ot for ICE/SNOW
---
srcF/sfx_surface.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90
index 8da1f64..f1610df 100644
--- a/srcF/sfx_surface.f90
+++ b/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_map_id !< snow covered surface
+ integer, public, parameter :: snow_z0m_id = z0m_ow !< 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_map_id !< ice surface
+ integer, public, parameter :: ice_z0m_id = z0m_ow !< ice surface
integer, public, parameter :: ocean_z0t_id = z0t_kl_water !< ocean surface
integer, public, parameter :: land_z0t_id = z0t_mix !< 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 :: snow_z0t_id = z0t_ot !< snow covered surface
integer, public, parameter :: forest_z0t_id = z0t_mix !< forest csurface
integer, public, parameter :: usersf_z0t_id = z0t_kl_water !< user surface
- integer, public, parameter :: ice_z0t_id = z0t_mix !< user surface
+ integer, public, parameter :: ice_z0t_id = z0t_ot !< user surface
! --------------------------------------------------------------------------------
real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]
--
GitLab