[Dart-dev] [4717] DART/trunk/utilities/restart_file_tool.f90: Replace call to timestamp with "end" as special argument

[nancy at ucar.edu]

Revision: 4717
Author:   nancy
Date:     2011-02-15 14:09:51 -0700 (Tue, 15 Feb 2011)
Log Message:
-----------
Replace call to timestamp with "end" as special argument
with a call to finalize_mpi_utilities.  removed unused
routines from the 'use' lines.  no functional code changes.

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

-------------- next part --------------
Modified: DART/trunk/utilities/restart_file_tool.f90
===================================================================
--- DART/trunk/utilities/restart_file_tool.f90	2011-02-15 21:08:10 UTC (rev 4716)
+++ DART/trunk/utilities/restart_file_tool.f90	2011-02-15 21:09:51 UTC (rev 4717)
@@ -19,10 +19,10 @@
                                 set_calendar_type, GREGORIAN, NO_CALENDAR, &
                                 get_calendar_type
 
-use utilities_mod,       only : initialize_utilities, register_module,     &
+use utilities_mod,       only : register_module, do_output,                &
                                 error_handler, nmlfileunit, E_MSG, E_ERR,  &
                                 timestamp, find_namelist_in_file,          &
-                                check_namelist_read, do_output, logfileunit, &
+                                check_namelist_read, logfileunit,          &
                                 do_nml_file, do_nml_term
                                 
 use assim_model_mod,     only : static_init_assim_model, get_model_size,   &
@@ -95,6 +95,7 @@
 
 ! This program should only be run with a single process
 call initialize_mpi_utilities('restart_file_tool')
+
 if(task_count() > 1) &
    call error_handler(E_ERR,'restart_file_tool','Only use single process', &
                       source,revision,revdate)
@@ -355,10 +356,8 @@
 ! Early exit for the 'print_only' option
 10 continue
 
-call timestamp(source,revision,revdate,'end') ! closes the log file.
+call finalize_mpi_utilities()   ! now closes log file, too
 
-call finalize_mpi_utilities()
-
 contains
 
 subroutine print_info(model_size, has_cal, data_time, is_advance, advance_time)