[Dart-dev] [7141] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: don' t print the following lines if the number of types of

[nancy at ucar.edu]

Revision: 7141
Author:   nancy
Date:     2014-08-26 10:41:06 -0600 (Tue, 26 Aug 2014)
Log Message:
-----------
don't print the following lines if the number of types of 
obs to assimilate and evaluate are both 0:  
'-------------- ASSIMILATE_THESE_OBS_TYPES --------------'
'-------------- EVALUATE_THESE_OBS_TYPES --------------'
this will be true for most utility programs but not for
filter, so for 99% of the users this will not change their 
output.  but it will remove misleading output for programs
which aren't doing an assimilation.

Modified Paths:
--------------
    DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2014-08-26 15:28:40 UTC (rev 7140)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2014-08-26 16:41:06 UTC (rev 7141)
@@ -631,7 +631,7 @@
    num_kind_evaluate = i
 end do
 
-if (do_output()) then
+if (do_output() .and. num_kind_assimilate > 0 .and. num_kind_evaluate > 0) then
    write(*, *) '------------------------------------------------------'
    write(*, *)