Skip to content

Commit 8956d74

Browse files
okBrianokBrian
authored
Post_Process, Formatting (#489)
1 parent 5122101 commit 8956d74

File tree

6 files changed

+46
-45
lines changed

6 files changed

+46
-45
lines changed

‎src/post_process/m_checker.f90‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -17,7 +17,7 @@ module m_checker
1717

1818
contains
1919

20-
subroutine s_check_inputs()
20+
subroutine s_check_inputs
2121

2222
integer :: bub_fac
2323
integer :: i

‎src/post_process/m_data_input.f90‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@ module m_data_input
3939
!! @param t_step Current time-step to input
4040
subroutine s_read_abstract_data_files(t_step)
4141

42-
integer, intent(IN) :: t_step
42+
integer, intent(in) :: t_step
4343

4444
end subroutine s_read_abstract_data_files
4545

@@ -62,7 +62,7 @@ end subroutine s_read_abstract_data_files
6262
!! @param t_step Current time-step
6363
subroutine s_read_serial_data_files(t_step)
6464

65-
integer, intent(IN) :: t_step
65+
integer, intent(in) :: t_step
6666

6767
character(LEN=len_trim(case_dir) + 2*name_len) :: t_step_dir !<
6868
!! Location of the time-step directory associated with t_step
@@ -216,7 +216,7 @@ end subroutine s_read_serial_data_files
216216
!! @param t_step Current time-step
217217
subroutine s_read_parallel_data_files(t_step)
218218

219-
integer, intent(IN) :: t_step
219+
integer, intent(in) :: t_step
220220

221221
#ifdef MFC_MPI
222222

@@ -1116,7 +1116,7 @@ subroutine s_initialize_data_input_module
11161116
end subroutine s_initialize_data_input_module
11171117

11181118
!> Deallocation procedures for the module
1119-
subroutine s_finalize_data_input_module()
1119+
subroutine s_finalize_data_input_module
11201120

11211121
integer :: i !< Generic loop iterator
11221122

‎src/post_process/m_data_output.fpp‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -102,7 +102,7 @@ module m_data_output
102102
103103
contains
104104
105-
subroutine s_initialize_data_output_module()
105+
subroutine s_initialize_data_output_module
106106
! Description: Computation of parameters, allocation procedures, and/or
107107
! any other tasks needed to properly setup the module
108108
@@ -425,7 +425,7 @@ contains
425425
! not performed in multidimensions.
426426
427427
! Time-step that is currently being post-processed
428-
integer, intent(IN) :: t_step
428+
integer, intent(in) :: t_step
429429
430430
! Generic string used to store the location of a particular file
431431
character(LEN=len_trim(case_dir) + 3*name_len) :: file_loc
@@ -552,7 +552,7 @@ contains
552552
! subroutine s_write_variable_to_formatted_database_file.
553553
554554
! Time-step that is currently being post-processed
555-
integer, intent(IN) :: t_step
555+
integer, intent(in) :: t_step
556556
557557
! Bookkeeping variables storing the name and type of mesh that is
558558
! handled by the local processor(s). Note that due to an internal
@@ -749,10 +749,10 @@ contains
749749
750750
! Name of the flow variable, which will be written to the formatted
751751
! database file at the current time-step, t_step
752-
character(LEN=*), intent(IN) :: varname
752+
character(LEN=*), intent(in) :: varname
753753
754754
! Time-step that is currently being post-processed
755-
integer, intent(IN) :: t_step
755+
integer, intent(in) :: t_step
756756
757757
! Bookkeeping variables storing the name and type of flow variable
758758
! that is about to be handled by the local processor(s). Note that

‎src/post_process/m_derived_variables.fpp‎

Lines changed: 19 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -125,7 +125,7 @@ contains
125125
dimension(-offset_x%beg:m + offset_x%end, &
126126
-offset_y%beg:n + offset_y%end, &
127127
-offset_z%beg:p + offset_z%end), &
128-
intent(INOUT) :: q_sf
128+
intent(inout) :: q_sf
129129

130130
integer :: i, j, k !< Generic loop iterators
131131

@@ -152,7 +152,7 @@ contains
152152
dimension(-offset_x%beg:m + offset_x%end, &
153153
-offset_y%beg:n + offset_y%end, &
154154
-offset_z%beg:p + offset_z%end), &
155-
intent(INOUT) :: q_sf
155+
intent(inout) :: q_sf
156156

157157
integer :: i, j, k !< Generic loop iterators
158158

@@ -179,13 +179,13 @@ contains
179179

180180
type(scalar_field), &
181181
dimension(sys_size), &
182-
intent(IN) :: q_prim_vf
182+
intent(in) :: q_prim_vf
183183

184184
real(kind(0d0)), &
185185
dimension(-offset_x%beg:m + offset_x%end, &
186186
-offset_y%beg:n + offset_y%end, &
187187
-offset_z%beg:p + offset_z%end), &
188-
intent(INOUT) :: q_sf
188+
intent(inout) :: q_sf
189189

190190
integer :: i, j, k !< Generic loop iterators
191191

@@ -234,14 +234,14 @@ contains
234234
!! @param q_sf Flux limiter
235235
subroutine s_derive_flux_limiter(i, q_prim_vf, q_sf)
236236

237-
integer, intent(IN) :: i
237+
integer, intent(in) :: i
238238

239-
type(scalar_field), dimension(sys_size), intent(IN) :: q_prim_vf
239+
type(scalar_field), dimension(sys_size), intent(in) :: q_prim_vf
240240

241241
real(kind(0d0)), dimension(-offset_x%beg:m + offset_x%end, &
242242
-offset_y%beg:n + offset_y%end, &
243243
-offset_z%beg:p + offset_z%end), &
244-
intent(INOUT) :: q_sf
244+
intent(inout) :: q_sf
245245

246246
real(kind(0d0)) :: top, bottom, slope !< Flux limiter calcs
247247
integer :: j, k, l !< Generic loop iterators
@@ -328,10 +328,11 @@ contains
328328
!! @param ndim Problem size
329329
subroutine s_solve_linear_system(A, b, sol, ndim)
330330

331-
integer, intent(IN) :: ndim
332-
real(kind(0d0)), dimension(ndim, ndim), intent(INOUT) :: A
333-
real(kind(0d0)), dimension(ndim), intent(INOUT) :: b
334-
real(kind(0d0)), dimension(ndim), intent(OUT) :: sol
331+
integer, intent(in) :: ndim
332+
real(kind(0d0)), dimension(ndim, ndim), intent(inout) :: A
333+
real(kind(0d0)), dimension(ndim), intent(inout) :: b
334+
real(kind(0d0)), dimension(ndim), intent(out) :: sol
335+
335336
integer, dimension(ndim) :: ipiv
336337

337338
integer :: nrhs, lda, ldb, info
@@ -380,17 +381,17 @@ contains
380381
!! @param q_sf Vorticity component
381382
subroutine s_derive_vorticity_component(i, q_prim_vf, q_sf)
382383

383-
integer, intent(IN) :: i
384+
integer, intent(in) :: i
384385

385386
type(scalar_field), &
386387
dimension(sys_size), &
387-
intent(IN) :: q_prim_vf
388+
intent(in) :: q_prim_vf
388389

389390
real(kind(0d0)), &
390391
dimension(-offset_x%beg:m + offset_x%end, &
391392
-offset_y%beg:n + offset_y%end, &
392393
-offset_z%beg:p + offset_z%end), &
393-
intent(INOUT) :: q_sf
394+
intent(inout) :: q_sf
394395

395396
integer :: j, k, l, r !< Generic loop iterators
396397

@@ -483,13 +484,13 @@ contains
483484
subroutine s_derive_qm(q_prim_vf, q_sf)
484485
type(scalar_field), &
485486
dimension(sys_size), &
486-
intent(IN) :: q_prim_vf
487+
intent(in) :: q_prim_vf
487488

488489
real(kind(0d0)), &
489490
dimension(-offset_x%beg:m + offset_x%end, &
490491
-offset_y%beg:n + offset_y%end, &
491492
-offset_z%beg:p + offset_z%end), &
492-
intent(INOUT) :: q_sf
493+
intent(inout) :: q_sf
493494

494495
real(kind(0d0)), &
495496
dimension(1:3, 1:3) :: q_jacobian_sf, S, S2, O, O2
@@ -573,13 +574,13 @@ contains
573574
574575
type(scalar_field), &
575576
dimension(sys_size), &
576-
intent(IN) :: q_cons_vf
577+
intent(in) :: q_cons_vf
577578
578579
real(kind(0d0)), &
579580
dimension(-offset_x%beg:m + offset_x%end, &
580581
-offset_y%beg:n + offset_y%end, &
581582
-offset_z%beg:p + offset_z%end), &
582-
intent(INOUT) :: q_sf
583+
intent(inout) :: q_sf
583584
584585
real(kind(0d0)) :: drho_dx, drho_dy, drho_dz !<
585586
!! Spatial derivatives of the density in the x-, y- and z-directions

‎src/post_process/m_mpi_proxy.fpp‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -649,8 +649,8 @@ contains
649649
!! @param sweep_coord Coordinate direction normal to the processor boundary
650650
subroutine s_mpi_sendrecv_grid_vars_buffer_regions(pbc_loc, sweep_coord)
651651
652-
character(LEN=3), intent(IN) :: pbc_loc
653-
character, intent(IN) :: sweep_coord
652+
character(LEN=3), intent(in) :: pbc_loc
653+
character, intent(in) :: sweep_coord
654654
655655
#ifdef MFC_MPI
656656
@@ -851,11 +851,11 @@ contains
851851
852852
type(scalar_field), &
853853
dimension(sys_size), &
854-
intent(INOUT) :: q_cons_vf
854+
intent(inout) :: q_cons_vf
855855
856-
character(LEN=3), intent(IN) :: pbc_loc
856+
character(LEN=3), intent(in) :: pbc_loc
857857
858-
character, intent(IN) :: sweep_coord
858+
character, intent(in) :: sweep_coord
859859
860860
#ifdef MFC_MPI
861861
@@ -1413,7 +1413,7 @@ contains
14131413
!! the second dimension corresponds to the processor rank.
14141414
subroutine s_mpi_gather_spatial_extents(spatial_extents)
14151415

1416-
real(kind(0d0)), dimension(1:, 0:), intent(INOUT) :: spatial_extents
1416+
real(kind(0d0)), dimension(1:, 0:), intent(inout) :: spatial_extents
14171417

14181418
#ifdef MFC_MPI
14191419

@@ -1568,11 +1568,11 @@ contains
15681568
!! to each processor's rank.
15691569
subroutine s_mpi_gather_data_extents(q_sf, data_extents)
15701570

1571-
real(kind(0d0)), dimension(:, :, :), intent(IN) :: q_sf
1571+
real(kind(0d0)), dimension(:, :, :), intent(in) :: q_sf
15721572

15731573
real(kind(0d0)), &
15741574
dimension(1:2, 0:num_procs - 1), &
1575-
intent(INOUT) :: data_extents
1575+
intent(inout) :: data_extents
15761576

15771577
#ifdef MFC_MPI
15781578

@@ -1600,11 +1600,11 @@ contains
16001600

16011601
real(kind(0d0)), &
16021602
dimension(0:m, 0:0, 0:0), &
1603-
intent(IN) :: q_sf
1603+
intent(in) :: q_sf
16041604

16051605
real(kind(0d0)), &
16061606
dimension(0:m_root, 0:0, 0:0), &
1607-
intent(INOUT) :: q_root_sf
1607+
intent(inout) :: q_root_sf
16081608

16091609
#ifdef MFC_MPI
16101610

‎src/post_process/m_start_up.f90‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -137,7 +137,7 @@ end subroutine s_check_input_file
137137

138138
subroutine s_perform_time_step(t_step)
139139

140-
integer, intent(INOUT) :: t_step
140+
integer, intent(inout) :: t_step
141141
if (proc_rank == 0) then
142142
print '(" ["I3"%] Saving "I8" of "I0" @ t_step = "I0"")', &
143143
int(ceiling(100d0*(real(t_step - t_step_start)/(t_step_stop - t_step_start + 1)))), &
@@ -164,9 +164,9 @@ end subroutine s_perform_time_step
164164

165165
subroutine s_save_data(t_step, varname, pres, c, H)
166166

167-
integer, intent(INOUT) :: t_step
168-
character(LEN=name_len), intent(INOUT) :: varname
169-
real(kind(0d0)), intent(INOUT) :: pres, c, H
167+
integer, intent(inout) :: t_step
168+
character(LEN=name_len), intent(inout) :: varname
169+
real(kind(0d0)), intent(inout) :: pres, c, H
170170

171171
integer :: i, j, k, l
172172

@@ -620,7 +620,7 @@ subroutine s_save_data(t_step, varname, pres, c, H)
620620
call s_close_formatted_database_file()
621621
end subroutine s_save_data
622622

623-
subroutine s_initialize_modules()
623+
subroutine s_initialize_modules
624624
! Computation of parameters, allocation procedures, and/or any other tasks
625625
! needed to properly setup the modules
626626
call s_initialize_global_parameters_module()
@@ -644,7 +644,7 @@ subroutine s_initialize_modules()
644644
end if
645645
end subroutine s_initialize_modules
646646

647-
subroutine s_initialize_mpi_domain()
647+
subroutine s_initialize_mpi_domain
648648
! Initialization of the MPI environment
649649
call s_mpi_initialize()
650650

@@ -669,7 +669,7 @@ subroutine s_initialize_mpi_domain()
669669

670670
end subroutine s_initialize_mpi_domain
671671

672-
subroutine s_finalize_modules()
672+
subroutine s_finalize_modules
673673
! Disassociate pointers for serial and parallel I/O
674674
s_read_data_files => null()
675675

0 commit comments

Comments
 (0)