Philippe 22/05/2024: outputs: fix for managements of coordinates of 1D fields

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