From 84121bef2074a4f5d318f1e70d64651dadbaafe3 Mon Sep 17 00:00:00 2001
From: Ramil Ahtamyanov <ramil.rgk@gmail.com>
Date: Sat, 21 Dec 2024 02:39:33 +0300
Subject: [PATCH] pph&pph_dyn - set the value of Km/Kh_unstable as in inmom:
0.05
---
obl_inmom.f90 | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/obl_inmom.f90 b/obl_inmom.f90
index d51587a..f70f53c 100644
--- a/obl_inmom.f90
+++ b/obl_inmom.f90
@@ -118,6 +118,8 @@ module obl_inmom
end do
! obl_pph mixing mode (lake constants)
else if (kh_km_mode == 2) then
+ pphParams%Kh_unstable = 0.05
+ pphParams%Km_unstable = 0.05
do j = 1, ny
do i = 1, nx
if (lu(i, j) > lu_min) then
@@ -136,6 +138,8 @@ module obl_inmom
pphParams%n = 2.0
pphParams%Km_b = 5e-6
pphParams%Kh_b = 0.00001
+ pphParams%Kh_unstable = 0.05
+ pphParams%Km_unstable = 0.05
do j = 1, ny
do i = 1, nx
if (lu(i, j) > lu_min) then
@@ -148,6 +152,8 @@ module obl_inmom
km = km * 10000.0
! obl_pph_dyn mixing mode
else if (kh_km_mode == 4) then
+ pphDynParams%Kh_unstable = 0.05
+ pphDynParams%Km_unstable = 0.05
do j = 1, ny
do i = 1, nx
if (lu(i, j) > lu_min) then
--
GitLab