From 13e6d9cccd6a0d4784a35477e59270a7b4dc46b6 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Fri, 17 Jun 2016 09:46:46 +0200
Subject: [PATCH] Philippe 17/06/2016: minor bug correction: print only
meaningful values for NISL/H and NJSLICEL/H
---
src/MNH/ini_seriesn.f90 | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src/MNH/ini_seriesn.f90 b/src/MNH/ini_seriesn.f90
index 964e7c6c9..e28bca423 100644
--- a/src/MNH/ini_seriesn.f90
+++ b/src/MNH/ini_seriesn.f90
@@ -42,6 +42,7 @@
!! -------------
!! Original 4/03/2002
!! Oct. 2011 : (P.Le Moigne) Surface series
+!! June 2016: P. Wautelet: corrected writes
!!
!-------------------------------------------------------------------------------
!
@@ -296,9 +297,9 @@ WRITE(ILUOUT,*) 'NIBOXL=',NIBOXL,' NJBOXL=',NJBOXL, &
' NIBOXH=',NIBOXH,' NJBOXH=',NJBOXH
WRITE(ILUOUT,*) 'NIBOXSL=',NIBOXSL,' NJBOXSL=',NJBOXSL, &
' NIBOXSH=',NIBOXSH,' NJBOXSH=',NJBOXSH
-WRITE(ILUOUT,*) 'NJSLICEL=', NJSLICEL(:),' NJSLICEH=',NJSLICEH(:)
-WRITE(ILUOUT,*) 'NISL=',NISL(:),' NJSLICESL=',NJSLICESL(:), &
- ' NISH=',NISH(:),' NJSLICESH=',NJSLICESH(:)
+WRITE(ILUOUT,*) 'NJSLICEL=', NJSLICEL(1:NBJSLICE),' NJSLICEH=',NJSLICEH(1:NBJSLICE)
+WRITE(ILUOUT,*) 'NISL=',NISL(1:NBJSLICE),' NJSLICESL=',NJSLICESL(1:NBJSLICE), &
+ ' NISH=',NISH(1:NBJSLICE),' NJSLICESH=',NJSLICESH(1:NBJSLICE)
WRITE(ILUOUT,*) 'IIDIM1=',IIDIM1,' NBJSLICE=',NBJSLICE
!
!-------------------------------------------------------------------------------
--
GitLab