[Dart-dev] [3427] DART/trunk/obs_sequence/obs_sequence_mod.f90: When computing what kinds are in an obs_sequence file,

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080611/38126056/attachment.html
-------------- next part --------------
Modified: DART/trunk/obs_sequence/obs_sequence_mod.f90
===================================================================
--- DART/trunk/obs_sequence/obs_sequence_mod.f90	2008-06-11 22:13:55 UTC (rev 3426)
+++ DART/trunk/obs_sequence/obs_sequence_mod.f90	2008-06-11 22:59:29 UTC (rev 3427)
@@ -1540,6 +1540,7 @@
    call get_obs_from_key(seq, i, obs)
    call get_obs_def(obs, obs_def)
    obs_kind_ind = get_obs_kind(obs_def)
+   if (obs_kind_ind < 0) cycle   ! ignore identity obs
    have(obs_kind_ind) = 1
 enddo