[cdftools] 86/228: JMM : change i3 format output to I4 for orca12 !

[Alastair McKinstry]

This is an automated email from the git hooks/post-receive script.

mckinstry pushed a commit to branch master
in repository cdftools.

commit 3d64d8dd664de92b5cf82c8af34c1272d79e7e02
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Wed Mar 30 16:44:14 2011 +0000

    JMM : change i3 format output to I4 for orca12 !
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@424 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfsigtrp.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cdfsigtrp.f90 b/cdfsigtrp.f90
index fdc35ff..36059e2 100644
--- a/cdfsigtrp.f90
+++ b/cdfsigtrp.f90
@@ -320,10 +320,10 @@ PROGRAM cdfsigtrp
 
      ! Some control print 
      IF ( l_print ) THEN
-        WRITE(cfor9000,'(a,i3,a)') '(i7,',npts,'f8.3)'
-        WRITE(cfor9001,'(a,i3,a)') '(i7,',npts,'f8.0)'
-        WRITE(cfor9002,'(a,i3,a)') '(f7.3,',npts,'f8.0)'
-        WRITE(cfor9003,'(a,i3,a)') '(f7.3,',npts,'f8.3)'
+        WRITE(cfor9000,'(a,i4,a)') '(i7,',npts,'f8.3)'
+        WRITE(cfor9001,'(a,i4,a)') '(i7,',npts,'f8.0)'
+        WRITE(cfor9002,'(a,i4,a)') '(f7.3,',npts,'f8.0)'
+        WRITE(cfor9003,'(a,i4,a)') '(f7.3,',npts,'f8.3)'
         PRINT *,' T (deg C)' 
         DO jk=1,nk
            PRINT cfor9000, jk,  (zt(ji,jk),ji=1,npts)

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git