From 579c8046408ed17124dcb005afb6b4760401c39f Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Tue, 13 Jun 2023 10:02:37 +0200
Subject: [PATCH] Juan 13/06/2023:slow_terms.f90 , typo no MNH_OPENACC on
 allocate

---
 src/MNH/slow_terms.f90 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/MNH/slow_terms.f90 b/src/MNH/slow_terms.f90
index d26ffcbdf..80db2c4cf 100644
--- a/src/MNH/slow_terms.f90
+++ b/src/MNH/slow_terms.f90
@@ -257,14 +257,14 @@ IF (MPPDB_INITIALIZED) THEN
 END IF
 
 #ifndef MNH_OPENACC
-allocate( zt   ,JIU,JJU,JKU )
-allocate( zw   ,JIU,JJU,JKU )
-allocate( zw1  ,JIU,JJU,JKU )
-allocate( zw2  ,JIU,JJU,JKU )
-allocate( zw3  ,JIU,JJU,JKU )
-allocate( zexnt,JIU,JJU,JKU )
-allocate( zdzz ,JIU,JJU,JKU )
-allocate( g3d   )
+allocate( zt   (JIU,JJU,JKU) )
+allocate( zw   (JIU,JJU,JKU) )
+allocate( zw1  (JIU,JJU,JKU) )
+allocate( zw2  (JIU,JJU,JKU) )
+allocate( zw3  (JIU,JJU,JKU) )
+allocate( zexnt(JIU,JJU,JKU) )
+allocate( zdzz (JIU,JJU,JKU) )
+allocate( g3d  (JIU,JJU,JKU) )
 #else
 !Pin positions in the pools of MNH memory
 CALL MNH_MEM_POSITION_PIN()
-- 
GitLab