Replaced host data directives

Author: prathi-wind

src/simulation/m_fftw.fpp

@@ -162,7 +162,7 @@ contains
         p_fltr_cmplx => data_fltr_cmplx_gpu
 
 $:GPU_DATA(attach='[p_real, p_cmplx, p_fltr_cmplx]')
-!$acc host_data use_device(p_real, p_cmplx, p_fltr_cmplx)
+$:GPU_HOST_DATA(use_device='[p_real, p_cmplx, p_fltr_cmplx]')
 #if defined(__PGI)
         ierr = cufftExecD2Z(fwd_plan_gpu, data_real_gpu, data_cmplx_gpu)
 #else
@@ -182,7 +182,7 @@ $:GPU_DATA(attach='[p_real, p_cmplx, p_fltr_cmplx]')
             end do
         end do
 
-!$acc host_data use_device(p_real, p_fltr_cmplx)
+$:GPU_HOST_DATA(use_device='[p_real, p_fltr_cmplx]')
 #if defined(__PGI)
         ierr = cufftExecZ2D(bwd_plan_gpu, data_fltr_cmplx_gpu, data_real_gpu)
 #else
@@ -221,7 +221,7 @@ $:GPU_DATA(attach='[p_real, p_cmplx, p_fltr_cmplx]')
                 end do
             end do
 
-!$acc host_data use_device(p_real, p_cmplx)
+$:GPU_HOST_DATA(use_device='[p_real, p_cmplx]')
 #if defined(__PGI)
             ierr = cufftExecD2Z(fwd_plan_gpu, data_real_gpu, data_cmplx_gpu)
 #else
@@ -242,7 +242,7 @@ $:GPU_DATA(attach='[p_real, p_cmplx, p_fltr_cmplx]')
                 end do
             end do
 
-!$acc host_data use_device(p_real, p_fltr_cmplx)
+$:GPU_HOST_DATA(use_device='[p_real, p_fltr_cmplx]')
 #if defined(__PGI)
             ierr = cufftExecZ2D(bwd_plan_gpu, data_fltr_cmplx_gpu, data_real_gpu)
 #else

src/simulation/m_weno.fpp

@@ -1155,15 +1155,15 @@ contains
                     block
                         use CuTensorEx
 
-                        !$acc host_data use_device(v_rs_ws_x, v_rs_ws_y)
+                        $:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_y]')
                         v_rs_ws_y = reshape(v_rs_ws_x, shape=[n + 1 + 2*buff_size, m + 2*buff_size + 1, p + 1, sys_size], order=[2, 1, 3, 4])
                         !$acc end host_data
                     end block
                 else
                     block
                         use CuTensorEx
 
-                        !$acc host_data use_device(v_rs_ws_x, v_rs_ws_y)
+                        $:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_y]')
                         v_rs_ws_y = reshape(v_rs_ws_x, shape=[n + 1 + 2*buff_size, m + 2*buff_size + 1, p + 1 + 2*buff_size, sys_size], order=[2, 1, 3, 4])
                         !$acc end host_data
                     end block
@@ -1194,7 +1194,7 @@ contains
                 block
                     use CuTensorEx
 
-                    !$acc host_data use_device(v_rs_ws_x, v_rs_ws_z)
+                    $:GPU_HOST_DATA(use_device='[v_rs_ws_x, v_rs_ws_z]')
                     v_rs_ws_z = reshape(v_rs_ws_x, shape=[p + 1 + 2*buff_size, n + 2*buff_size + 1, m + 2*buff_size + 1, sys_size], order=[3, 2, 1, 4])
                     !$acc end host_data
                 end block