@@ -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.
0 commit comments