[Dart-dev] [7142] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: make the logic actually correct.

nancy at ucar.edu nancy at ucar.edu
Tue Aug 26 10:45:59 MDT 2014


Revision: 7142
Author:   nancy
Date:     2014-08-26 10:45:59 -0600 (Tue, 26 Aug 2014)
Log Message:
-----------
make the logic actually correct.  if either num assim OR num eval
are > 0, print. both have to be 0 to skip the log and stdout messages.

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 16:41:06 UTC (rev 7141)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2014-08-26 16:45:59 UTC (rev 7142)
@@ -631,7 +631,7 @@
    num_kind_evaluate = i
 end do
 
-if (do_output() .and. num_kind_assimilate > 0 .and. num_kind_evaluate > 0) then
+if (do_output() .and. (num_kind_assimilate > 0 .or. num_kind_evaluate > 0)) then
    write(*, *) '------------------------------------------------------'
    write(*, *)
 


More information about the Dart-dev mailing list