Philippe 03/02/2023: bugfix: integer arrays with up to 4 dimensions can be...

Philippe 03/02/2023: bugfix: integer arrays with up to 4 dimensions can be written (adapt check condition)

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 )