From 84f4726ee397f91b59d05dfd6dba1bcaa6e8e920 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Dec 2021 10:02:41 +0100
Subject: [PATCH] Philippe 17/12/2021: bugfix: ZUSRBL89 value was lost in merge
 1650aee9

---
 src/MNH/bl89.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/bl89.f90 b/src/MNH/bl89.f90
index d92be3851..e34f0524c 100644
--- a/src/MNH/bl89.f90
+++ b/src/MNH/bl89.f90
@@ -264,6 +264,7 @@ zsqrt_tke(:, : ) = Br_pow( ztkem, 0.5 )
 !ZBL89EXP is defined here because (and not in ini_cturb) because XCED is defined in read_exseg (depending on BL89/RM17)
 ZBL89EXP = Br_log( 16. ) / ( 4. * Br_log( XKARMAN )+ Br_log( XCED ) - 3. * Br_log( XCMFS) )
 #endif
+ZUSRBL89 = 1./ZBL89EXP
 !-------------------------------------------------------------------------------
 !
 !*       2.    Virtual potential temperature on the model grid
-- 
GitLab