From 9499537fc48ef9ca1f26e5a4c852ee29351bd5e3 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 22 May 2024 14:04:24 +0200
Subject: [PATCH] Philippe 22/05/2024: outputs: fix for managements of
coordinates of 1D fields
---
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 7cda6cf62..ee606f88a 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -4520,6 +4520,7 @@ NDIMS: SELECT CASE (TPFIELD%NDIMS)
IF ( TPBOX%CNAME /= CMAINDOMAINNAME ) CALL IO_Dim_main_to_box( TZFIELDMD )
CALL IO_Dim_box_bounds( TPBOX, TZFIELDMD, KIINF=IIINF, KISUP=IISUP )
+ CALL IO_Box_coords_enable( TZFIELDMD, TPBOX )
CASE ( 'YY' )
! Modify ndimlist except for main domain
@@ -4528,6 +4529,7 @@ NDIMS: SELECT CASE (TPFIELD%NDIMS)
! Use IINF/IISUP for KJINF/KJSUP dummy arguments because if 'YY', there is only 1 dim (Y-direction)
! Compute the Y-bounds (KJINF/KJSUP) and store them in the 1st dimension (IINF/IISUP)
CALL IO_Dim_box_bounds( TPBOX, TZFIELDMD, KJINF=IIINF, KJSUP=IISUP )
+ CALL IO_Box_coords_enable( TZFIELDMD, TPBOX )
CASE ( 'ZZ' )
! Modify ndimlist except for main domain
@@ -4536,6 +4538,7 @@ NDIMS: SELECT CASE (TPFIELD%NDIMS)
! Use IINF/IISUP for KKINF/KKSUP dummy arguments because if 'ZZ', there is only 1 dim (Z-direction)
! Compute the Z-bounds (KKINF/KKSUP) and store them in the 1st dimension (IINF/IISUP)
CALL IO_Dim_box_bounds( TPBOX, TZFIELDMD, KKINF=IIINF, KKSUP=IISUP )
+ CALL IO_Box_coords_enable( TZFIELDMD, TPBOX )
CASE DEFAULT
!Nothing to do
--
GitLab