[cdftools] 193/228: JMM : fix from Erik Behrens in cdfbotpressure. Add him in the Licence for contribution

[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 07dd029c53b10e3081201074e8b684a9c6d9bd21
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Thu Feb 7 18:41:33 2013 +0000

    JMM : fix from Erik Behrens in cdfbotpressure. Add him in the  Licence for contribution
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@641 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 License/CDFTOOLSCeCILL.txt | 6 +++---
 cdfbotpressure.f90         | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/License/CDFTOOLSCeCILL.txt b/License/CDFTOOLSCeCILL.txt
index b41b1e8..640455a 100644
--- a/License/CDFTOOLSCeCILL.txt
+++ b/License/CDFTOOLSCeCILL.txt
@@ -2,9 +2,9 @@ The following licence information concerns ONLY the CDFTOOLS package
 =======================================================================
 
 Copyright � LEGI-MEOM (Jean-Marc.Molines at legi.grenoble-inp.fr )
-Contributors : M. Balmaseda, F. Castruccio,  J. Deshayes, N. Djath, 
-C. Dufour, R. Dussin, N. Ferry, F. Hernandez, M. Juza, A. Lecointre,
-P. Mathiot, A. Melet, G. Moreau, A.M. Treguier
+Contributors : M. Balmaseda, E. Behrens, F. Castruccio,  J. Deshayes,
+N. Djath, C. Dufour, R. Dussin, N. Ferry, F. Hernandez, M. Juza,
+A. Lecointre, P. Mathiot, A. Melet, G. Moreau, A.M. Treguier
 
 This software is a computer program for analysis of NEMO model output 
 produced in the frame of the DRAKKAR project. It is designed  for the
diff --git a/cdfbotpressure.f90 b/cdfbotpressure.f90
index 4a50025..a2943da 100644
--- a/cdfbotpressure.f90
+++ b/cdfbotpressure.f90
@@ -168,7 +168,7 @@ PROGRAM cdfbotpressure
 
    DO jt = 1, npt
       IF ( lssh ) THEN
-        zt(:,:)       = getvar(cf_in, cn_sossheig, 1, npiglo, npjglo           )
+        zt(:,:)       = getvar(cf_in, cn_sossheig, 1, npiglo, npjglo, ktime=jt )
         dl_psurf(:,:) = pp_grav * pp_rau0 * zt(:,:)
       ELSE IF ( lssh2 ) THEN 
          zt(:,:)    = getvar(cf_in,   cn_votemper, 1, npiglo, npjglo, ktime=jt )
@@ -176,8 +176,8 @@ PROGRAM cdfbotpressure
      
          dl_sigi(:,:) = 1000. + sigmai(zt, zs, 0., npiglo, npjglo)
 
-         !  CAUTION : hdept is used for reading SSH in the next line 
-         hdept(:,:)   = getvar(cf_in, cn_sossheig, 1, npiglo, npjglo           )
+         !  CAUTION : hdept is used for reading SSH in the next line
+         hdept(:,:)   = getvar(cf_in, cn_sossheig, 1, npiglo, npjglo, ktime=jt )
         dl_psurf(:,:) = pp_grav * dl_sigi * hdept(:,:)
       ELSE
         dl_psurf(:,:)=0.d0

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