diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 4e467082d9923068b982c5a07f8734fdce300d78..24c12e9975d2d6381b4a61a53498f0e98760f3d3 100644
--- a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
@@ -397,7 +397,7 @@ subroutine IO_Field_create( tpfile, tpfield )
 #endif
 
       case ( 4 ) NDIMS
-        if ( tzfield%ntype /= TYPEREAL ) then
+        if ( All( tzfield%ntype /= [ TYPEINT, TYPEREAL ] ) ) then
           call Print_msg( NVERB_ERROR, 'IO', 'IO_Field_create', Trim( tpfile%cname ) // ': ' &
                           // Trim( tzfield%cmnhname ) // ': invalid ntype for 4D field' )
           return