[cdftools] 196/228: JMM : solve incohencies in the type of the variables compared to 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 ba24daa8807139b5cf03a5d09816d1ae7d33b559
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Sat Feb 16 22:23:37 2013 +0000

    JMM : solve incohencies in the type of the variables compared to cdfweight
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@644 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfcoloc.f90 | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/cdfcoloc.f90 b/cdfcoloc.f90
index 3dc0b16..a43f3e6 100644
--- a/cdfcoloc.f90
+++ b/cdfcoloc.f90
@@ -53,7 +53,8 @@ PROGRAM cdfcoloc
   INTEGER(KIND=4)                                :: nSx, nSy      ! index of the Sx and Sy for rotation
   INTEGER(KIND=4)                                :: nU, nV        ! index of the U and V for rotation
   INTEGER(KIND=2), DIMENSION(:,:,:), ALLOCATABLE :: mask          ! 3D working mask
-
+  
+  REAL(KIND=4)                                   :: xmin, ymin, rdep
   REAL(KIND=4)                                   :: vup, vdo, wup, wdo  ! Working variables
   REAL(KIND=4), DIMENSION(:,:,:),    ALLOCATABLE :: v3d           ! 3D  ! working variable (unavoidable)
 
@@ -342,7 +343,8 @@ PROGRAM cdfcoloc
      ENDIF
 
      DO jid=1,nid
-        READ(numbin) id, dymin, dxmin, idep ,nimin, njmin, nkmin, nquadran, dhN, dalpha, dbeta, dgama
+!       READ(numbin) id, dymin, dxmin, idep ,nimin, njmin, nkmin, nquadran, dhN, dalpha, dbeta, dgama
+        READ(numbin) id, ymin, xmin, rdep ,nimin, njmin, nkmin, nquadran, dhN, dalpha, dbeta, dgama
         dinterp(jid,jtyp)=interp()
         ! do not scale dummy values
         IF ( dinterp (jid,jtyp) > -99990.d0 )  dinterp (jid,jtyp) = dinterp (jid,jtyp) * dscale

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