[Dart-dev] [4207] DART/trunk/utilities/utilities_mod.f90: Make sure you only get one copy of the 'finished' message in the

[nancy at ucar.edu]

Revision: 4207
Author:   nancy
Date:     2009-12-18 13:55:19 -0700 (Fri, 18 Dec 2009)
Log Message:
-----------
Make sure you only get one copy of the 'finished' message in the
log even for mpi programs.

Modified Paths:
--------------
    DART/trunk/utilities/utilities_mod.f90

-------------- next part --------------
Modified: DART/trunk/utilities/utilities_mod.f90
===================================================================
--- DART/trunk/utilities/utilities_mod.f90	2009-12-18 20:26:05 UTC (rev 4206)
+++ DART/trunk/utilities/utilities_mod.f90	2009-12-18 20:55:19 UTC (rev 4207)
@@ -382,17 +382,17 @@
       ! if called multiple times, just return
       if (.not. module_initialized) return
 
-      if ( present(progname) ) then
-         call write_time (logfileunit, label='Finished ', &
-                          string1='Program '//trim(progname))
-         call write_time (             label='Finished ', &
-                          string1='Program '//trim(progname))
-      else
-         call write_time (logfileunit, label='Finished ')
-         call write_time (             label='Finished ')
-      endif 
+      if (do_output_flag) then
+         if ( present(progname) ) then
+            call write_time (logfileunit, label='Finished ', &
+                             string1='Program '//trim(progname))
+            call write_time (             label='Finished ', &
+                             string1='Program '//trim(progname))
+         else
+            call write_time (logfileunit, label='Finished ')
+            call write_time (             label='Finished ')
+         endif 
 
-      if (do_output_flag) then
          if (do_nml_file() .and. (nmlfileunit /= logfileunit)) then
             if ( present(progname) ) then
                write(nmlfileunit, *) '!Finished Program '//trim(progname)