[cdftools] 152/228: JMM +PM : change the order of multiplication by 1.d0 in cdfzonalmean, in order to deal with huge _FillValue w/o overflow error
Alastair McKinstry
mckinstry at moszumanska.debian.org
Fri Jun 12 08:21:42 UTC 2015
This is an automated email from the git hooks/post-receive script.
mckinstry pushed a commit to branch master
in repository cdftools.
commit fb2a372021760772b22c7be38ecafcfb398309eb
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Wed May 9 14:08:31 2012 +0000
JMM +PM : change the order of multiplication by 1.d0 in cdfzonalmean, in order to deal with huge _FillValue w/o overflow error
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@600 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdfzonalmean.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/cdfzonalmean.f90 b/cdfzonalmean.f90
index 33b584d..512cc5c 100644
--- a/cdfzonalmean.f90
+++ b/cdfzonalmean.f90
@@ -309,8 +309,8 @@ PROGRAM cdfzonalmean
! integrates 'zonally' (along i-coordinate)
DO ji=1,npiglo
DO jj=1,npjglo
- dzomean(jj,jk) = dzomean(jj,jk) + e1(ji,jj)*e2(ji,jj)* zmask(jbasin,ji,jj)*zmaskvar(ji,jj)*zv(ji,jj)*1.d0
- darea(jj,jk) = darea(jj,jk) + e1(ji,jj)*e2(ji,jj)* zmask(jbasin,ji,jj)*zmaskvar(ji,jj)*1.d0
+ dzomean(jj,jk) = dzomean(jj,jk) + 1.d0*e1(ji,jj)*e2(ji,jj)* zmask(jbasin,ji,jj)*zmaskvar(ji,jj)*zv(ji,jj)
+ darea(jj,jk) = darea(jj,jk) + 1.d0*e1(ji,jj)*e2(ji,jj)* zmask(jbasin,ji,jj)*zmaskvar(ji,jj)
END DO
END DO
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/cdftools.git
More information about the debian-science-commits
mailing list