[Dart-dev] DART/branches Revision: 12876

[dart at ucar.edu]

thoar at ucar.edu
2018-10-02 12:42:13 -0600 (Tue, 02 Oct 2018)
35
Fixed syntax so that it compiles.




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-02 18:40:30 UTC (rev 12875)
+++ DART/branches/rma_trunk/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90	2018-10-02 18:42:13 UTC (rev 12876)
@@ -399,7 +399,7 @@
   case ('QKSWND')
     obstype = 'QKSWND'
   case default
-    var_type = 'UNKNOWN'
+    obstype = 'UNKNOWN'
 end select
 
 end subroutine look_up_message_type
@@ -409,8 +409,8 @@
  integer,          intent(in)  :: grib_type
  integer,          intent(out) :: dart_obs_type
 
-select case (msgtype)
-  case 'ADPUPA'
+select case (msg_type)
+  case ('ADPUPA')
      ! t, q, p, u, v, sst
      select case(grib_type)
         case (11)
@@ -419,25 +419,25 @@
            dart_obs_type = RADIOSONDE_TEMPERATURE
         case default
       end select
-  case 'AIRCAR'
-  case 'AIRCFT'
-  case 'SATWND'
-  case 'PROFLR'
-  case 'VADWND'
-  case 'SATEMP'
-  case 'ADPSFC'
-  case 'SFCSHP'
-  case 'SFCBOG'
-  case 'SPSSMI'
-  case 'SYNDAT'
-  case 'ERS1DA'
-  case 'GOESND'
-  case 'QKSWND'
-  case 'MSONET'
-  case 'GPSIPW'
-  case 'RASSDA'
-  case 'WDSATR'
-  case 'ASCATW'
+  case ('AIRCAR')
+  case ('AIRCFT')
+  case ('SATWND')
+  case ('PROFLR')
+  case ('VADWND')
+  case ('SATEMP')
+  case ('ADPSFC')
+  case ('SFCSHP')
+  case ('SFCBOG')
+  case ('SPSSMI')
+  case ('SYNDAT')
+  case ('ERS1DA')
+  case ('GOESND')
+  case ('QKSWND')
+  case ('MSONET')
+  case ('GPSIPW')
+  case ('RASSDA')
+  case ('WDSATR')
+  case ('ASCATW')
   case default
      print *, 'unknown message type: '//trim(msg_type)
 end select