Skip to content

Remove unnecessary characters #775

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Dec 26, 2024
Merged

Remove unnecessary characters #775

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ac3f717
clean up
sbryngelson Dec 26, 2024
1cdc886
clean
sbryngelson Dec 26, 2024
7cc5443
format
sbryngelson Dec 26, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 1 addition & 2 deletions src/common/m_compile_specific.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

Expand Down
2 changes: 1 addition & 1 deletion src/common/m_finite_differences.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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

4 changes: 0 additions & 4 deletions src/common/m_helper.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -15,8 +13,6 @@ module m_helper

use ieee_arithmetic !< For checking NaN

! ==========================================================================

implicit none

private;
Expand Down
3 changes: 0 additions & 3 deletions src/common/m_helper_basic.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -4,10 +4,7 @@

module m_helper_basic

! Dependencies =============================================================

use m_derived_types !< Definitions of the derived types
! ==========================================================================

implicit none

Expand Down
2 changes: 0 additions & 2 deletions src/common/m_mpi_common.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
4 changes: 0 additions & 4 deletions src/common/m_phase_change.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -19,8 +17,6 @@ module m_phase_change

use ieee_arithmetic

! ==========================================================================

implicit none

private;
Expand Down
7 changes: 2 additions & 5 deletions src/common/m_variables_conversion.fpp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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;
Expand Down Expand Up @@ -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.
Expand Down Expand Up @@ -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

Expand Down
48 changes: 18 additions & 30 deletions src/post_process/m_data_input.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -21,7 +20,6 @@ module m_data_input
use m_compile_specific

use m_helper
! ==========================================================================

implicit none

Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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'
Expand All @@ -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
Expand All @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand All @@ -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
Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down Expand Up @@ -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

Expand Down
Loading
Loading