Multio: change some gridType metadataA

Did this with Philip today.
FESOM · Nov 27, 2023 · 80d3317 · 80d3317
1 parent 8e2e588
commit 80d3317
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/ifs_interface/iom.F90 b/src/ifs_interface/iom.F90
@@ -368,14 +368,19 @@ SUBROUTINE iom_send_fesom_data(data)
             CALL ctl_stop('send_fesom_data: md%set_string(name) failed: ', multio_error_string(cerr))
         END IF
 
-        cerr = md%set_string("gridSubtype", data%gridType)
+        cerr = md%set_string("gridType", "unstructured_grid")
         IF (cerr /= MULTIO_SUCCESS) THEN
-            CALL ctl_stop('send_fesom_data: md%set_string(gridSubType) failed: ', multio_error_string(cerr))
+            CALL ctl_stop('send_fesom_data: md%set_string(gridType) failed: ', multio_error_string(cerr))
         END IF
 
-        cerr = md%set_string("gridType", "CORE2")
+        cerr = md%set_string("unstructuredGridType", "CORE2")
         IF (cerr /= MULTIO_SUCCESS) THEN
-            CALL ctl_stop('send_fesom_data: md%set_string(grid-type) failed: ', multio_error_string(cerr))
+            CALL ctl_stop('send_fesom_data: md%set_string(unstructuredGridType) failed: ', multio_error_string(cerr))
+        END IF
+
+        cerr = md%set_string("unstructuredGridSubtype", data%gridType(1:1))
+        IF (cerr /= MULTIO_SUCCESS) THEN
+            CALL ctl_stop('send_fesom_data: md%set_string(unstructuredGridSubtype) failed: ', multio_error_string(cerr))
         END IF
 
         cerr = md%set_string("operation", "average")