[cdftools] 197/228: JMM : work on cdfcoloc to put it in agreement with cdfweight

[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 c615f46534305159847f504ab7b2404fb4c95dce
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Sat Feb 16 22:41:25 2013 +0000

    JMM : work on cdfcoloc to put it in agreement with cdfweight
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@645 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfcoloc.f90 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cdfcoloc.f90 b/cdfcoloc.f90
index a43f3e6..a07089b 100644
--- a/cdfcoloc.f90
+++ b/cdfcoloc.f90
@@ -360,8 +360,8 @@ PROGRAM cdfcoloc
   cf_weight = cf_weight_t
   OPEN(numbin, FILE=cf_weight, FORM='unformatted')
   DO jid=1, nid   ! loop on all stations
-     READ(numbin) id, dymin, dxmin, idep, nimin, njmin, nkmin, nquadran, dhN
-     IF ( dxmin > 180.d0) dxmin = dxmin - 360.d0
+     READ(numbin) id, ymin, xmin, rdep, nimin, njmin, nkmin, nquadran, dhN
+     IF ( xmin > 180.0) xmin = xmin - 360.0
      ! output only stations with no problems ( dinterp > -99990 )
      dlmin=MINVAL(dinterp(jid,:) )
      IF ( dlmin > -99990.d0 ) THEN
@@ -372,10 +372,10 @@ PROGRAM cdfcoloc
         IF ( nU > 0 ) THEN    ! (U, V pair)
           CALL rotation( dinterp(jid,nU), dinterp(jid,nV), dhN)  
         ENDIF
-        WRITE(numout, cformat) id, idep, (dinterp(jid,jtyp),jtyp=1,ntyp)
+        WRITE(numout, cformat) id, rdep, (dinterp(jid,jtyp),jtyp=1,ntyp)
      ELSE
         ! save discarted stations for control
-        WRITE(numskip, cformat) id, idep, (dinterp(jid,jtyp),jtyp=1,ntyp)
+        WRITE(numskip, cformat) id, rdep, (dinterp(jid,jtyp),jtyp=1,ntyp)
      ENDIF
   END DO
   CLOSE(numbin)

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