fix reviews, rm debug statements

Author: okBrian

src/simulation/m_mpi_proxy.fpp

@@ -114,7 +114,6 @@ contains
             & 'bc_y%grcbc_in', 'bc_y%grcbc_out', 'bc_y%grcbc_vel_out',          &
             & 'bc_z%grcbc_in', 'bc_z%grcbc_out', 'bc_z%grcbc_vel_out',          &
             & 'cfl_adap_dt', 'cfl_const_dt', 'cfl_dt', 'surface_tension',       &
-            & 'shear_stress', 'bulk_stress', 'bubbles_lagrange',                &
             & 'viscous', 'shear_stress', 'bulk_stress', 'bubbles_lagrange',     &
             & 'hyperelasticity', 'bc_io', 'powell', 'cont_damage', 'int_comp' ]
             call MPI_BCAST(${VAR}$, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
@@ -182,7 +181,7 @@ contains
             call MPI_BCAST(igr_pres_lim, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
             call MPI_BCAST(igr_iter_solver, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
             call MPI_BCAST(viscous, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
-            call MPI_BCAST(recon_type, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
+            call MPI_BCAST(recon_type, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
             call MPI_BCAST(muscl_order, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
             call MPI_BCAST(muscl_lim, 1, MPI_INTEGER, 0, MPI_COMM_WORLD, ierr)
         #:endif

src/simulation/m_muscl.fpp

@@ -17,7 +17,8 @@ module m_muscl
 
     private; public :: s_initialize_muscl_module, &
  s_muscl, &
- s_finalize_muscl_module
+ s_finalize_muscl_module, &
+ s_interface_compression
 
     integer :: v_size
     $:GPU_DECLARE(create='[v_size]')

src/simulation/m_viscous.fpp

@@ -1056,7 +1056,6 @@ contains
                                 do l = is3_viscous%beg, is3_viscous%end
                                     do k = is2_viscous%beg, is2_viscous%end
                                         do j = is1_viscous%beg, is1_viscous%end
-                                            print *, i, l, k, j
                                             vL_prim_vf(i)%sf(j, k, l) = vL_x(j, k, l, i)
                                             vR_prim_vf(i)%sf(j, k, l) = vR_x(j, k, l, i)
                                         end do

src/simulation/m_weno.fpp

@@ -30,6 +30,8 @@ module m_weno
 
     use m_mpi_proxy
 
+    use m_muscl !< For Interface Compression
+
     private; public :: s_initialize_weno_module, s_initialize_weno, s_finalize_weno_module, s_weno
 
     !> @name The cell-average variables that will be WENO-reconstructed. Formerly, they
@@ -1094,6 +1096,11 @@ contains
             #:endfor
         end if
 
+        if (int_comp) then
+            call s_interface_compression(vL_rs_vf_x, vL_rs_vf_y, vL_rs_vf_z, &
+                                         vR_rs_vf_x, vR_rs_vf_y, vR_rs_vf_z, &
+                                         weno_dir, is1_weno_d, is2_weno_d, is3_weno_d)
+        end if
     end subroutine s_weno
 
     !> The computation of parameters, the allocation of memory,