From aeec932de935cd7d3968aa99a298c8645715db25 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Thu, 10 Feb 2022 15:25:40 +0100
Subject: [PATCH] Juan 10/02/2022:modeln.f90, Bug ZSEA pointer : ALLOCATED ->
 ASSOCIATED

---
 src/MNH/modeln.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 84dc46588..54fdbc67a 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -2411,7 +2411,7 @@ IF (OEXIT) THEN
 END IF
 
 #ifndef MNH_OPENACC
-IF ( ALLOCATED( ZSEA ) ) DEALLOCATE( ZSEA )
+IF ( ASSOCIATED( ZSEA ) ) DEALLOCATE( ZSEA )
 DEALLOCATE( ZRWS )
 DEALLOCATE( ZPABST )
 #else
-- 
GitLab