[cdftools] 198/228: JMM : add more comment in case of error in getatt change format in cdfsigtrp for big config

[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 d3970908bfa3e1bd7029b799abcd655daaf424b7
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Wed Feb 20 10:32:16 2013 +0000

    JMM : add more comment in case of error in getatt
          change format in cdfsigtrp for big config
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@646 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfio.f90     | 2 ++
 cdfsigtrp.f90 | 8 ++++----
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/cdfio.f90 b/cdfio.f90
index b00e0d5..d255d3d 100644
--- a/cdfio.f90
+++ b/cdfio.f90
@@ -588,6 +588,8 @@ CONTAINS
     IF ( istatus /= NF90_NOERR ) THEN
        PRINT *,' getatt problem :',NF90_STRERROR(istatus)
        PRINT *,' attribute :', TRIM(cdatt)
+       PRINT *,' variable  :', TRIM(cdvar)
+       PRINT *,' file      :', TRIM(cdfile)
        PRINT *,' return default 0 '
        getatt=0.
     ENDIF
diff --git a/cdfsigtrp.f90 b/cdfsigtrp.f90
index 10237e9..e298afa 100644
--- a/cdfsigtrp.f90
+++ b/cdfsigtrp.f90
@@ -886,10 +886,10 @@ CONTAINS
 
       INTEGER(KIND=4)             :: ji, jk, jiso, jbin
       !!----------------------------------------------------------------------
-      WRITE(cfmt_9000,'(a,i3,a)') '(i7,  ',npts,'f8.3)'
-      WRITE(cfmt_9001,'(a,i3,a)') '(i7,  ',npts,'f8.0)'
-      WRITE(cfmt_9002,'(a,i3,a)') '(f7.3,',npts,'f8.0)'
-      WRITE(cfmt_9003,'(a,i3,a)') '(f7.3,',npts,'f8.3)'
+      WRITE(cfmt_9000,'(a,i4,a)') '(i7,  ',npts,'f8.3)'
+      WRITE(cfmt_9001,'(a,i4,a)') '(i7,  ',npts,'f8.0)'
+      WRITE(cfmt_9002,'(a,i4,a)') '(f7.3,',npts,'f8.0)'
+      WRITE(cfmt_9003,'(a,i4,a)') '(f7.3,',npts,'f8.3)'
       PRINT *,' T (deg C)' 
       DO jk=1,nk
          PRINT cfmt_9000, 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