format, spelling, and missing comments

Author: wilfonba

src/post_process/m_global_parameters.fpp

@@ -522,9 +522,17 @@ contains
             adv_idx%end = E_idx + num_fluids
 
             if (igr) then
-                adv_idx%beg = E_idx + 1
+                ! Volume fractions are stored in the indices immediately following
+                ! the energy equation. IGR tracks a total of (N-1) volume fractions
+                ! for N fluids, hence the "-1" in adv_idx%end. If num_fluids = 1
+                ! then adv_idx%end < adv_idx%beg, which skips all loops over the
+                ! volume fractions since there is no volume fraction to track
+                adv_idx%beg = E_idx + 1 ! Alpha for fluid 1
                 adv_idx%end = E_idx + num_fluids - 1
             else
+                ! Volume fractions are stored in the indices immediately following
+                ! the energy equation. WENO/MUSCL + Riemann tracks a total of (N)
+                ! volume fractions for N fluids, hence the lack of  "-1" in adv_idx%end
                 adv_idx%beg = E_idx + 1
                 adv_idx%end = E_idx + num_fluids
             end if

src/pre_process/m_data_output.fpp

@@ -39,7 +39,7 @@ module m_data_output
 
     implicit none
 
-    private;
+    private; 
     public :: s_write_serial_data_files, &
               s_write_parallel_data_files, &
               s_write_data_files, &
@@ -615,8 +615,8 @@ contains
             end if
             call s_mpi_allreduce_sum(loc_violations, glb_violations)
             if (proc_rank == 0 .and. nint(glb_violations) > 0) then
-                print*, "WARNING: Attempting to downsample data but there are" // &
-                        "processors with local problem sizes that are not divisible by 3."
+                print *, "WARNING: Attempting to downsample data but there are"// &
+                    "processors with local problem sizes that are not divisible by 3."
             end if
             call s_populate_variables_buffers(bc_type, q_cons_vf)
             call s_downsample_data(q_cons_vf, q_cons_temp, &

src/pre_process/m_global_parameters.fpp

@@ -612,15 +612,15 @@ contains
             adv_idx%end = E_idx + num_fluids
 
             if (igr) then
-                ! Volume fractions are stored in the indicies immediately following
+                ! Volume fractions are stored in the indices immediately following
                 ! the energy equation. IGR tracks a total of (N-1) volume fractions
                 ! for N fluids, hence the "-1" in adv_idx%end. If num_fluids = 1
                 ! then adv_idx%end < adv_idx%beg, which skips all loops over the
                 ! volume fractions since there is no volume fraction to track
                 adv_idx%beg = E_idx + 1
                 adv_idx%end = E_idx + num_fluids - 1
             else
-                ! Volume fractions are stored in the indicies immediately following
+                ! Volume fractions are stored in the indices immediately following
                 ! the energy equation. WENO/MUSCL + Riemann tracks a total of (N)
                 ! volume fractions for N fluids, hence the lack of  "-1" in adv_idx%end
                 adv_idx%beg = E_idx + 1

src/simulation/m_global_parameters.fpp

@@ -884,15 +884,15 @@ contains
                 E_idx = mom_idx%end + 1
 
                 if (igr) then
-                    ! Volume fractions are stored in the indicies immediately following
+                    ! Volume fractions are stored in the indices immediately following
                     ! the energy equation. IGR tracks a total of (N-1) volume fractions
                     ! for N fluids, hence the "-1" in adv_idx%end. If num_fluids = 1
                     ! then adv_idx%end < adv_idx%beg, which skips all loops over the
                     ! volume fractions since there is no volume fraction to track
                     adv_idx%beg = E_idx + 1 ! Alpha for fluid 1
                     adv_idx%end = E_idx + num_fluids - 1
                 else
-                    ! Volume fractions are stored in the indicies immediately following
+                    ! Volume fractions are stored in the indices immediately following
                     ! the energy equation. WENO/MUSCL + Riemann tracks a total of (N)
                     ! volume fractions for N fluids, hence the lack of  "-1" in adv_idx%end
                     adv_idx%beg = E_idx + 1