[Dart-dev] DART/branches Revision: 11458

[dart at ucar.edu]

nancy at ucar.edu
2017-04-12 11:37:29 -0600 (Wed, 12 Apr 2017)
199
don't write to the logfile from other tasks when the
error_handler message type is E_ALLMSG.  tasks other than
task 0 corrupt the log file.  continue to write to stdout
since that seems to work ok.




Modified: DART/branches/model_mod_changes/assimilation_code/modules/utilities/utilities_mod.f90
===================================================================
--- DART/branches/model_mod_changes/assimilation_code/modules/utilities/utilities_mod.f90	2017-04-12 17:35:19 UTC (rev 11457)
+++ DART/branches/model_mod_changes/assimilation_code/modules/utilities/utilities_mod.f90	2017-04-12 17:37:29 UTC (rev 11458)
@@ -816,14 +816,11 @@
       else
         write(taskstr, '(a,i5)' ) "PE ", task_number
         write(     *     , *) trim(taskstr),': ',trim(routine),' ', trim(text)
-        write(logfileunit, *) trim(taskstr),': ',trim(routine),' ', trim(text)
         if ( present(text2)) then
            write(     *     , *) trim(taskstr),': ',trim(routine),' ... ', trim(text2)
-           write(logfileunit, *) trim(taskstr),': ',trim(routine),' ... ', trim(text2)
         endif
         if ( present(text3)) then
            write(     *     , *) trim(taskstr),': ',trim(routine),' ... ', trim(text3)
-           write(logfileunit, *) trim(taskstr),': ',trim(routine),' ... ', trim(text3)
         endif
       endif