[cdftools] 126/228: JMM + JD : bugfix in cdfmoc for compilation on vargas

[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 a7c431397a768cb7a43ba8af59c8d0e46265817b
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date:   Mon Jan 9 13:18:21 2012 +0000

    JMM + JD : bugfix in cdfmoc for compilation on vargas
    
    
    git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@574 1055176f-818a-41d9-83e1-73fbe5b947c5
---
 cdfmoc.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cdfmoc.f90 b/cdfmoc.f90
index 1165531..89acab6 100644
--- a/cdfmoc.f90
+++ b/cdfmoc.f90
@@ -500,7 +500,7 @@ PROGRAM cdfmoc
            ! thus, dgeo is -f.rau0/g. Dv/Dz 
            DO jj = 2, npjglo -1
               DO ji = 2, npiglo -1
-                 zmsv =  1. / MAX (1, iumask(ji-1,jj+1)+iumask(ji,jj+1)+iumask(ji-1,jj)+iumask(ji,jj) )
+                 zmsv =  1. / MAX (1_2, iumask(ji-1,jj+1)+iumask(ji,jj+1)+iumask(ji-1,jj)+iumask(ji,jj) )
                  dgeo = ( ( zsig0(ji,  jj+1) - zsig0(ji-1,jj+1) ) * iumask(ji-1, jj+1) / e1u(ji-1, jj+1) &
                       &  +( zsig0(ji+1,jj+1) - zsig0(ji  ,jj+1) ) * iumask(ji,   jj+1) / e1u(ji,   jj+1) &
                       &  +( zsig0(ji,  jj  ) - zsig0(ji-1,jj  ) ) * iumask(ji-1, jj  ) / e1u(ji-1, jj  ) &

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