From 56d94a6226b60b521e5096a1826e2d7dcf890b7b Mon Sep 17 00:00:00 2001
From: Andrey Debolskiy <and.debol@gmail.com>
Date: Fri, 28 Feb 2025 18:43:27 +0300
Subject: [PATCH] refixed definiton of b2 constant of charnok
---
srcF/sfx_z0m_all_surface.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/srcF/sfx_z0m_all_surface.f90 b/srcF/sfx_z0m_all_surface.f90
index 8f2f11e..b8455ed 100644
--- a/srcF/sfx_z0m_all_surface.f90
+++ b/srcF/sfx_z0m_all_surface.f90
@@ -29,7 +29,7 @@ module sfx_z0m_all_surface
real, parameter :: h_charnock = 10.0
real, parameter :: c1_charnock = log(h_charnock * (g / gamma_c))
- real, parameter :: c2_charnock = Re_visc_min * nu_air * c1_charnock
+ real, parameter :: c2_charnock = Re_visc_min * nu_air * (g / gamma_c)
real, parameter :: gamma_min = 0.01
real, parameter :: gamma_max = 0.11
real, parameter :: f_c = 100
--
GitLab