[Dart-dev] [6244] DART/branches/development/models/mpas_atm: clean up the time print output a little; no changes

[nancy at ucar.edu]

Revision: 6244
Author:   nancy
Date:     2013-06-11 15:41:26 -0600 (Tue, 11 Jun 2013)
Log Message:
-----------
clean up the time print output a little; no changes
to the execution of the converters, just hopefully a bit
more clear on the time/date labels.

Modified Paths:
--------------
    DART/branches/development/models/mpas_atm/dart_to_model.f90
    DART/branches/development/models/mpas_atm/model_to_dart.f90

-------------- next part --------------
Modified: DART/branches/development/models/mpas_atm/dart_to_model.f90
===================================================================
--- DART/branches/development/models/mpas_atm/dart_to_model.f90	2013-06-11 21:20:01 UTC (rev 6243)
+++ DART/branches/development/models/mpas_atm/dart_to_model.f90	2013-06-11 21:41:26 UTC (rev 6244)
@@ -133,10 +133,10 @@
 ! Log what we think we're doing, and exit.
 !----------------------------------------------------------------------
 
-call print_date( model_time,'dart_to_model:model model date')
-call print_time( model_time,'dart_to_model:DART model time')
-call print_date( model_time,'dart_to_model:model model date',logfileunit)
-call print_time( model_time,'dart_to_model:DART model time',logfileunit)
+call print_date( model_time,'dart_to_model:model date')
+call print_time( model_time,'dart_to_model:model time')
+call print_date( model_time,'dart_to_model:model date',logfileunit)
+call print_time( model_time,'dart_to_model:model time',logfileunit)
 
 if ( advance_time_present ) then
 call print_time(adv_to_time,'dart_to_model:advance_to time')

Modified: DART/branches/development/models/mpas_atm/model_to_dart.f90
===================================================================
--- DART/branches/development/models/mpas_atm/model_to_dart.f90	2013-06-11 21:20:01 UTC (rev 6243)
+++ DART/branches/development/models/mpas_atm/model_to_dart.f90	2013-06-11 21:41:26 UTC (rev 6244)
@@ -23,7 +23,8 @@
 
 use        types_mod, only : r8
 use    utilities_mod, only : initialize_utilities, finalize_utilities, &
-                             find_namelist_in_file, check_namelist_read
+                             find_namelist_in_file, check_namelist_read, &
+                             logfileunit
 use        model_mod, only : get_model_size, analysis_file_to_statevector, &
                              get_model_analysis_filename, static_init_model, &
                              print_variable_ranges
@@ -110,8 +111,11 @@
 ! finish up
 !----------------------------------------------------------------------
 
-call print_date(model_time, str='model_to_dart:model model date')
-call print_time(model_time, str='model_to_dart:DART model time')
+call print_date(model_time, 'model_to_dart:model date')
+call print_time(model_time, 'model_to_dart:model time')
+call print_date(model_time, 'model_to_dart:model date',logfileunit)
+call print_time(model_time, 'model_to_dart:model time',logfileunit)
+
 call finalize_utilities()
 
 end program model_to_dart