Changeset 62e65c7 in flexpart.git for src/mpi_mod.f90

Timestamp:

Apr 28, 2016, 12:58:10 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

18adf60, 93786a1

Parents:

e4f26d1

Message:

'incloud_ratio' set to 6.2. 'maxnests' reverted to 0. Updated info messages (readspecies)

File:

• src/mpi_mod.f90 (modified) (3 diffs)

src/mpi_mod.f90

@@ -103 +103 @@
   logical :: lmp_use_reader=.false. ! true if separate readwind process is used
 
-! true if only using synchronous MPI send/recv:
+! .true. if only using synchronous MPI send/recv (default)
 ! If setting this to .false., numwfmem must be set to 3
 !===============================================================================
@@ -208 +208 @@
 !*********************************************
 
-    if (.not.lmp_sync.and.numwfmem.ne.3.and.lroot) then
-      write(*,FMT='(80("#"))')
-      write(*,*) '#### mpi_mod::mpif_init> ERROR: ', &
-           & 'numwfmem must be set to 3 for asyncronous reading ####'
-      write(*,FMT='(80("#"))')
+    if (.not.lmp_sync.and.numwfmem.ne.3) then
+      if (lroot) then
+        write(*,FMT='(80("#"))')
+        write(*,*) '#### mpi_mod::mpif_init> ERROR: ', &
+             & 'numwfmem must be set to 3 for asyncronous reading ####'
+        write(*,FMT='(80("#"))')
+      end if
+      call MPI_FINALIZE(mp_ierr)
       stop
     else if (lmp_sync.and.numwfmem.ne.2.and.lroot) then
@@ -218 +221 @@
       write(*,*) '#### mpi_mod::mpif_init> WARNING: ', &
            & 'numwfmem should be set to 2 for syncronous'
-      write(*,*) ' reading. Results will still be valid, but unneccesary '
-      write(*,*) 'amount of memory is being allocated.'
+      write(*,*) ' reading. Results will still be valid, but unneccesary memory &
+           &is allocated.'
       write(*,FMT='(80("#"))')
 ! Force "syncronized" version if all processes will call getfields