Adding OpenMP/OpenACC tags for vecturs used in paralel loop for GPU support

Author: danieljvickers

src/simulation/m_ibm.fpp

@@ -194,8 +194,8 @@ contains
         $:GPU_PARALLEL_LOOP(private='[physical_loc,dyn_pres,alpha_rho_IP, &
             & alpha_IP,pres_IP,vel_IP,vel_g,vel_norm_IP,r_IP, &
             & v_IP,pb_IP,mv_IP,nmom_IP,presb_IP,massv_IP,rho, &
-            & gamma,pi_inf,Re_K,G_K,Gs,gp,innerp,norm,buf, &
-            & j,k,l,q]')
+            & gamma,pi_inf,Re_K,G_K,Gs,gp,innerp,norm,buf, radial_vector, &
+            & rotation_velocity, j,k,l,q]')
         do i = 1, num_gps
 
             gp = ghost_points(i)