From 1c32155c5d0718a358c9d0314961d41e3b686d5b Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 6 Oct 2020 16:22:53 +0200
Subject: [PATCH] Philippe 06/10/2020: IO: bugfix: correct XSSERIES2 range (bug
introduced in commit 1dc08bf3a)
---
src/MNH/write_seriesn.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/MNH/write_seriesn.f90 b/src/MNH/write_seriesn.f90
index 7aecd501e..2cac51fbb 100644
--- a/src/MNH/write_seriesn.f90
+++ b/src/MNH/write_seriesn.f90
@@ -291,7 +291,7 @@ DEALLOCATE(ZVAR3D)
!
GICP=.TRUE. ; GJCP=.TRUE. ; GKCP=.FALSE.
CALL WRITE_DIACHRO( TPDIAFILE, 'ZTSERIES', 'CART', NSGRIDD2, tpsdates(1:nsnbstept), &
- XSSERIES2(1:1,1:1,1:1,1:NSNBSTEPT,:,:), &
+ XSSERIES2(1:1,1:1,1:IKMAX,1:NSNBSTEPT,:,:), &
CSTITLE2(:), CSUNIT2(:), CSCOMMENT2(:), &
OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = IKB, KKH = IKE )
--
GitLab