Remove unnecessary characters (#775)

MFlowCode · Dec 26, 2024 · 97296ad · 97296ad
1 parent 630695c
commit 97296ad
Show file tree

Hide file tree

Showing 54 changed files with 362 additions and 740 deletions.
diff --git a/src/common/m_compile_specific.f90 b/src/common/m_compile_specific.f90
@@ -5,11 +5,10 @@
 !> @brief This module contains subroutines that are compiler specific
 module m_compile_specific
 
-    ! Dependencies =============================================================
+    ! Dependencies
     use m_mpi_proxy
 
     implicit none
-    ! ==========================================================================
 
 contains
 

diff --git a/src/common/m_finite_differences.fpp b/src/common/m_finite_differences.fpp
@@ -123,7 +123,7 @@ contains
 
         end if
 
-    end subroutine s_compute_finite_difference_coefficients ! --------------
+    end subroutine s_compute_finite_difference_coefficients
 
 end module m_finite_differences
 
diff --git a/src/common/m_helper.fpp b/src/common/m_helper.fpp
@@ -5,8 +5,6 @@
 
 module m_helper
 
-    ! Dependencies =============================================================
-
     use m_derived_types        !< Definitions of the derived types
 
     use m_global_parameters    !< Definitions of the global parameters
@@ -15,8 +13,6 @@ module m_helper
 
     use ieee_arithmetic        !< For checking NaN
 
-    ! ==========================================================================
-
     implicit none
 
     private; 

diff --git a/src/common/m_helper_basic.f90 b/src/common/m_helper_basic.f90
@@ -4,10 +4,7 @@
 
 module m_helper_basic
 
-    ! Dependencies =============================================================
-
     use m_derived_types        !< Definitions of the derived types
-    ! ==========================================================================
 
     implicit none
 

diff --git a/src/common/m_mpi_common.fpp b/src/common/m_mpi_common.fpp
@@ -8,15 +8,13 @@
 !!          goals for the simulation.
 module m_mpi_common
 
-    ! Dependencies =============================================================
 #ifdef MFC_MPI
     use mpi                    !< Message passing interface (MPI) module
 #endif
 
     use m_derived_types        !< Definitions of the derived types
 
     use m_global_parameters    !< Definitions of the global parameters
-    ! ==========================================================================
 
     implicit none
 

diff --git a/src/common/m_phase_change.fpp b/src/common/m_phase_change.fpp
@@ -7,8 +7,6 @@ module m_phase_change
 
 #ifndef MFC_POST_PROCESS
 
-    ! Dependencies =============================================================
-
     use m_derived_types        !< Definitions of the derived types
 
     use m_global_parameters    !< Definitions of the global parameters
@@ -19,8 +17,6 @@ module m_phase_change
 
     use ieee_arithmetic
 
-    ! ==========================================================================
-
     implicit none
 
     private; 

diff --git a/src/common/m_variables_conversion.fpp b/src/common/m_variables_conversion.fpp
@@ -11,7 +11,6 @@
 !!              the mixture variables and the subroutines used to compute pressure.
 module m_variables_conversion
 
-    ! Dependencies =============================================================
     use m_derived_types        !< Definitions of the derived types
 
     use m_global_parameters    !< Definitions of the global parameters
@@ -26,8 +25,6 @@ module m_variables_conversion
         num_species, get_temperature, get_pressure, gas_constant, &
         get_mixture_molecular_weight, get_mixture_energy_mass
 
-    ! ==========================================================================
-
     implicit none
 
     private; 
@@ -1058,7 +1055,7 @@ contains
 
         !print *, 'I got here AA'
 
-    end subroutine s_convert_conservative_to_primitive_variables ! ---------
+    end subroutine s_convert_conservative_to_primitive_variables
 
     !>  The following procedure handles the conversion between
         !!      the primitive variables and the conservative variables.
@@ -1380,7 +1377,7 @@ contains
 #endif
     end subroutine s_convert_primitive_to_flux_variables
 
-    subroutine s_finalize_variables_conversion_module() ! ------------------
+    subroutine s_finalize_variables_conversion_module()
 
         integer :: i !< Generic loop iterators
 

diff --git a/src/post_process/m_data_input.f90 b/src/post_process/m_data_input.f90
@@ -7,7 +7,6 @@
 !!             variables and fill out their buffer regions.
 module m_data_input
 
-    ! Dependencies =============================================================
 #ifdef MFC_MPI
     use mpi                     !< Message passing interface (MPI) module
 #endif
@@ -21,7 +20,6 @@ module m_data_input
     use m_compile_specific
 
     use m_helper
-    ! ==========================================================================
 
     implicit none
 
@@ -33,7 +31,7 @@ module m_data_input
  s_populate_conservative_variables_buffer_regions, &
  s_finalize_data_input_module
 
-    abstract interface ! ===================================================
+    abstract interface
 
         !> Subroutine for reading data files
         !!  @param t_step Current time-step to input
@@ -43,7 +41,7 @@ subroutine s_read_abstract_data_files(t_step)
 
         end subroutine s_read_abstract_data_files
 
-    end interface ! ========================================================
+    end interface
 
     type(scalar_field), allocatable, dimension(:), public :: q_cons_vf !<
     !! Conservative variables
@@ -125,7 +123,7 @@ subroutine s_read_serial_data_files(t_step)
                              ' is missing. Exiting ...')
         end if
 
-        ! Reading the Grid Data File for the x-direction ===================
+        ! Reading the Grid Data File for the x-direction
 
         ! Checking whether x_cb.dat exists
         file_loc = trim(t_step_dir)//'/x_cb.dat'
@@ -148,10 +146,7 @@ subroutine s_read_serial_data_files(t_step)
         ! Computing the cell-center locations
         x_cc(0:m) = x_cb(-1:m - 1) + dx(0:m)/2._wp
 
-        ! ==================================================================
-
-        ! Reading the Grid Data File for the y-direction ===================
-
+        ! Reading the Grid Data File for the y-direction
         if (n > 0) then
 
             ! Checking whether y_cb.dat exists
@@ -175,10 +170,7 @@ subroutine s_read_serial_data_files(t_step)
             ! Computing the cell-center locations
             y_cc(0:n) = y_cb(-1:n - 1) + dy(0:n)/2._wp
 
-            ! ==================================================================
-
-            ! Reading the Grid Data File for the z-direction ===================
-
+            ! Reading the Grid Data File for the z-direction
             if (p > 0) then
 
                 ! Checking whether z_cb.dat exists
@@ -206,9 +198,7 @@ subroutine s_read_serial_data_files(t_step)
 
         end if
 
-        ! ==================================================================
-
-        ! Reading the Conservative Variables Data Files ====================
+        ! Reading the Conservative Variables Data Files
         do i = 1, sys_size
 
             ! Checking whether the data file associated with the variable
@@ -269,8 +259,6 @@ subroutine s_read_serial_data_files(t_step)
             end if
         end if
 
-        ! ==================================================================
-
     end subroutine s_read_serial_data_files
 
     !>  This subroutine is called at each time-step that has to
@@ -570,7 +558,7 @@ subroutine s_populate_grid_variables_buffer_regions
 
         integer :: i !< Generic loop iterator
 
-        ! Populating Buffer Regions in the x-direction =====================
+        ! Populating Buffer Regions in the x-direction
 
         ! Ghost-cell extrapolation BC at the beginning
         if (bc_x%beg <= -3) then
@@ -644,9 +632,9 @@ subroutine s_populate_grid_variables_buffer_regions
             x_cc(m + i) = x_cc(m + (i - 1)) + (dx(m + (i - 1)) + dx(m + i))/2._wp
         end do
 
-        ! END: Populating Buffer Regions in the x-direction ================
+        ! END: Populating Buffer Regions in the x-direction
 
-        ! Populating Buffer Regions in the y-direction =====================
+        ! Populating Buffer Regions in the y-direction
 
         if (n > 0) then
 
@@ -722,9 +710,9 @@ subroutine s_populate_grid_variables_buffer_regions
                 y_cc(n + i) = y_cc(n + (i - 1)) + (dy(n + (i - 1)) + dy(n + i))/2._wp
             end do
 
-            ! END: Populating Buffer Regions in the y-direction ================
+            ! END: Populating Buffer Regions in the y-direction
 
-            ! Populating Buffer Regions in the z-direction =====================
+            ! Populating Buffer Regions in the z-direction
 
             if (p > 0) then
 
@@ -804,7 +792,7 @@ subroutine s_populate_grid_variables_buffer_regions
 
         end if
 
-        ! END: Populating Buffer Regions in the z-direction ================
+        ! END: Populating Buffer Regions in the z-direction
 
     end subroutine s_populate_grid_variables_buffer_regions
 
@@ -817,7 +805,7 @@ subroutine s_populate_conservative_variables_buffer_regions(q_particle)
 
         integer :: i, j, k !< Generic loop iterators
 
-        ! Populating Buffer Regions in the x-direction =====================
+        ! Populating Buffer Regions in the x-direction
 
         ! Ghost-cell extrapolation BC at the beginning
         if (bc_x%beg <= -3) then
@@ -962,9 +950,9 @@ subroutine s_populate_conservative_variables_buffer_regions(q_particle)
 
         end if
 
-        ! END: Populating Buffer Regions in the x-direction ================
+        ! END: Populating Buffer Regions in the x-direction
 
-        ! Populating Buffer Regions in the y-direction =====================
+        ! Populating Buffer Regions in the y-direction
 
         if (n > 0) then
 
@@ -1158,9 +1146,9 @@ subroutine s_populate_conservative_variables_buffer_regions(q_particle)
 
             end if
 
-            ! END: Populating Buffer Regions in the y-direction ================
+            ! END: Populating Buffer Regions in the y-direction
 
-            ! Populating Buffer Regions in the z-direction =====================
+            ! Populating Buffer Regions in the z-direction
 
             if (p > 0) then
 
@@ -1308,7 +1296,7 @@ subroutine s_populate_conservative_variables_buffer_regions(q_particle)
 
         end if
 
-        ! END: Populating Buffer Regions in the z-direction ================
+        ! END: Populating Buffer Regions in the z-direction
 
     end subroutine s_populate_conservative_variables_buffer_regions