Philippe 17/06/2016: minor bug correction: print only meaningful values for NISL...
authorPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 07:46:46 +0000 (09:46 +0200)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Fri, 17 Jun 2016 07:46:46 +0000 (09:46 +0200)
src/MNH/ini_seriesn.f90

index 964e7c6..e28bca4 100644 (file)
@@ -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
 !
 !-------------------------------------------------------------------------------