[Dart-dev] DART/branches Revision: 11064

[dart at ucar.edu]

nancy at ucar.edu
2017-02-08 16:37:29 -0700 (Wed, 08 Feb 2017)
151
remove the call to exit - this will cause mpi filters
to hang.  add a call to the error handler which will
call mpi_abort() to kill the job on error.




Modified: DART/branches/rma_single_file/io/state_vector_io_mod.f90
===================================================================
--- DART/branches/rma_single_file/io/state_vector_io_mod.f90	2017-02-08 23:31:05 UTC (rev 11063)
+++ DART/branches/rma_single_file/io/state_vector_io_mod.f90	2017-02-08 23:37:29 UTC (rev 11064)
@@ -265,10 +265,11 @@
    endif
 
    call write_singlefile(state_ens_handle, file_info)
-else ! mutilple files
+
+else ! multiple files
    if ( get_cycling(file_info) ) then
-      print*, 'error'
-      call exit(0)
+      call error_handler(E_ERR, 'write_state: ', 'currently cannot write multiple-file output while advancing the model inside filter', &
+      source, revision, revdate, text2='either use single file i/o, or advance the model outside filter')
    endif
    
    ! write ensemble copies