Changes in src/timemanager_mpi.f90 [05cf28d:18adf60] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/timemanager_mpi.f90
r05cf28d r18adf60 546 546 ! Decide whether to write an estimate of the number of particles released, 547 547 ! or exact number (require MPI reduce operation) 548 numpart_tot_mpi = numpart*mp_partgroup_np 549 550 if (mp_exact_numpart.and..not.(lmpreader.and.lmp_use_reader)) then 548 if (mp_dev_mode) then 549 numpart_tot_mpi = numpart 550 else 551 numpart_tot_mpi = numpart*mp_partgroup_np 552 end if 553 554 if (mp_exact_numpart.and..not.(lmpreader.and.lmp_use_reader).and.& 555 &.not.mp_dev_mode) then 551 556 call MPI_Reduce(numpart, numpart_tot_mpi, 1, MPI_INTEGER, MPI_SUM, id_root, & 552 557 & mp_comm_used, mp_ierr) … … 738 743 endif 739 744 740 741 if (mdomainfill.eq.0 ) then745 ! Skip check on mass fraction when npoint represents particle number 746 if (mdomainfill.eq.0.and.mquasilag.eq.0) then 742 747 if (xmass(npoint(j),ks).gt.0.)then 743 748 xmassfract=max(xmassfract,real(npart(npoint(j)))* &
Note: See TracChangeset
for help on using the changeset viewer.