[Dart-dev] [4394] DART/trunk/observations/MADIS: Fix a bug in the rawin converter - was not setting 'first_obs' in either case,

[nancy at ucar.edu]

Revision: 4394
Author:   nancy
Date:     2010-06-28 09:51:10 -0600 (Mon, 28 Jun 2010)
Log Message:
-----------
Fix a bug in the rawin converter - was not setting 'first_obs' in either case,
but it showed up as a bug when trying to add observations to a preexisting seq
file.   The metar change is just to remove warnings about unused variables.

Modified Paths:
--------------
    DART/trunk/observations/MADIS/convert_madis_metar.f90
    DART/trunk/observations/MADIS/convert_madis_rawin.f90

-------------- next part --------------
Modified: DART/trunk/observations/MADIS/convert_madis_metar.f90
===================================================================
--- DART/trunk/observations/MADIS/convert_madis_metar.f90	2010-06-22 19:44:35 UTC (rev 4393)
+++ DART/trunk/observations/MADIS/convert_madis_metar.f90	2010-06-28 15:51:10 UTC (rev 4394)
@@ -82,8 +82,7 @@
 
 character (len=129) :: meta_data
 character (len=5)   :: rtype
-integer  :: ncid, nobs, nvars, n, i, oday, osec, &
-            dsec, nused, iyear, imonth, iday, ihour, imin, isec
+integer  :: ncid, nobs, nvars, n, i, oday, osec, nused
 logical  :: file_exist, first_obs
 real(r8) :: alti_miss, tair_miss, tdew_miss, wdir_miss, wspd_miss, uwnd, &
             vwnd, palt, qobs, qsat, rh, oerr, pres, qerr, qc

Modified: DART/trunk/observations/MADIS/convert_madis_rawin.f90
===================================================================
--- DART/trunk/observations/MADIS/convert_madis_rawin.f90	2010-06-22 19:44:35 UTC (rev 4393)
+++ DART/trunk/observations/MADIS/convert_madis_rawin.f90	2010-06-28 15:51:10 UTC (rev 4394)
@@ -86,7 +86,7 @@
 
 logical :: fexist, sigwnd, sigtmp, first_obs
 
-real(r8) :: obswindow, otime, lat, lon, elev, uwnd, vwnd, qobs, qsat, dptk, oerr, &
+real(r8) :: otime, lat, lon, elev, uwnd, vwnd, qobs, qsat, dptk, oerr, &
             pres_miss, wdir_miss, wspd_miss, tair_miss, tdew_miss, prespa, & 
             qc, altim, rh, qerr  ! , time_miss
 real(r8), allocatable :: latu(:), lonu(:)
@@ -116,7 +116,9 @@
 call set_calendar_type(GREGORIAN)
 comp_day0 = set_date(1970, 1, 1, 0, 0, 0)
 
+first_obs = .true.
 
+
 call nc_check( nf90_open(rawin_in_file, nf90_nowrite, ncid), &
                'convert_madis_rawin', 'opening file '//trim(rawin_in_file))