[Dart-dev] [5764] DART/branches/development/obs_sequence/obs_sequence_tool.f90: added a call to print_time (and print_date if using the

[nancy at ucar.edu]

Revision: 5764
Author:   nancy
Date:     2012-06-12 13:29:25 -0600 (Tue, 12 Jun 2012)
Log Message:
-----------
added a call to print_time (and print_date if using the
gregorian cal) if you are setting the first or last times
in the namelist when processing obs_seq files.  (the existing
printout contains the actual times of the first and last
obs, but not what the allowed time window was.)  also changed
'timestamp' to 'obs time' in the messages to be more clear.

Modified Paths:
--------------
    DART/branches/development/obs_sequence/obs_sequence_tool.f90

-------------- next part --------------
Modified: DART/branches/development/obs_sequence/obs_sequence_tool.f90
===================================================================
--- DART/branches/development/obs_sequence/obs_sequence_tool.f90	2012-06-12 19:12:12 UTC (rev 5763)
+++ DART/branches/development/obs_sequence/obs_sequence_tool.f90	2012-06-12 19:29:25 UTC (rev 5764)
@@ -361,6 +361,18 @@
 else
    trim_last = .false.
 endif
+
+if (trim_first) then
+   call print_time(first_obs_time,    'Excluding observations before: ')
+   if (gregorian_cal) &
+      call print_date(first_obs_time, '       which is Gregorian day: ')
+endif
+if (trim_last) then
+   call print_time(last_obs_time,     'Excluding observations  after: ')
+   if (gregorian_cal) &
+      call print_date(last_obs_time,  '       which is Gregorian day: ')
+endif
+
 if (trim_first .and. trim_last) then
    if (first_obs_time > last_obs_time) then
       call error_handler(E_ERR,'obs_sequence_tool', 'first time cannot be later than last time', &
@@ -1184,10 +1196,9 @@
 is_this_last = .false.
 
 call get_obs_def(obs, this_obs_def)
-call print_time(get_obs_def_time(this_obs_def), ' First timestamp: ')
-if (gregorian_cal) then
+call print_time(get_obs_def_time(this_obs_def),    '  First obs time: ')
+if (gregorian_cal) &
    call print_date(get_obs_def_time(this_obs_def), '   Gregorian day: ')
-endif
 
 ObsLoop : do while ( .not. is_this_last)
 
@@ -1205,10 +1216,9 @@
    if (.not. is_this_last) then 
       obs = next_obs
    else
-      call print_time(get_obs_def_time(this_obs_def), '  Last timestamp: ')
-      if (gregorian_cal) then
+      call print_time(get_obs_def_time(this_obs_def),    '   Last obs time: ')
+      if (gregorian_cal) &
          call print_date(get_obs_def_time(this_obs_def), '   Gregorian day: ')
-      endif
    endif
 
 enddo ObsLoop