From 0ccea86fa09abb0e0fae3f8f8642765daf4e1b7a Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 27 May 2021 09:23:52 +0200
Subject: [PATCH] Philippe 27/05/2021: IO: allow TYPEINT for 4D arrays in
IO_Field_create
---
src/LIB/SURCOUCHE/src/mode_io_field_write.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io_field_write.f90 b/src/LIB/SURCOUCHE/src/mode_io_field_write.f90
index 4e467082d..24c12e997 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
--
GitLab