diff --git a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 index 3dc4cc7bdba3e4eb9994b2171b7e94057931a093..9cc90f2f164e70e3ddb79d796de8c82c2fe98024 100644 --- a/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 +++ b/src/LIB/SURCOUCHE/src/mode_io_write_nc4.f90 @@ -2858,7 +2858,7 @@ END SUBROUTINE IO_History_append_nc4 subroutine IO_Select_split_file( tpfile, tpfield, tpfileout, tpfieldout, kvertlevel, kzfile ) -use modd_field, only: NMNHDIM_LEVEL, NMNHDIM_LEVEL_W, NMNHDIM_NOTLISTED, NMNHDIM_UNKNOWN +use modd_field, only: NMNHDIM_LEVEL, NMNHDIM_LEVEL_W, NMNHDIM_NLWB, NMNHDIM_NSWB, NMNHDIM_NOTLISTED, NMNHDIM_UNKNOWN type(tfiledata), target, intent(in) :: tpfile class(tfieldmetadata), target, intent(in) :: tpfield @@ -2890,6 +2890,8 @@ if ( Present( kvertlevel ) ) then do jdim = 1, size(tpfieldout%ndimlist) if ( tpfieldout%ndimlist(jdim) == NMNHDIM_LEVEL & .or. tpfieldout%ndimlist(jdim) == NMNHDIM_LEVEL_W & + .or. tpfieldout%ndimlist(jdim) == NMNHDIM_NLWB & + .or. tpfieldout%ndimlist(jdim) == NMNHDIM_NSWB & .or. tpfieldout%ndimlist(jdim) == NMNHDIM_NOTLISTED ) then if ( jdim < size(tpfieldout%ndimlist) ) & tpfieldout%ndimlist(jdim:size(tpfieldout%ndimlist)-1) = tpfieldout%ndimlist(jdim+1:)