From a593a050ba5165e30c50b713586a365765019456 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 10 Jan 2019 14:22:58 +0100
Subject: [PATCH] Philippe 10/01/2019: IO: bug: modify some metadata before
open calls
---
src/LIB/SURCOUCHE/src/mode_io.f90 | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/LIB/SURCOUCHE/src/mode_io.f90 b/src/LIB/SURCOUCHE/src/mode_io.f90
index 1a087fd50..930794b33 100644
--- a/src/LIB/SURCOUCHE/src/mode_io.f90
+++ b/src/LIB/SURCOUCHE/src/mode_io.f90
@@ -22,6 +22,7 @@
! Philippe Wautelet: 10/01/2019: use NEWUNIT argument of OPEN
! + move IOFREEFLU and IONEWFLU to mode_io_file_lfi.f90
! + move management of NNCID and NLFIFLU to the nc4 and lfi subroutines
+! Philippe Wautelet: 10/01/2019: bug: modify some metadata before open calls
!
MODULE MODE_IO_ll
@@ -613,6 +614,11 @@ CONTAINS
TZSPLITFILE%LMULTIMASTERS = .FALSE.
TZSPLITFILE%NSUBFILES_IOZ = 0
+ ! Must be done BEFORE the call to io_open_file_* because we need to read things in these subroutines
+ TZSPLITFILE%LOPENED = .TRUE.
+ TZSPLITFILE%NOPEN = TZSPLITFILE%NOPEN + 1
+ TZSPLITFILE%NOPEN_CURRENT = TZSPLITFILE%NOPEN_CURRENT + 1
+
#if defined(MNH_IOCDF4)
IF (TZSPLITFILE%CFORMAT=='NETCDF4' .OR. TZSPLITFILE%CFORMAT=='LFICDF4') THEN
IF (YACTION == 'READ') THEN
@@ -637,10 +643,6 @@ CONTAINS
END SELECT
ENDIF
!
- TZSPLITFILE%LOPENED = .TRUE.
- TZSPLITFILE%NOPEN = TZSPLITFILE%NOPEN + 1
- TZSPLITFILE%NOPEN_CURRENT = TZSPLITFILE%NOPEN_CURRENT + 1
- !
ENDDO
END IF
--
GitLab