Skip to content
Snippets Groups Projects
Commit 579c8046 authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 13/06/2023:slow_terms.f90 , typo no MNH_OPENACC on allocate

parent 15cebf78
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.
Finish editing this message first!
Please register or to comment