From 5b4b92d20ba276f4dacde147868ab66513c37685 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, 24 Sep 2024 16:09:25 +0300
Subject: [PATCH] bug fixed in roughness_re
---
srcF/module_z0t_lake.f90 | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/srcF/module_z0t_lake.f90 b/srcF/module_z0t_lake.f90
index e73adb4..628d4db 100644
--- a/srcF/module_z0t_lake.f90
+++ b/srcF/module_z0t_lake.f90
@@ -138,10 +138,12 @@ module module_z0t_lake
- ! --- define roughness [thermal]
- z0_t = z0_m (-0.56*(4.0*sqtr(Re)-3.4))
+
+ B=alog(-0.56*(4.0*(Re)**(0.5)-3.4)) !Repina, 2023
+
- B=log(z0_m/z0_t) !Repina, 2023
+ ! --- define roughness [thermal]
+ z0_t = z0_m / exp(B)
end subroutine
--
GitLab