From 33a70e1d7d72b8e1c9810e2402d75069d656a202 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 1 Feb 2023 11:01:03 +0100
Subject: [PATCH] Juan 01/02/2023:ZSOLVER/tridz.f90, BUG correction, Bypass
SegFault for unnecessary computation for BSPLITTING ( of YSPLITTING)
---
src/ZSOLVER/tridz.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/ZSOLVER/tridz.f90 b/src/ZSOLVER/tridz.f90
index 302cb30aa..028e241a0 100644
--- a/src/ZSOLVER/tridz.f90
+++ b/src/ZSOLVER/tridz.f90
@@ -672,6 +672,8 @@ IF (L2D) THEN
ZDZM(IKE+1) **2
!
ELSE
+ IF ( CSPLIT /= 'BSPLITTING' ) THEN
+ print*,"WARNING CSPLIT /= 'BSPLITTING =", CSPLIT
DO JK= IKB,IKE
DO JJ= 1, IYMODEY_ll
DO JI= 1, IXMODEY_ll
@@ -689,6 +691,7 @@ ELSE
!
PBFY(1:IYMODEY_ll,1:IXMODEY_ll,IKE+1) = 0.5 * ( PRHOM(IKE) + PRHOM(IKE+1) ) / &
ZDZM(IKE+1) **2
+ END IF
!
!JUAN Z_SPLITTING
--
GitLab