Changes in src/mpi_mod.f90 [62e65c7:341f4b7] in flexpart.git
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/mpi_mod.f90
r62e65c7 r341f4b7 103 103 logical :: lmp_use_reader=.false. ! true if separate readwind process is used 104 104 105 ! .true. if only using synchronous MPI send/recv (default)105 ! true if only using synchronous MPI send/recv: 106 106 ! If setting this to .false., numwfmem must be set to 3 107 107 !=============================================================================== … … 208 208 !********************************************* 209 209 210 if (.not.lmp_sync.and.numwfmem.ne.3) then 211 if (lroot) then 212 write(*,FMT='(80("#"))') 213 write(*,*) '#### mpi_mod::mpif_init> ERROR: ', & 214 & 'numwfmem must be set to 3 for asyncronous reading ####' 215 write(*,FMT='(80("#"))') 216 end if 217 call MPI_FINALIZE(mp_ierr) 210 if (.not.lmp_sync.and.numwfmem.ne.3.and.lroot) then 211 write(*,FMT='(80("#"))') 212 write(*,*) '#### mpi_mod::mpif_init> ERROR: ', & 213 & 'numwfmem must be set to 3 for asyncronous reading ####' 214 write(*,FMT='(80("#"))') 218 215 stop 219 216 else if (lmp_sync.and.numwfmem.ne.2.and.lroot) then … … 221 218 write(*,*) '#### mpi_mod::mpif_init> WARNING: ', & 222 219 & 'numwfmem should be set to 2 for syncronous' 223 write(*,*) ' reading. Results will still be valid, but unneccesary memory &224 &isallocated.'220 write(*,*) ' reading. Results will still be valid, but unneccesary ' 221 write(*,*) 'amount of memory is being allocated.' 225 222 write(*,FMT='(80("#"))') 226 223 ! Force "syncronized" version if all processes will call getfields
Note: See TracChangeset
for help on using the changeset viewer.