From 94b4fcf7817a554d6717cc882e89c323800881e3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 6 Nov 2023 16:03:51 +0100
Subject: [PATCH] Philippe 06/11/2023: OpenACC: PREP_IDEAL_CASE: remove
duplicated call to MNH_ALLOC_ZWORK
---
src/MNH/prep_ideal_case.f90 | 4 ----
1 file changed, 4 deletions(-)
diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90
index d01b3b598..37e7ad3a3 100644
--- a/src/MNH/prep_ideal_case.f90
+++ b/src/MNH/prep_ideal_case.f90
@@ -1210,10 +1210,6 @@ ELSE ! 3D case
ALLOCATE(XLBYSVM(0,0,0,0))
END IF
END IF
-#ifdef MNH_OPENACC
-
-CALL MNH_ALLOC_ZWORK( 1 )
-#endif
!
#ifdef MNH_OPENACC
CALL MNH_ALLOC_ZWORK(1)
--
GitLab