add ops code to include mtgirs for cx and varobs files

Author: stemiglio

deps/ops/CMakeLists.txt

@@ -20,7 +20,6 @@ set(OPS_SOURCE_FILES
   code/OpsMod_AirQuality/OpsMod_AirQuality.f90
   code/OpsMod_Argument/OpsMod_Argument.f90
   code/OpsMod_CXInfo/OpsMod_CXInfo.f90
-  code/OpsMod_Control/OpsMod_Control.f90
   code/OpsMod_DateTime/OpsMod_DateTime.f90
   code/OpsMod_GatherSpread/OpsMod_GatherSpread.F90
   code/OpsMod_HorizontalInterp/OpsMod_HorizontalInterp.f90
@@ -88,6 +87,7 @@ set(OPS_SOURCE_FILES
   stubs/OpsMod_Varobs/OpsMod_Varobs.f90
   stubs/Ops_SatRad_Info/OpsMod_SatRad_RTmodel.f90
   stubs/Ops_SatRad_SetUp/OpsMod_SatRad_SetUp.f90
+  stubs/OpsMod_Control/OpsMod_Control.f90
 )
 
 # Intel inserts lines in the source during pre-processing that contain the source file path, if the pathname

…sMod_Control/OpsFn_ModelRuntoModelId.inc …sMod_Control/OpsFn_ModelRuntoModelId.incdeps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc renamed to deps/ops/stubs/OpsMod_Control/OpsFn_ModelRuntoModelId.inc deps/ops/code/OpsMod_Control/OpsFn_ModelRuntoModelId.inc renamed to deps/ops/stubs/OpsMod_Control/OpsFn_ModelRuntoModelId.inc

@@ -102,6 +102,7 @@ Using(ObsGroupHIRAS) = ops_env_is_true ("OPS_HIRAS")
 Using(ObsGroupOceanWinds) = ops_env_is_true ("OPS_OCEANWINDS")
 Using(ObsGroupGIIRSLW) = ops_env_is_true ("OPS_GIIRSLW")
 Using(ObsGroupGIIRSMW) = ops_env_is_true ("OPS_GIIRSMW")
+Using(ObsGroupMTGIRS) = ops_env_is_true ("OPS_MTGIRS")
 
 ALLOCATE (obs_group_list(COUNT (using)))
 obs_group_list = IMDI

…s/code/OpsMod_Control/OpsMod_Control.f90 …/stubs/OpsMod_Control/OpsMod_Control.f90deps/ops/code/OpsMod_Control/OpsMod_Control.f90 renamed to deps/ops/stubs/OpsMod_Control/OpsMod_Control.f90 deps/ops/code/OpsMod_Control/OpsMod_Control.f90 renamed to deps/ops/stubs/OpsMod_Control/OpsMod_Control.f90

@@ -177,6 +177,15 @@ SELECT CASE (ObsGroup)
     IF (.NOT. RTTOV_CloudSwitch) THEN
       Varfields(13:14) = (/Varfield_cloudtopp, Varfield_cloudfrac/)
     END IF
+  CASE (ObsGroupMTGIRS)
+    Varfields(1:12) = (/Varfield_tskin,Varfield_tcozone,Varfield_satzenith, &
+                        Varfield_surface,Varfield_stratt,Varfield_satid, &
+                        Varfield_numchans,Varfield_channum,Varfield_britemp, &
+                        Varfield_emissivity,Varfield_solzenith, &
+                        Varfield_qcinfo/)
+    IF (.NOT. RTTOV_CloudSwitch) THEN
+      Varfields(13:14) = (/Varfield_cloudtopp, Varfield_cloudfrac/)
+    END IF
   CASE (ObsGroupIN3DIClr)
     Varfields(1:12) = (/Varfield_britemp,Varfield_satid,Varfield_satzenith, &
                         Varfield_solzenith,Varfield_tskin,Varfield_tcozone, &

…code/OpsMod_Control/Ops_GetModelType.inc …tubs/OpsMod_Control/Ops_GetModelType.incdeps/ops/code/OpsMod_Control/Ops_GetModelType.inc renamed to deps/ops/stubs/OpsMod_Control/Ops_GetModelType.inc deps/ops/code/OpsMod_Control/Ops_GetModelType.inc renamed to deps/ops/stubs/OpsMod_Control/Ops_GetModelType.inc

@@ -74,7 +74,8 @@ USE OpsMod_ObsGroupInfo, ONLY: &
     ObsGroupHIRAS,             &
     ObsGroupOceanWinds,        &
     ObsGroupGIIRSLW,           &
-    ObsGroupGIIRSMW
+    ObsGroupGIIRSMW,           &
+    ObsGroupMTGIRS
 
 USE OpsMod_ObsInfo, ONLY: &
     OB_type
@@ -166,6 +167,11 @@ SELECT CASE (Observations % header % ObsGroup)
     ObsLevelType = 0.0
     NumLevelLevs = 1
 
+  CASE (ObsGroupMTGIRS)
+
+    ObsLevelType = 0.0
+    NumLevelLevs = 1
+
   CASE (ObsGroupAMSUB)
 
     ObsLevelType = 0.0