From 10707ac700640b01d2fa79dbaab14e8a02d85be6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 3 Feb 2023 13:30:41 +0100
Subject: [PATCH] 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 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/modd_field.f90 b/src/LIB/SURCOUCHE/src/modd_field.f90
index ae7d52add..4133b8d7b 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 )
--
GitLab