From 3f46aaf025ebc2060311712fbec31f46ecc901be Mon Sep 17 00:00:00 2001
From: Victoria Suiazova <er-riad@mail.ru>
Date: Wed, 12 Mar 2025 10:35:32 +0000
Subject: [PATCH] ow z0m for ICE, ot for LAND, mix for SNOW, zi for FOREST,
kl_land for ICE - V5
---
srcF/sfx_surface.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90
index fcad0c6..dcbf2f6 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_ow !< snow covered surface
+ integer, public, parameter :: snow_z0m_id = z0m_map !< snow covered surface
integer, public, parameter :: forest_z0m_id = z0m_map_id !< forest csurface
integer, public, parameter :: usersf_z0m_id = z0m_ch !< user 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 :: land_z0t_id = z0t_ot !< land surface
integer, public, parameter :: lake_z0t_id = z0t_kl_water !< lake 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 :: snow_z0t_id = z0t_mix !< snow covered surface
+ integer, public, parameter :: forest_z0t_id = z0t_zi !< forest csurface
integer, public, parameter :: usersf_z0t_id = z0t_kl_water !< user surface
- integer, public, parameter :: ice_z0t_id = z0t_ot !< user surface
+ integer, public, parameter :: ice_z0t_id = z0t_kl_land !< user surface
! --------------------------------------------------------------------------------
real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]
--
GitLab