[cdftools] 76/228: JMM restore 80 char length for comment variable in dimg/bimg files

[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 3c67ea8fe2610e4c3933dad4cad454aeed453bc9
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Tue Nov 23 12:57:24 2010 +0000

    JMM restore 80 char length for comment variable in dimg/bimg files
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@352 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfconvert.f90      | 2 +-
 coordinates2hgr.f90 | 2 +-
 coordinates2zgr.f90 | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cdfconvert.f90 b/cdfconvert.f90
index c90e69f..5bcfe67 100644
--- a/cdfconvert.f90
+++ b/cdfconvert.f90
@@ -38,7 +38,7 @@ PROGRAM cdfconvert
   INTEGER   :: numu=10, numv=11, numt=12,  nums=14, num2d=15, numssh=16, numuu=17, numvv=18
   CHARACTER(LEN=256) :: cdimgu, cdimgv,cdimgt, cdimgs, cdimg2d !: file name dimg
   CHARACTER(LEN=256) :: cdimguu, cdimgvv, cdimgssh             !: file name dimg (optional)
-  CHARACTER(LEN=256) :: cheader
+  CHARACTER(LEN=80) :: cheader
   CHARACTER(LEN=4) :: cver
   REAL(KIND=4) :: x1,y1, dx,dy, spval
   LOGICAL :: lexist
diff --git a/coordinates2hgr.f90 b/coordinates2hgr.f90
index e285096..068825b 100644
--- a/coordinates2hgr.f90
+++ b/coordinates2hgr.f90
@@ -25,7 +25,7 @@ PROGRAM coordinates2hgr
   REAL(wp) :: zjpiglo, zjpjglo, znbsel, zrecl8, ztimm8
   REAL(wp) :: znt, zdim, xx1, yy1, ddx, ddy, sspval
 
-  CHARACTER(256) :: cltextco
+  CHARACTER(80) :: cltextco
   INTEGER(4) :: numcoo, nummsh
   INTEGER(4) :: nrecl8
   INTEGER(4) :: ngrid
diff --git a/coordinates2zgr.f90 b/coordinates2zgr.f90
index 67024bb..a401122 100644
--- a/coordinates2zgr.f90
+++ b/coordinates2zgr.f90
@@ -25,7 +25,7 @@ PROGRAM coordinates2zgr
   REAL(wp) :: zjpiglo, zjpjglo, znbsel, zrecl8, ztimm8
   REAL(wp) :: znt, zdim, xx1, yy1, ddx, ddy, sspval
 
-  CHARACTER(256) :: cltextco
+  CHARACTER(80) :: cltextco
   INTEGER(4) :: numcoo, nummsh, numbat
   INTEGER(4) :: nrecl8
   INTEGER(4) :: ngrid

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