correct corrupted comments and whitespace on remaining files

Author: wilfonba

src/common/m_mpi_common.fpp

@@ -24,9 +24,8 @@ module m_mpi_common
     $:GPU_DECLARE(create='[v_size]')
 
     real(wp), private, allocatable, dimension(:) :: buff_send  !< Primitive variable send buffer for halo exchange
-    real(wp), private, allocatable, dimension(:) :: buff_recv  !< Primitive variable receive buffer for halo exchange
-
-    !! Variables for EL bubbles communication
+    !> Primitive variable receive buffer for halo exchange Variables for EL bubbles communication
+    real(wp), private, allocatable, dimension(:) :: buff_recv
     type(int_bounds_info)                        :: comm_coords(3)
     integer                                      :: comm_size(3)
     !> q_beta indices to communicate: 1=void fraction, 2=d(beta)/dt, 5=energy source
@@ -1316,10 +1315,10 @@ contains
         real(wp) :: tmp_num_procs_x, tmp_num_procs_y, tmp_num_procs_z
         real(wp) :: fct_min        !< Processor factorization (fct) minimization parameter
         integer  :: MPI_COMM_CART  !< Cartesian processor topology communicator
-        integer :: rem_cells    !< Remaining cells after distribution among processors
-        integer :: recon_order  !< WENO or MUSCL reconstruction order
-        integer :: i, j, k      !< Generic loop iterators
-        integer :: ierr         !< Generic flag used to identify and report MPI errors
+        integer  :: rem_cells      !< Remaining cells after distribution among processors
+        integer  :: recon_order    !< WENO or MUSCL reconstruction order
+        integer  :: i, j, k        !< Generic loop iterators
+        integer  :: ierr           !< Generic flag used to identify and report MPI errors
 
         ! temp array to store neighbor rank coordinates
         integer, dimension(1:num_dims) :: neighbor_coords

src/pre_process/m_global_parameters.fpp

@@ -89,7 +89,6 @@ module m_global_parameters
 
     ! Cell indices (InDices With BUFFer): includes buffer except in pre_process
     type(int_bounds_info) :: idwbuff(1:3)
-
     integer               :: fd_order   !< Finite-difference order for CoM/probe derivative approximations
     integer               :: fd_number  !< FD half-stencil size: MAX(1, fd_order/2)
 

src/simulation/m_bubbles_EL_kernels.fpp

@@ -475,7 +475,7 @@ contains
 
     end subroutine s_get_cell
 
-    !> Precompute cell-centered pressure gradients (dp/dx, dp/dy, dp/dz) 
+    !> Precompute cell-centered pressure gradients (dp/dx, dp/dy, dp/dz)
     subroutine s_compute_pressure_gradients(q_prim_vf)
 
         type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf

src/simulation/m_global_parameters.fpp

@@ -245,8 +245,8 @@ module m_global_parameters
 
     integer, allocatable, dimension(:)           :: proc_coords  !< Processor coordinates in MPI_CART_COMM
     type(bounds_info), allocatable, dimension(:) :: pcomm_coords
-    type(int_bounds_info), dimension(3)    :: nidx  !< Indices for neighboring processors
-    integer, allocatable, dimension(:,:,:) :: neighbor_ranks
+    type(int_bounds_info), dimension(3)          :: nidx         !< Indices for neighboring processors
+    integer, allocatable, dimension(:,:,:)       :: neighbor_ranks
     $:GPU_DECLARE(create='[pcomm_coords]')
 
     integer, allocatable, dimension(:)            :: start_idx  !< Starting cell-center index of local processor in global grid