From e4008c6e49e0e37c6ae26d67df82922e02513a1a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Chi-Tu=C3=A2n=20Pham?= <chi-tuan.pham@edf.fr>
Date: Tue, 18 Feb 2025 18:54:11 +0100
Subject: [PATCH] [telemac3d] Fix deleting useless check of ZPLANE for planes 1
and NPLAN (bottom and free surface planes) with mesh transformation = 3
(fixed z) Check introduced in MR !233
---
sources/telemac3d/condim.f | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sources/telemac3d/condim.f b/sources/telemac3d/condim.f
index 36b5925563..58b76c676e 100644
--- a/sources/telemac3d/condim.f
+++ b/sources/telemac3d/condim.f
@@ -252,7 +252,7 @@
CALL PLANTE(1)
ENDIF
ENDDO
- DO I=1,NPLAN-1
+ DO I=2,NPLAN-2
IF((TRANSF_PLANE%I(I).EQ.3.AND.TRANSF_PLANE%I(I+1).EQ.3)
& .AND.ZPLANE%R(I+1).LE.ZPLANE%R(I)) THEN
WRITE(LU,*) 'Z COORDINATE (ZPLANE) DOES NOT INCREASE ',
--
GitLab