diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 index 7cda6cf62c7a6cf6e61b7ade694a93aaa338c94d..ee606f88a6f2c82b922f7914bc805e06cbaf04cf 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