Fix host code

anandrdbz · Mar 8, 2024 · de599e2 · de599e2
1 parent ef48ac6
commit de599e2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -463,7 +463,7 @@ if (MFC_SIMULATION)
                      SOURCES "${simulation_SRCs}"
                      MPI OpenACC FFTW)
 
-    if (CMAKE_Fortran_COMPILER_ID STREQUAL "Cray")
+    if (CMAKE_Fortran_COMPILER_ID STREQUAL "Cray" AND MFC_OpenACC)
         add_custom_command(TARGET simulation POST_BUILD
             COMMAND           "${CMAKE_CURRENT_SOURCE_DIR}/toolchain/cce_simulation_workgroup_256.sh"
                               "${CMAKE_CURRENT_BINARY_DIR}"

diff --git a/src/simulation/m_viscous.fpp b/src/simulation/m_viscous.fpp
@@ -39,7 +39,7 @@ module m_viscous
     @:CRAY_DECLARE_GLOBAL(type(scalar_field), dimension(:), tau_Re_vf)
     !$acc declare link(tau_Re_vf)
 #else
-    real(kind(0d0)), allocatable, dimension(:) :: tau_Re_vf
+    type(scalar_field), allocatable, dimension(:) :: tau_Re_vf
     !$acc declare create(tau_Re_vf)
 #endif