File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff 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
Original file line number Diff line number Diff 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
You can’t perform that action at this time.
0 commit comments