Commit df967a99 authored by Espen Sollum's avatar Espen Sollum
Browse files

Parallel version exits with error message if trying to run backwards

parent b255cd09
...@@ -157,9 +157,20 @@ program flexpart ...@@ -157,9 +157,20 @@ program flexpart
if (verbosity.gt.1) then if (verbosity.gt.1) then
CALL SYSTEM_CLOCK(count_clock, count_rate, count_max) CALL SYSTEM_CLOCK(count_clock, count_rate, count_max)
write(*,*) 'SYSTEM_CLOCK',(count_clock - count_clock0)/real(count_rate) !, 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
! Read the age classes to be used ! Read the age classes to be used
!******************************** !********************************
...@@ -416,12 +427,15 @@ program flexpart ...@@ -416,12 +427,15 @@ program flexpart
CALL SYSTEM_CLOCK(count_clock, count_rate, count_max) CALL SYSTEM_CLOCK(count_clock, count_rate, count_max)
WRITE(*,*) 'SYSTEM_CLOCK',(count_clock - count_clock0)/real(count_rate) !, count_rate, count_max WRITE(*,*) 'SYSTEM_CLOCK',(count_clock - count_clock0)/real(count_rate) !, count_rate, count_max
endif endif
if (info_flag.eq.1) then
print*, 'info only mode (stop)'
stop
endif
print*,'call timemanager' print*,'call timemanager'
endif endif
if (info_flag.eq.1) then
print*, 'info only mode (stop)'
call mpif_finalize
stop
endif
call timemanager call timemanager
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment