[Dart-dev] [5174] DART/trunk/assim_tools/assim_tools_mod.f90: same change as on kodiak branch:

[nancy at ucar.edu]

Revision: 5174
Author:   nancy
Date:     2011-09-02 12:47:13 -0600 (Fri, 02 Sep 2011)
Log Message:
-----------
same change as on kodiak branch:
The code to timestamp the 'processing N of M obs' was there
but commented out.  a while ago i added a way for this module
to know if the output_timestamps namelist variable from the 
filter namelist was on or off but never put in the logic  
to have it control timestamping each print msg.  this 
minor change fixes it so it does.

Modified Paths:
--------------
    DART/trunk/assim_tools/assim_tools_mod.f90

-------------- next part --------------
Modified: DART/trunk/assim_tools/assim_tools_mod.f90
===================================================================
--- DART/trunk/assim_tools/assim_tools_mod.f90	2011-09-02 18:46:08 UTC (rev 5173)
+++ DART/trunk/assim_tools/assim_tools_mod.f90	2011-09-02 18:47:13 UTC (rev 5174)
@@ -16,7 +16,7 @@
 use  utilities_mod,       only : file_exist, get_unit, check_namelist_read, do_output,    &
                                  find_namelist_in_file, register_module, error_handler,   &
                                  E_ERR, E_MSG, nmlfileunit, do_nml_file, do_nml_term,     &
-                                 open_file, close_file
+                                 open_file, close_file, timestamp
 use       sort_mod,       only : index_sort 
 use random_seq_mod,       only : random_seq_type, random_gaussian, init_random_seq,       &
                                  random_uniform
@@ -468,9 +468,11 @@
    if (nth_obs == 0) then
       write(errstring, '(A,1x,I8,1x,A,I8)') 'Processing observation ', i, &
                                          ' of ', obs_ens_handle%num_vars
-      call error_handler(E_MSG,'filter_assim',errstring)
-! or if you want timestamps:
-!     call timestamp(errstring, pos="debug")
+      if (print_timestamps == 0) then
+         call error_handler(E_MSG,'filter_assim',errstring)
+      else
+         call timestamp(trim(errstring), pos="brief")
+      endif
    endif
 
    ! Every pe has information about obs sequence