Skip to content
Snippets Groups Projects
Commit 0ddce899 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 03/04/2023: fix: slow_terms: allocate was not used correctly if not MNH_OPENACC

parent 40fa0e74
No related branches found
No related tags found
No related merge requests found
......@@ -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()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment