From 80d33171b95dab84b59074a27362ded780430732 Mon Sep 17 00:00:00 2001 From: Sebastian Beyer Date: Mon, 27 Nov 2023 21:48:03 +0200 Subject: [PATCH] Multio: change some gridType metadataA Did this with Philip today. --- src/ifs_interface/iom.F90 | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/src/ifs_interface/iom.F90 b/src/ifs_interface/iom.F90 index 994da9a36..a63cb9343 100644 --- 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")