Skip to content
Snippets Groups Projects
Commit 1c32155c authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 06/10/2020: IO: bugfix: correct XSSERIES2 range (bug introduced in commit 1dc08bf3)

parent cbda2548
No related branches found
No related tags found
No related merge requests found
...@@ -291,7 +291,7 @@ DEALLOCATE(ZVAR3D) ...@@ -291,7 +291,7 @@ DEALLOCATE(ZVAR3D)
! !
GICP=.TRUE. ; GJCP=.TRUE. ; GKCP=.FALSE. GICP=.TRUE. ; GJCP=.TRUE. ; GKCP=.FALSE.
CALL WRITE_DIACHRO( TPDIAFILE, 'ZTSERIES', 'CART', NSGRIDD2, tpsdates(1:nsnbstept), & 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(:), & CSTITLE2(:), CSUNIT2(:), CSCOMMENT2(:), &
OICP = GICP, OJCP = GJCP, OKCP = GKCP, & OICP = GICP, OJCP = GJCP, OKCP = GKCP, &
KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = IKB, KKH = IKE ) KIL = 1, KIH = 1, KJL = 1, KJH = 1, KKL = IKB, KKH = IKE )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment