[cdftools] 106/228: JMM + PM : fix in cdfw.f90 for using velocity names as arguments

[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 bafc188197501722c122963b17726c04966ba820
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Mon Oct 17 13:46:56 2011 +0000

    JMM + PM : fix in cdfw.f90 for using velocity names as arguments
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@553 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfw.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cdfw.f90 b/cdfw.f90
index fc50f13..208f7a0 100644
--- a/cdfw.f90
+++ b/cdfw.f90
@@ -89,10 +89,11 @@ PROGRAM cdfw
   CALL getarg(ijarg, cf_vfil) ; ijarg = ijarg + 1
 
   DO WHILE (ijarg <= narg )
-     CALL getarg(ijarg, cldum) ; ijarg = ijarg + 1
+     CALL getarg(ijarg, cldum) 
      SELECT CASE ( cldum )
      CASE ( '-full' ) 
         lfull = .TRUE.
+        ijarg = ijarg + 1
      CASE DEFAULT
         CALL getarg(ijarg, cn_vozocrtx) ; ijarg = ijarg + 1
         CALL getarg(ijarg, cn_vomecrty) ; ijarg = ijarg + 1

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