[cdftools] 149/228: JMM : fix a bug (no impact on computation) in cdfmean.f90, when kmin > 1 in the vertical limit.
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 04807fcda42dec2beacccc8d133e45c6cfc497ca
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Thu Apr 26 18:20:54 2012 +0000
JMM : fix a bug (no impact on computation) in cdfmean.f90, when kmin > 1 in the vertical limit.
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@597 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdfmean.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/cdfmean.f90 b/cdfmean.f90
index 775fa3f..2c1679b 100644
--- a/cdfmean.f90
+++ b/cdfmean.f90
@@ -358,15 +358,15 @@ PROGRAM cdfmean
IF (dvol2d /= 0 )THEN
dvmeanout(jk) = dsum2d/dvol2d
- WRITE(6,*)' Mean value at level ',ik,'(',gdep(ik),' m) ',dvmeanout(jk), 'surface = ',dsurf/1.e6,' km^2'
- WRITE(numout,9004) gdep(ik), ik, dvmeanout(jk)
+ WRITE(6,*)' Mean value at level ',ik,'(',gdep(jk),' m) ',dvmeanout(jk), 'surface = ',dsurf/1.e6,' km^2'
+ WRITE(numout,9004) gdep(jk), ik, dvmeanout(jk)
IF ( lvar ) THEN
dvariance(jk) = dvar2d/dvol2d - dvmeanout(jk) * dvmeanout(jk)
- WRITE(6,*)' Variance value at level ',ik,'(',gdep(ik),' m) ',dvariance(jk), 'surface = ',dsurf/1.e6,' km^2'
- WRITE(numvar,9004) gdep(ik), ik, dvariance(jk)
+ WRITE(6,*)' Variance value at level ',ik,'(',gdep(jk),' m) ',dvariance(jk), 'surface = ',dsurf/1.e6,' km^2'
+ WRITE(numvar,9004) gdep(jk), ik, dvariance(jk)
ENDIF
ELSE
- WRITE(6,*) ' No points in the water at level ',ik,'(',gdep(ik),' m) '
+ WRITE(6,*) ' No points in the water at level ',ik,'(',gdep(jk),' m) '
dvmeanout(jk) = 99999.
IF( lvar ) dvariance(jk) = 99999.
ENDIF
--
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