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 ...@@ -257,14 +257,14 @@ IF (MPPDB_INITIALIZED) THEN
END IF END IF
#ifndef MNH_OPENACC #ifndef MNH_OPENACC
allocate( zt ,JIU,JJU,JKU ) allocate( zt (JIU,JJU,JKU) )
allocate( zw ,JIU,JJU,JKU ) allocate( zw (JIU,JJU,JKU) )
allocate( zw1 ,JIU,JJU,JKU ) allocate( zw1 (JIU,JJU,JKU) )
allocate( zw2 ,JIU,JJU,JKU ) allocate( zw2 (JIU,JJU,JKU) )
allocate( zw3 ,JIU,JJU,JKU ) allocate( zw3 (JIU,JJU,JKU) )
allocate( zexnt,JIU,JJU,JKU ) allocate( zexnt(JIU,JJU,JKU) )
allocate( zdzz ,JIU,JJU,JKU ) allocate( zdzz (JIU,JJU,JKU) )
allocate( g3d ) allocate( g3d (JIU,JJU,JKU) )
#else #else
!Pin positions in the pools of MNH memory !Pin positions in the pools of MNH memory
CALL MNH_MEM_POSITION_PIN() 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