[Dart-dev] [3867] DART/trunk/observations/MADIS: Fix the array being compared to when checking for previously used

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090508/11f0d736/attachment.html 
-------------- next part --------------
Modified: DART/trunk/observations/MADIS/convert_madis_marine.f90
===================================================================
--- DART/trunk/observations/MADIS/convert_madis_marine.f90	2009-05-07 21:39:52 UTC (rev 3866)
+++ DART/trunk/observations/MADIS/convert_madis_marine.f90	2009-05-08 13:48:56 UTC (rev 3867)
@@ -175,7 +175,7 @@
   if ( lon(n) < 0.0_r8 )  lon(n) = lon(n) + 360.0_r8
 
   do i = 1, nused
-    if ( lon(n) == lon(i) .and. lat(n) == lat(i) ) cycle obsloop
+    if ( lon(n) == lonu(i) .and. lat(n) == latu(i) ) cycle obsloop
   end do
   qc = 1.0_r8  ;  
   if ( elev(n) /= missing_r8 ) then

Modified: DART/trunk/observations/MADIS/convert_madis_surface.f90
===================================================================
--- DART/trunk/observations/MADIS/convert_madis_surface.f90	2009-05-07 21:39:52 UTC (rev 3866)
+++ DART/trunk/observations/MADIS/convert_madis_surface.f90	2009-05-08 13:48:56 UTC (rev 3867)
@@ -156,7 +156,7 @@
 
   ! check to make sure this observation has not been used
   do i = 1, nused
-    if ( lon(n) == lon(i) .and. lat(n) == lat(i) ) cycle obsloop
+    if ( lon(n) == lonu(i) .and. lat(n) == latu(i) ) cycle obsloop
   end do
   qc = 1.0_r8
   palt = pres_alt_to_pres(elev(n)) * 0.01_r8