Skip to content
Snippets Groups Projects
Commit 4e0143e5 authored by Juan Escobar's avatar Juan Escobar
Browse files

Juan 27/10/2023:prep_ideal_case.f90, for OPENACC add initialisation of...

Juan 27/10/2023:prep_ideal_case.f90, for OPENACC add initialisation of MNH_ALLOC_ZWORK+INIT_HALO_D => PREP_IDEAL work with VER_USER=ZSOLVER version
parent f127a4d1
No related branches found
No related tags found
No related merge requests found
......@@ -443,6 +443,11 @@ USE MODD_GET_n
!
USE MODN_CONFIO, ONLY : NAM_CONFIO
!
#ifdef MNH_OPENACC
USE MODE_MNH_ZWORK
USE MODD_HALO_D
#endif
!
IMPLICIT NONE
!
!* 0.1 Declarations of global variables not declared in the modules
......@@ -1196,6 +1201,10 @@ ELSE ! 3D case
END IF
END IF
!
#ifdef MNH_OPENACC
CALL MNH_ALLOC_ZWORK(1)
CALL INIT_HALO_D()
#endif
!
!-------------------------------------------------------------------------------
!
......
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