diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90
index ae7d52add273a00ede2800cd4c3abe4b4c9fb469..4133b8d7b91099d5e2c5ac72c59e0faa130fffe5 100644
--- a/src/LIB/SURCOUCHE/src/modd_field.f90
+++ b/src/LIB/SURCOUCHE/src/modd_field.f90
@@ -368,7 +368,7 @@ type(tfieldmetadata) function Fill_tfieldmetadata( cmnhname, cstdname, clongname
           call Print_msg( NVERB_ERROR, 'GEN', 'Fill_tfielddata', 'invalid value of ndims for variable ' &
                           // Trim( ymnhname ) // ' of type TYPELOG' )
       case ( TYPEINT )
-        if ( ndims < 0 .or. ndims > 3 )                                                                 &
+        if ( ndims < 0 .or. ndims > 4 )                                                                 &
           call Print_msg( NVERB_ERROR, 'GEN', 'Fill_tfielddata', 'invalid value of ndims for variable ' &
                           // Trim( ymnhname ) // ' of type TYPEINT' )
       case ( TYPEREAL )