Skip to content

Commit 357099b

Browse files
committed
Ran formatter
1 parent 7eeaa84 commit 357099b

File tree

5 files changed

+4
-8
lines changed

5 files changed

+4
-8
lines changed

src/post_process/m_global_parameters.fpp

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,6 @@ module m_global_parameters
4444
integer :: mn_min, np_min, mp_min, mnp_min
4545
!> @}
4646

47-
4847
integer(8) :: nGlobal ! Total number of cells in global domain
4948

5049
!> @name Cylindrical coordinates (either axisymmetric or full 3D)
@@ -340,7 +339,7 @@ contains
340339

341340
! Computational domain parameters
342341
m = dflt_int; n = 0; p = 0
343-
342+
344343
! Update the min and max of the cells in each direction
345344
mn_max = max(m, n)
346345
np_max = max(n, p)

src/post_process/m_start_up.f90

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,6 @@ subroutine s_read_input_file
117117
mp_min = min(m, p)
118118
mnp_min = min(m, n, p)
119119

120-
121120
! Store m,n,p into global m,n,p
122121
m_glb = m
123122
n_glb = n

src/pre_process/m_global_parameters.fpp

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,6 @@ module m_global_parameters
4747

4848
!> @}
4949

50-
5150
integer(8) :: nGlobal !< Global number of cells in the domain
5251

5352
integer :: m_glb, n_glb, p_glb !< Global number of cells in each direction
@@ -310,7 +309,7 @@ contains
310309

311310
! Computational domain parameters
312311
m = dflt_int; n = 0; p = 0
313-
312+
314313
! Update the min and max of the cells in each direction
315314
mn_max = max(m, n)
316315
np_max = max(n, p)
@@ -320,7 +319,7 @@ contains
320319
np_min = min(n, p)
321320
mp_min = min(m, p)
322321
mnp_min = min(m, n, p)
323-
322+
324323
cyl_coord = .false.
325324

326325
x_domain%beg = dflt_real

src/pre_process/m_start_up.fpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -179,7 +179,7 @@ contains
179179
np_min = min(n, p)
180180
mp_min = min(m, p)
181181
mnp_min = min(m, n, p)
182-
182+
183183
! Store m,n,p into global m,n,p
184184
m_glb = m
185185
n_glb = n

src/simulation/m_mpi_proxy.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -562,7 +562,6 @@ contains
562562
mp_min = min(m, p)
563563
mnp_min = min(m, n, p)
564564
565-
566565
! Boundary condition at the beginning
567566
if (proc_coords(1) > 0 .or. (bc_x%beg == BC_PERIODIC .and. num_procs_x > 1)) then
568567
proc_coords(1) = proc_coords(1) - 1

0 commit comments

Comments
 (0)