Merge HAFS GSI changes with latest GSI dev branch

hafs-community · Aug 28, 2023 · 6e0da83 · 6e0da83
1 parent 78872ad
commit 6e0da83
Show file tree

Hide file tree

Showing 7 changed files with 507 additions and 86 deletions.
diff --git a/src/gsi/gsi_obOperTypeManager.F90 b/src/gsi/gsi_obOperTypeManager.F90
@@ -276,18 +276,20 @@ function dtype2index_(dtype) result(index_)
     case("ompstc8"); index_= iobOper_oz
     case("ompsnp" ); index_= iobOper_oz
     case("ompsnm" ); index_= iobOper_oz
+    case("omieff"   ); index_= iobOper_oz
+    case("tomseff"  ); index_= iobOper_oz
+    case("ompsnmeff"); index_= iobOper_oz
 
   case("o3l"    ,"[o3loper]"    ); index_= iobOper_o3l
     case("o3lev"    ); index_= iobOper_o3l
     case("mls20"    ); index_= iobOper_o3l
     case("mls22"    ); index_= iobOper_o3l
     case("mls30"    ); index_= iobOper_o3l
     case("mls55"    ); index_= iobOper_o3l
-    case("omieff"   ); index_= iobOper_o3l
-    case("tomseff"  ); index_= iobOper_o3l
+    case("ompslp"   ); index_= iobOper_o3l
     case("ompslpuv" ); index_= iobOper_o3l
     case("ompslpvis"); index_= iobOper_o3l
-    case("ompslp"   ); index_= iobOper_o3l
+    case("ompslpnc" ); index_= iobOper_o3l
 
   case("gpsbend","[gpsbendoper]"); index_= iobOper_gpsbend
     case("gps_bnd"); index_= iobOper_gpsbend