update to allow for obstype names

Author: brettcandy

deps/ops/stubs/Ops_Constants/OpsMod_ObsTypes.f90

@@ -290,6 +290,10 @@ MODULE OpsMod_ObsTypes
 
 INTEGER, PARAMETER :: ObsTypeGIIRS        = 29400   ! => GIIRS
 
+INTEGER, PARAMETER :: ObsTypeAWS          = 29600   ! => Arctic weather satellite radiances
+ 
+INTEGER, PARAMETER :: ObsTypeMWSSG        = 29700   ! => EPSSG MWS radiances
+
 ! Aircraft data
 INTEGER, PARAMETER :: ObsTypeAmdar        = 30100  ! => Amdar
 INTEGER, PARAMETER :: ObsTypeAirep        = 30200  ! => airep

deps/ops/stubs/Ops_Constants/Ops_SubTypeNameToNum.inc

@@ -66,6 +66,8 @@ SELECT CASE (name)
     num = ObsTypeATOVS_G
   CASE ("ATOVSL")
     num = ObsTypeATOVS_L
+  CASE ("AWS")
+    num = ObsTypeAWS
   CASE ("TOVSG")
     num = ObsTypeTOVS_G
   CASE ("TOVSL")
@@ -202,6 +204,8 @@ SELECT CASE (name)
     num = ObsTypeMWRI
   CASE ("MWTS")
     num = ObsTypeMWSFY3
+  CASE ("MWSSG")
+    num = ObsTypeMWSSG
   CASE ("OCEANCOL")
     num = ObsTypeOceanColour
   CASE ("OCEANFB")

deps/ops/stubs/Ops_Constants/Ops_SubTypeNumToName.inc

@@ -67,6 +67,8 @@ SELECT CASE (num)
     name = "ATOVSG"
   CASE (ObsTypeATOVS_L)
     name = "ATOVSL"
+  CASE (ObsTypeAWS)
+    name = "AWS"
   CASE (ObsTypeTOVS_G)
     name = "TOVSG"
   CASE (ObsTypeTOVS_L)
@@ -203,6 +205,8 @@ SELECT CASE (num)
     name = "MWHS"
   CASE (ObsTypeMWRI)
     name = "MWRI"
+  CASE (ObsTypeMWSSG)
+    name = "MWSSG"
   CASE (ObsTypeOceanColour)
     name = "OCEANCOL"
   CASE (ObsTypeOceanFB)