[cdftools] 132/228: JMM : bug fix in cdfvertmean : correct missing initialization of dvold2d

[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 5abb7aa389a387097f5f2aa475e2d3229655d855
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Wed Jan 25 16:01:07 2012 +0000

    JMM : bug fix in cdfvertmean : correct missing initialization of dvold2d
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@580 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfvertmean.f90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/cdfvertmean.f90 b/cdfvertmean.f90
index 75e2d1f..6c917a1 100644
--- a/cdfvertmean.f90
+++ b/cdfvertmean.f90
@@ -207,10 +207,11 @@ PROGRAM cdfvertmean
   PRINT '(a,2i8  )', 'nearest level found        : ', ik1,     ik2
   PRINT '(a,2f8.3)', 'corresponding depth        : ', gdep(ik1), gdep(ik2+1)
 
-  dvol           = 0.d0
-  dvertmean(:,:) = 0.d0
-
   DO jt=1,npt
+     dvol           = 0.d0
+     dvol2d(:,:)    = 0.d0
+     dvertmean(:,:) = 0.d0
+
      DO jk = ik1, ik2
         ! Get values at jk
         zv(   :,:) = getvar(cf_in,   cv_in,  jk, npiglo, npjglo, ktime=jt)

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