From 12d2a9448c7aef15e8f871a0ff1f69fd382620c4 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 16 Sep 2019 15:03:50 +0200
Subject: [PATCH] Philippe 16/09/2019: forgot to call
IO_Write_field_header_split_nc4 if GlobalArray is used
---
src/LIB/SURCOUCHE/src/fmwrit_ll.f90 | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90 b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
index cc6abe7de..cdabeba4f 100644
--- a/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
+++ b/src/LIB/SURCOUCHE/src/fmwrit_ll.f90
@@ -832,6 +832,11 @@ CONTAINS
CALL SECOND_MNH2(T1)
TIMEZ%T_WRIT3D_SEND=TIMEZ%T_WRIT3D_SEND + T1 - T0
!
+ ! Write the variable attributes in the non-split file
+ !
+ if ( tpfile%nmaster_rank==isp .and. gnc4 ) &
+ call IO_Write_field_header_split_nc4( tpfile, tpfield, size( pfield, 3 ) )
+ !
! write the data
!
ALLOCATE(ZSLICE_ll(0,0)) ! to avoid bug on test of size
--
GitLab