From cf6d28dae1d83fb9a7972c36570aa9e7180f817d Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 10 Oct 2023 14:30:47 +0200
Subject: [PATCH] Philippe 10/10/2023: tridz: remove wrong condition (was there
 to prevent problem with ZSOLVER; correct condition is based on HPRESOPT)

---
 src/MNH/tridz.f90 | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/MNH/tridz.f90 b/src/MNH/tridz.f90
index 9c7baab1d..06f45dc6e 100644
--- a/src/MNH/tridz.f90
+++ b/src/MNH/tridz.f90
@@ -683,7 +683,6 @@ IF (L2D) THEN
   !
 ELSE
  IF ( HPRESOPT /= 'ZSOLV' ) THEN
-  IF ( CSPLIT /= 'BSPLITTING' ) THEN
   !print*,"WARNING CSPLIT /= 'BSPLITTING =", CSPLIT     
   DO JK= IKB,IKE
     DO JJ= 1, IYMODEY_ll
@@ -702,7 +701,6 @@ ELSE
   !
   PBFY(1:IYMODEY_ll,1:IXMODEY_ll,IKE+1) =  0.5 * ( PRHOM(IKE)   + PRHOM(IKE+1) ) /  &
                                ZDZM(IKE+1) **2
-  END IF
  END IF
   !
 
-- 
GitLab