[Dart-dev] [5927] DART/trunk/observations/MADIS/convert_madis_marine.f90: fix the test for a missing elevation in the marine data;

[nancy at ucar.edu]

Revision: 5927
Author:   nancy
Date:     2012-11-20 11:27:56 -0700 (Tue, 20 Nov 2012)
Log Message:
-----------
fix the test for a missing elevation in the marine data;
should have been comparing to elev_miss all along instead
of missing_r8 which is a dart-specific value and not what
is encoded in the input netcdf files.

Modified Paths:
--------------
    DART/trunk/observations/MADIS/convert_madis_marine.f90

-------------- next part --------------
Modified: DART/trunk/observations/MADIS/convert_madis_marine.f90
===================================================================
--- DART/trunk/observations/MADIS/convert_madis_marine.f90	2012-11-19 23:39:10 UTC (rev 5926)
+++ DART/trunk/observations/MADIS/convert_madis_marine.f90	2012-11-20 18:27:56 UTC (rev 5927)
@@ -207,7 +207,7 @@
         tobs(n) == tobu(i) ) cycle obsloop
   end do
 
-  if ( elev(n) /= missing_r8 ) then
+  if ( elev(n) /= elev_miss ) then
     palt = pres_alt_to_pres(elev(n)) * 0.01_r8
   else
     palt = pres_alt_to_pres(def_elev) * 0.01_r8