Skip to content

Commit 3728b8d

Browse files
committed
fix up merge errors and test suite
1 parent be93258 commit 3728b8d

11 files changed

Lines changed: 1141 additions & 381 deletions

File tree

src/common/m_boundary_common.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1202,7 +1202,6 @@ contains
12021202

12031203
end subroutine s_qbmm_extrapolation
12041204

1205-
<<<<<<< HEAD
12061205
impure subroutine s_populate_beta_buffers(q_beta, bc_type, nvar, kcomp)
12071206

12081207
type(scalar_field), dimension(:), intent(inout) :: q_beta

src/simulation/m_bubbles_EL.fpp

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1840,6 +1840,34 @@ contains
18401840
open (LAG_EVOL_ID, FILE=trim(file_loc), FORM='formatted', position='append')
18411841
end if
18421842
1843+
end subroutine s_write_lag_particles
1844+
1845+
!> @Brief Subroutine that opens the file to write the evolution of the lagrangian bubbles on each time step.
1846+
impure subroutine s_open_lag_bubble_evol()
1847+
1848+
character(LEN=path_len + 2*name_len) :: file_loc
1849+
logical file_exist
1850+
character(LEN=25) :: FMT
1851+
1852+
write (file_loc, '(A,I0,A)') 'lag_bubble_evol_', proc_rank, '.dat'
1853+
file_loc = trim(case_dir)//'/D/'//trim(file_loc)
1854+
call my_inquire(trim(file_loc), file_exist)
1855+
1856+
if (precision == 1) then
1857+
FMT = "(A16,A14,8A16)"
1858+
else
1859+
FMT = "(A24,A14,8A24)"
1860+
end if
1861+
1862+
if (.not. file_exist) then
1863+
open (LAG_EVOL_ID, FILE=trim(file_loc), FORM='formatted', position='rewind')
1864+
write (LAG_EVOL_ID, FMT) 'currentTime', 'particleID', 'x', 'y', 'z', &
1865+
'coreVaporMass', 'coreVaporConcentration', 'radius', 'interfaceVelocity', &
1866+
'corePressure'
1867+
else
1868+
open (LAG_EVOL_ID, FILE=trim(file_loc), FORM='formatted', position='append')
1869+
end if
1870+
18431871
end subroutine s_open_lag_bubble_evol
18441872
18451873
!> Subroutine that writes on each time step the changes of the lagrangian bubbles.

src/simulation/m_mpi_proxy.fpp

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -492,7 +492,6 @@ contains
492492

493493
end subroutine s_mpi_sendrecv_ib_buffers
494494

495-
<<<<<<< HEAD
496495
!> This subroutine adds particles to the transfer list for the MPI
497496
!! communication.
498497
!! @param nBub Current LOCAL number of bubbles

tests/016C1B8B/golden-metadata.txt

Lines changed: 71 additions & 68 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

tests/016C1B8B/golden.txt

Lines changed: 9 additions & 9 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

0 commit comments

Comments
 (0)