[Dart-dev] [6169] DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90: Changed if statement to allow a blank string to be equivalent to specifing 'null' in the namelist for assimilate_these_obs and evaluate_these_obs

[nancy at ucar.edu]

Revision: 6169
Author:   hkershaw
Date:     2013-05-28 16:35:54 -0600 (Tue, 28 May 2013)
Log Message:
-----------
Changed if statement to allow a blank string to be equivalent to specifing 'null' in the namelist for assimilate_these_obs and evaluate_these_obs

Modified Paths:
--------------
    DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90	2013-05-28 21:42:04 UTC (rev 6168)
+++ DART/branches/development/obs_kind/DEFAULT_obs_kind_mod.F90	2013-05-28 22:35:54 UTC (rev 6169)
@@ -531,13 +531,13 @@
 
 num_kind_assimilate = 0
 do i = 1, max_obs_specific
-   if(assimilate_these_obs_types(i) == 'null') exit
+   if(assimilate_these_obs_types(i) == 'null' .or. len_trim(assimilate_these_obs_types(i)) == 0 ) exit
    num_kind_assimilate = i
 end do
 
 num_kind_evaluate = 0
 do i = 1, max_obs_specific
-   if(evaluate_these_obs_types(i) == 'null') exit
+   if(evaluate_these_obs_types(i) == 'null' .or. len_trim(evaluate_these_obs_types(i)) == 0) exit
    num_kind_evaluate = i
 end do