fix: add GPU_DECLARE/GPU_UPDATE for int_comp, ic_eps, ic_beta

Author: sbryngelson

src/simulation/m_global_parameters.fpp

@@ -148,23 +148,24 @@ module m_global_parameters
     logical :: nv_uvm_pref_gpu  !< Enable explicit gpu memory hints (default FALSE)
     !> @}
 
-    real(wp)           :: weno_eps                     !< Binding for the WENO nonlinear weights
-    real(wp)           :: teno_CT                      !< Smoothness threshold for TENO
-    logical            :: mp_weno                      !< Monotonicity preserving (MP) WENO
-    logical            :: weno_avg                     !< Average left/right cell-boundary states
-    logical            :: weno_Re_flux                 !< WENO reconstruct velocity gradients for viscous stress tensor
-    integer            :: riemann_solver               !< Riemann solver algorithm
-    integer            :: low_Mach                     !< Low Mach number fix to HLLC Riemann solver
-    integer            :: wave_speeds                  !< Wave speeds estimation method
-    integer            :: avg_state                    !< Average state evaluation method
-    logical            :: alt_soundspeed               !< Alternate mixture sound speed
-    logical            :: null_weights                 !< Null undesired WENO weights
-    logical            :: mixture_err                  !< Mixture properties correction
-    logical            :: hypoelasticity               !< hypoelasticity modeling
-    logical            :: hyperelasticity              !< hyperelasticity modeling
-    integer            :: int_comp                     !< Interface compression: 0=off, 1=THINC, 2=MTHINC
-    real(wp)           :: ic_eps                       !< THINC Epsilon to compress on surface cells
-    real(wp)           :: ic_beta                      !< THINC Sharpness Parameter
+    real(wp) :: weno_eps         !< Binding for the WENO nonlinear weights
+    real(wp) :: teno_CT          !< Smoothness threshold for TENO
+    logical  :: mp_weno          !< Monotonicity preserving (MP) WENO
+    logical  :: weno_avg         !< Average left/right cell-boundary states
+    logical  :: weno_Re_flux     !< WENO reconstruct velocity gradients for viscous stress tensor
+    integer  :: riemann_solver   !< Riemann solver algorithm
+    integer  :: low_Mach         !< Low Mach number fix to HLLC Riemann solver
+    integer  :: wave_speeds      !< Wave speeds estimation method
+    integer  :: avg_state        !< Average state evaluation method
+    logical  :: alt_soundspeed   !< Alternate mixture sound speed
+    logical  :: null_weights     !< Null undesired WENO weights
+    logical  :: mixture_err      !< Mixture properties correction
+    logical  :: hypoelasticity   !< hypoelasticity modeling
+    logical  :: hyperelasticity  !< hyperelasticity modeling
+    integer  :: int_comp         !< Interface compression: 0=off, 1=THINC, 2=MTHINC
+    real(wp) :: ic_eps           !< THINC Epsilon to compress on surface cells
+    real(wp) :: ic_beta          !< THINC Sharpness Parameter
+    $:GPU_DECLARE(create='[int_comp, ic_eps, ic_beta]')
     integer            :: hyper_model                  !< hyperelasticity solver algorithm
     logical            :: elasticity                   !< elasticity modeling, true for hyper or hypo
     logical, parameter :: chemistry = .${chemistry}$.  !< Chemistry modeling
@@ -1245,6 +1246,7 @@ contains
             $:GPU_UPDATE(device='[num_fluids, num_dims, viscous, num_vels, nb, muscl_lim]')
         #:endif
 
+        $:GPU_UPDATE(device='[int_comp, ic_eps, ic_beta]')
         $:GPU_UPDATE(device='[dir_idx, dir_flg, dir_idx_tau]')
 
         $:GPU_UPDATE(device='[relax, relax_model, palpha_eps, ptgalpha_eps]')