From 30419c1acf4fffca0fe67203e1fb67332f39b529 Mon Sep 17 00:00:00 2001
From: Juan Escobar <escj@aero.obs-mip.fr>
Date: Mon, 17 Mar 2025 14:34:19 +0100
Subject: [PATCH] Juan 17/03/2025:spawn_zs.f90, BUG CORRECTION: Correction of
 Bad interpolation of ZS field for Spawning if (KDXRATIO==1 .AND. KDYRATIO==1)
 => remove the test or nothing is done (and ZS wrong)

---
 src/MNH/spawn_zs.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MNH/spawn_zs.f90 b/src/MNH/spawn_zs.f90
index 830d2cb49..e1f1ae59a 100644
--- a/src/MNH/spawn_zs.f90
+++ b/src/MNH/spawn_zs.f90
@@ -314,7 +314,7 @@ CALL BIKHARDT (XBMX1,XBMX2,XBMX3,XBMX4,XBMY1,XBMY2,XBMY3,XBMY4, &
 !  spurious cliffs near the coast (multiplication by xland during the
 !  iterative process).
 !
-IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN
+!!$IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN
 !
 !* allocations
 ! <<<<<<< spawn_zs.f90
@@ -630,7 +630,7 @@ IF (KDXRATIO/=1 .OR. KDYRATIO/=1) THEN
   DEALLOCATE(ZZS2_C)
   DEALLOCATE(ZDZS_C)
   DEALLOCATE(ZZS1_C)
-END IF
+!!$END IF
 !
 IF (PRESENT(PZS2_LS)) PZS2_LS(:,:)=ZZS2_LS(:,:)
 DEALLOCATE(ZZS2_LS)
-- 
GitLab