Skip to content

Commit ca6e592

Browse files
committed
correct merge errors
1 parent 8c555cb commit ca6e592

File tree

2 files changed

+1
-25
lines changed

2 files changed

+1
-25
lines changed

src/common/m_mpi_common.fpp

Lines changed: 1 addition & 16 deletions
Original file line numberDiff line numberDiff line change
@@ -404,21 +404,17 @@ contains
404404
impure subroutine s_mpi_reduce_stability_criteria_extrema(icfl_max_loc, &
405405
vcfl_max_loc, &
406406
Rc_min_loc, &
407-
ccfl_max_loc, &
408407
icfl_max_glb, &
409408
vcfl_max_glb, &
410-
Rc_min_glb, &
411-
ccfl_max_glb)
409+
Rc_min_glb)
412410
413411
real(wp), intent(in) :: icfl_max_loc
414412
real(wp), intent(in) :: vcfl_max_loc
415413
real(wp), intent(in) :: Rc_min_loc
416-
real(wp), intent(in) :: ccfl_max_loc
417414
418415
real(wp), intent(out) :: icfl_max_glb
419416
real(wp), intent(out) :: vcfl_max_glb
420417
real(wp), intent(out) :: Rc_min_glb
421-
real(wp), intent(out) :: ccfl_max_glb
422418
423419
#ifdef MFC_SIMULATION
424420
#ifdef MFC_MPI
@@ -438,24 +434,13 @@ contains
438434
mpi_p, MPI_MIN, 0, &
439435
MPI_COMM_WORLD, ierr)
440436
end if
441-
442-
if (surface_tension) then
443-
call MPI_REDUCE(ccfl_max_loc, ccfl_max_glb, 1, &
444-
mpi_p, MPI_MAX, 0, &
445-
MPI_COMM_WORLD, ierr)
446-
end if
447-
448437
#else
449-
450438
icfl_max_glb = icfl_max_loc
451439
452440
if (viscous) then
453441
vcfl_max_glb = vcfl_max_loc
454442
Rc_min_glb = Rc_min_loc
455443
end if
456-
457-
if (surface_tension) ccfl_max_glb = ccfl_max_loc
458-
459444
#endif
460445
#endif
461446

src/post_process/m_mpi_proxy.fpp

Lines changed: 0 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -104,17 +104,8 @@ contains
104104
& 'file_per_process', 'relax', 'cf_wrt', 'igr', 'liutex_wrt', &
105105
& 'adv_n', 'ib', 'cfl_adap_dt', 'cfl_const_dt', 'cfl_dt', &
106106
& 'surface_tension', 'hyperelasticity', 'bubbles_lagrange', &
107-
<<<<<<< HEAD
108-
& 'output_partial_domain', 'relativity', 'cont_damage', &
109-
& 'lag_header', 'lag_txt_wrt', 'lag_db_wrt', 'lag_id_wrt', &
110-
& 'lag_pos_wrt', 'lag_pos_prev_wrt', 'lag_vel_wrt', 'lag_rad_wrt', &
111-
& 'lag_rvel_wrt', 'lag_r0_wrt', 'lag_rmax_wrt', 'lag_rmin_wrt', &
112-
& 'lag_dphidt_wrt', 'lag_pres_wrt', 'lag_mv_wrt', 'lag_mg_wrt', &
113-
& 'lag_betaT_wrt', 'lag_betaC_wrt', 'bc_io', 'down_sample' ]
114-
=======
115107
& 'output_partial_domain', 'relativity', 'cont_damage', 'bc_io', &
116108
& 'down_sample' ]
117-
>>>>>>> ImprovedELBubblesIO
118109
call MPI_BCAST(${VAR}$, 1, MPI_LOGICAL, 0, MPI_COMM_WORLD, ierr)
119110
#:endfor
120111

0 commit comments

Comments
 (0)