[Dart-dev] [3686] DART/trunk/ncep_obs/real_obs_mod.f90: An update from Ryan; if surface ship vertical location is huge

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20081205/b0b8913f/attachment.html
-------------- next part --------------
Modified: DART/trunk/ncep_obs/real_obs_mod.f90
===================================================================
--- DART/trunk/ncep_obs/real_obs_mod.f90	2008-12-04 21:58:06 UTC (rev 3685)
+++ DART/trunk/ncep_obs/real_obs_mod.f90	2008-12-05 15:19:53 UTC (rev 3686)
@@ -361,7 +361,11 @@
    ! set vertical coordinate for surface observations
    if (subset == 'ADPSFC' .or. subset == 'SFCSHP') then
      vloc = lev
-     if ( subset == 'SFCSHP' ) vloc = 0.0_r8
+     ! some obs have elevation of 1e12 - toss those.
+     if ( subset == 'SFCSHP' .and. vloc > 4000.0_r8) then
+        iskip = iskip + 1
+        cycle obsloop
+     endif
      which_vert = VERTISSURFACE
    endif