finalize cleanup

Author: sbryngelson

src/post_process/m_data_input.f90

@@ -196,7 +196,6 @@ subroutine s_read_parallel_data_files(t_step) ! ---------------------------
 
         integer :: ifile, ierr, data_size
         integer, dimension(MPI_STATUS_SIZE) :: status
-        real(kind(0d0)) :: start, finish
         integer(KIND=MPI_OFFSET_KIND) :: disp
         integer(KIND=MPI_OFFSET_KIND) :: m_MOK, n_MOK
         integer(KIND=MPI_OFFSET_KIND) :: WP_MOK, var_MOK, str_MOK
@@ -478,7 +477,7 @@ end subroutine s_populate_grid_variables_buffer_regions ! --------------
         !!      the boundary conditions.
     subroutine s_populate_conservative_variables_buffer_regions() ! --------
 
-        integer :: i, j, k !< Generic loop iterators
+        integer :: i, j
 
         ! Populating Buffer Regions in the x-direction =====================
 

src/post_process/m_data_output.f90

@@ -602,8 +602,7 @@ subroutine s_write_variable_to_formatted_database_file(varname, t_step)
         integer, dimension(num_procs) :: vartypes
 
         ! Generic loop iterator
-        integer :: i, j, k
-        real(kind(0d0)) :: start, finish
+        integer :: i
 
         ! Silo-HDF5 Database Format ========================================
 

src/post_process/m_derived_variables.f90

@@ -170,7 +170,7 @@ subroutine s_derive_vorticity_component(i, q_prim_vf, q_sf) ! ----------
                       -offset_y%beg:n + offset_y%end), &
                       intent(INOUT) :: q_sf
 
-        integer :: j, k, l, r !< Generic loop iterators
+        integer :: j, k, r !< Generic loop iterators
 
         ! Computing the vorticity component in the x-coordinate direction
         if (i == 1) then
@@ -230,18 +230,16 @@ subroutine s_derive_numerical_schlieren_function(q_cons_vf, rho_sf, q_sf)
                       -offset_y%beg:n + offset_y%end), &
             intent(INOUT) :: q_sf
 
-        real(kind(0d0)) :: drho_dx, drho_dy, drho_dz !<
-            !! Spatial derivatives of the density in the x-, y- and z-directions
+        real(kind(0d0)) :: drho_dx, drho_dy !<
+            !! Spatial derivatives of the density in the x- and y-directions
 
         real(kind(0d0)), dimension(2) :: gm_rho_max !<
             !! Maximum value of the gradient magnitude (gm) of the density field
             !! in entire computational domain and not just the local sub-domain.
             !! The first position in the variable contains the maximum value and
             !! the second contains the rank of the processor on which it occured.
 
-        real(kind(0d0)) :: alpha_unadv !< Unadvected volume fraction
-
-        integer :: i, j, k, l !< Generic loop iterators
+        integer :: i, j, k
 
         ! Computing Gradient Magnitude of Density ==========================
 

src/post_process/m_global_parameters.f90

@@ -244,7 +244,7 @@ end subroutine s_assign_default_values_to_user_inputs ! ----------------
         !!      any other tasks needed to properly setup the module
     subroutine s_initialize_global_parameters_module() ! ----------------------
 
-        integer :: i, fac
+        integer :: i
 
         ! Setting m_root equal to m in the case of a 1D serial simulation
         if (num_procs == 1 .and. n == 0) m_root = m

src/post_process/m_mpi_proxy.fpp

@@ -39,7 +39,7 @@ module m_mpi_proxy
 
     !> @name Generic flags used to identify and report MPI errors
     !> @{
-    integer, private :: err_code, ierr
+    integer, private :: ierr
     !> @}
 
 contains
@@ -277,7 +277,7 @@ contains
         integer :: rem_cells
 
         ! Generic loop iterators
-        integer :: i, j
+        integer :: i
 
         if (num_procs == 1 .and. parallel_io) then
             do i = 1, num_dims

src/post_process/p_main.f90

@@ -43,14 +43,7 @@ program p_main
     !! Generic storage for the name(s) of the flow variable(s) that will be added
     !! to the formatted database file(s)
 
-    !> @name Generic loop iterator
-    !> @{
-    integer :: i, j, k
-    !> @}
-
-    real(kind(0d0)) :: total_volume !<
-    !! Variable for the total volume of the second volume fraction
-    !! to later on track the evolution of the radius of a bubble over time
+    integer :: i
 
     ! Initialization of the MPI environment
     call s_mpi_initialize()