From 2b26b6a0eb1f78bf653e472674832d875670f66c 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: Sun, 9 Mar 2025 01:13:38 +0300
Subject: [PATCH] surt type defolt V0
---
srcF/sfx_sheba_noit_param.f90 | 2 +-
srcF/sfx_surface.f90 | 10 +++++-----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/srcF/sfx_sheba_noit_param.f90 b/srcF/sfx_sheba_noit_param.f90
index 891550f..7680735 100644
--- a/srcF/sfx_sheba_noit_param.f90
+++ b/srcF/sfx_sheba_noit_param.f90
@@ -40,7 +40,7 @@ module sfx_sheba_noit_param
real, parameter :: rho_s =900
real, parameter :: d_s=0.0000886
real, parameter :: h_salt_const=0.05
- real, parameter :: u_thsnow=10000.35
+ real, parameter :: u_thsnow=0.35
real, parameter :: S_salt_const=0.000004
real, parameter :: rho_air=1.2
real, parameter :: Csn=3.25
diff --git a/srcF/sfx_surface.f90 b/srcF/sfx_surface.f90
index 81a5518..941ef1e 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_id !< 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_ow !< ice surface
+ integer, public, parameter :: usersf_z0m_id = z0m_ch !< user surface
+ integer, public, parameter :: ice_z0m_id = z0m_map_id !< ice 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_ot !< snow covered 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_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