Changeset df967a99 in flexpart.git

Timestamp:

Nov 20, 2015, 4:59:57 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:

6b22af9

Parents:

b255cd0

Message:

Parallel version exits with error message if trying to run backwards

File:

• src/FLEXPART_MPI.f90 (modified) (2 diffs)

src/FLEXPART_MPI.f90

@@ -158 +158 @@
       CALL SYSTEM_CLOCK(count_clock, count_rate, count_max)
       write(*,*) 'SYSTEM_CLOCK',(count_clock - count_clock0)/real(count_rate) !, count_rate, count_max
-    endif     
-  endif
+    endif
+  endif
+
+  ! Exit if trying to run backwards
+  if (ldirect.le.0) then
+    write(*,FMT='(80("#"))')
+    write(*,*) '#### FLEXPART_MPI> ERROR: ', &
+         & 'MPI version not (yet) working with backward runs. ',&
+         & 'Use the serial version instead.'
+    write(*,FMT='(80("#"))')
+    stop
+  end if
+
 
 
@@ -417 +428 @@
       WRITE(*,*) 'SYSTEM_CLOCK',(count_clock - count_clock0)/real(count_rate) !, count_rate, count_max
     endif
-    if (info_flag.eq.1) then
-      print*, 'info only mode (stop)'    
-      stop
-    endif
     print*,'call timemanager'
   endif
+  if (info_flag.eq.1) then
+    print*, 'info only mode (stop)'    
+    call mpif_finalize
+    stop
+  endif
+    
+
 
   call timemanager