diff --git a/src/MNH/slow_terms.f90 b/src/MNH/slow_terms.f90 index d26ffcbdf857de3655b1cf3445201cba5e3ba5c2..80db2c4cfaec5e5beb72d05f05330b85e5c79065 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()