[Dart-dev] DART/branches Revision: 12909

[dart at ucar.edu]

nancy at ucar.edu
2018-10-24 09:37:44 -0600 (Wed, 24 Oct 2018)
520
get rid of compile errors.  this is an alternative
version of the prepbufr converter that is not finished
but is intended to work for prepbufr files which were
converted (by dss) to netcdf format instead of bufr.

we stopped working on it when we found out that the
netcdf version didn't have all the info we needed
to create dart obs_seq files - but dss said they
will add the fields we need so this may be a good
converter to use someday.

in the meantime make sure the repo version can at
least build without error.




Modified: DART/branches/rma_trunk/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90
===================================================================
--- DART/branches/rma_trunk/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90	2018-10-22 16:57:23 UTC (rev 12908)
+++ DART/branches/rma_trunk/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90	2018-10-24 15:37:44 UTC (rev 12909)
@@ -4,6 +4,14 @@
 !
 ! $Id$
 
+
+!! THIS PROGRAM IS NOT FINISHED!  there are observations available in
+!! netcdf format, but there were some missing fields that made completing
+!! this program impossible.  We believe that now the missing data might
+!! be added to the netcdf format files, so this could be finished.
+!! It's in the release as-is so if someone wants to try to complete it
+!! they have something to start from.
+
 program convert_pb_netcdf
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -371,13 +379,13 @@
 
 end subroutine look_up_grib_code
 
-subroutine look_up_message_type(msg_typ, obstype)
+subroutine look_up_message_type(msg_type, obstype)
 ! Find observation type from 
 ! http://www.emc.ncep.noaa.gov/mmb/data_processing/prepbufr.doc/table_4.htm
- character(len=6), intent(in)  :: msg_typ 
+ character(len=6), intent(in)  :: msg_type
  character(len=*), intent(out) :: obstype 
 
-select case (msg_typ)
+select case (msg_type)
   case ('ADPUPA')
     obstype = 'RADIOSONDE'   ! FIXME: DROPSONDE, too.
   case ('AIRCAR')
@@ -418,6 +426,7 @@
         case (12)
            dart_obs_type = RADIOSONDE_TEMPERATURE
         case default
+           dart_obs_type = -1
       end select
   case ('AIRCAR')
   case ('AIRCFT')