From 5482b2a240d7aed31889268fb03175de87ea225d 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: Tue, 3 Dec 2024 19:50:05 +0300
Subject: [PATCH] set id for INMCM
---
srcF/sfx_surface.f90 | 14 +++++++-------
srcF/sfx_z0t_all_surface.f90 | 4 ++--
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90
index ced62f4..6a0c08e 100644
--- a/srcF/sfx_surface.f90
+++ b/srcF/sfx_surface.f90
@@ -92,16 +92,16 @@ 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_fe !< 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 :: usersf_z0m_id = z0m_fe !< 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_br !< lake surface
- integer, public, parameter :: snow_z0t_id = z0t_kl_land !< snow covered surface
- integer, public, parameter :: forest_z0t_id = z0t_du !< forest csurface
- integer, public, parameter :: usersf_z0t_id = z0t_mix !< user surface
+ integer, public, parameter :: land_z0t_id = z0t_mix !< land surface
+ integer, public, parameter :: lake_z0t_id = z0t_ca !< lake surface
+ integer, public, parameter :: snow_z0t_id = z0t_zi !< snow covered surface
+ integer, public, parameter :: forest_z0t_id = z0t_ot !< forest csurface
+ integer, public, parameter :: usersf_z0t_id = z0t_ca !< user surface
! --------------------------------------------------------------------------------
real, parameter, private :: kappa = 0.40 !< von Karman constant [n/d]
diff --git a/srcF/sfx_z0t_all_surface.f90 b/srcF/sfx_z0t_all_surface.f90
index 72fc052..7db8d57 100644
--- a/srcF/sfx_z0t_all_surface.f90
+++ b/srcF/sfx_z0t_all_surface.f90
@@ -157,11 +157,11 @@ module sfx_z0t_all_surface
real, intent(in) :: z0_m !< aerodynamic roughness [m]
real, intent(in) :: Re !< roughness Reynolds number [n/d]
-
+
B=2.46*(Re**0.25)-2.0 !Brutsaert
-
+
! --- define roughness [thermal]
z0_t = z0_m / exp(B)
--
GitLab