Skip to content

Commit 975c5db

Browse files
author
Daniel Vickers
committed
Removed print statements
1 parent 85442c0 commit 975c5db

2 files changed

Lines changed: 0 additions & 19 deletions

File tree

src/simulation/m_particle_bed.fpp

Lines changed: 0 additions & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -41,24 +41,8 @@ contains
4141

4242
if (num_particle_beds == 0) return
4343

44-
<<<<<<< HEAD
4544
call cpu_time(t_start)
4645
n_total_placed = 0
47-
=======
48-
! Grow patch_ib from the namelist-sized allocation to the full capacity needed for particle beds
49-
if (size(patch_ib) < num_ib_patches_max) then
50-
block
51-
type(ib_patch_parameters), allocatable :: tmp(:)
52-
integer :: n
53-
n = size(patch_ib)
54-
allocate (tmp(n))
55-
tmp(1:n) = patch_ib(1:n)
56-
deallocate (patch_ib)
57-
allocate (patch_ib(num_ib_patches_max))
58-
patch_ib(1:n) = tmp
59-
end block
60-
end if
61-
>>>>>>> 2c3099e1155411381d72e866957b6fcf2d89f9fc
6246

6347
do b = 1, num_particle_beds
6448
xmin = particle_bed(b)%x_centroid - 0.5_wp*particle_bed(b)%length_x

src/simulation/m_start_up.fpp

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -927,12 +927,9 @@ contains
927927
call s_generate_particle_beds()
928928
end if
929929
call s_instantiate_STL_models()
930-
if (proc_rank == 0) print *, "s_reduce_ib_patch_array"
931930
call s_reduce_ib_patch_array()
932-
if (proc_rank == 0) print *, "s_ibm_setup"
933931
call s_ibm_setup()
934932
if (t_step_start == 0 .or. (cfl_dt .and. n_start == 0)) then
935-
if (proc_rank == 0) print *, "s_write_ib_data_file"
936933
call s_write_ib_data_file(0)
937934
call s_write_ib_state_file(0)
938935
end if

0 commit comments

Comments
 (0)