[Dart-dev] DART/branches Revision: 12877

[dart at ucar.edu]

thoar at ucar.edu
2018-10-02 12:43:45 -0600 (Tue, 02 Oct 2018)
66
fixed syntax so it compiles. Bringing up-to-date with rma_trunk.




Index: DART/branches/rma_wrfHydro
===================================================================
--- DART/branches/rma_wrfHydro	2018-10-02 18:42:13 UTC (rev 12876)
+++ DART/branches/rma_wrfHydro	2018-10-02 18:43:45 UTC (rev 12877)

Property changes on: DART/branches/rma_wrfHydro
___________________________________________________________________
Modified: svn:mergeinfo
## -42,7 +42,7 ##
 /DART/branches/rma_sprint:8095-8166
 /DART/branches/rma_state_structure_test_dir:9472-9676
 /DART/branches/rma_state_structure_unit_test:9691-10268
-/DART/branches/rma_trunk:12581-12874
+/DART/branches/rma_trunk:12581-12876
 /DART/branches/rma_trunk_clamping:8786-8801
 /DART/branches/rma_trunk_filename:8011-8157
 /DART/branches/rma_trunk_get_state_fun:8568-8596
Index: DART/branches/rma_wrfHydro/observations/obs_converters/NCEP
===================================================================
--- DART/branches/rma_wrfHydro/observations/obs_converters/NCEP	2018-10-02 18:42:13 UTC (rev 12876)
+++ DART/branches/rma_wrfHydro/observations/obs_converters/NCEP	2018-10-02 18:43:45 UTC (rev 12877)

Property changes on: DART/branches/rma_wrfHydro/observations/obs_converters/NCEP
___________________________________________________________________
Modified: svn:mergeinfo
## -66,7 +66,7 ##
 /DART/branches/rma_state_structure_test_dir/observations/obs_converters/NCEP:9472-9676
 /DART/branches/rma_state_structure_unit_test/observations/NCEP:9691-10268
 /DART/branches/rma_state_structure_unit_test/observations/obs_converters/NCEP:9691-10268
-/DART/branches/rma_trunk/observations/obs_converters/NCEP:9634-9728,12581-12859
+/DART/branches/rma_trunk/observations/obs_converters/NCEP:9634-9728,12581-12876
 /DART/branches/rma_trunk_clamping/observations/NCEP:8786-8801
 /DART/branches/rma_trunk_clamping/observations/obs_converters/NCEP:8786-8801
 /DART/branches/rma_trunk_filename/observations/NCEP:8011-8157
Modified: DART/branches/rma_wrfHydro/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90
===================================================================
--- DART/branches/rma_wrfHydro/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90	2018-10-02 18:42:13 UTC (rev 12876)
+++ DART/branches/rma_wrfHydro/observations/obs_converters/NCEP/netcdf/convert_pb_netcdf.f90	2018-10-02 18:43:45 UTC (rev 12877)
@@ -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