[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
nancy at ucar.edu
Fri Dec 18 13:55:19 MST 2009
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)
More information about the Dart-dev
mailing list