[cdftools] 156/228: RD: correct bug, only first level sign was corrected

[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 7907e87ff65b82dbbfd585be895b1224442ded1f
Author: dussin <dussin at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Thu May 17 21:43:43 2012 +0000

    RD: correct bug, only first level sign was corrected
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@604 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfnorth_unfold.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/cdfnorth_unfold.f90 b/cdfnorth_unfold.f90
index 3f21ed1..94eaae9 100644
--- a/cdfnorth_unfold.f90
+++ b/cdfnorth_unfold.f90
@@ -164,12 +164,14 @@ PROGRAM cdfnorth_unfold
   tim  = getvar1d(cf_in, cn_vtimec, npt     )
   ierr = putvar1d(ncout, tim,       npt, 'T')
 
+  ! default value
+  isig =  1
+
   DO jvar = 1,nvars
      PRINT *,' Working with ', TRIM(cv_names(jvar)), ipk(jvar)
      DO jk = 1, ipk(jvar)
         PRINT *,'level ',jk
         tab(:,:) = 0.
-        isig =  1
         DO jt=1,npt
            v2d(:,:) = getvar(cf_in, cv_names(jvar), jk, npiglo, npjglo, ktime=jt )
 

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