[cdftools] 117/228: CT : bug found in cdfmxl : mbathy can be 0 and is used as index of gdepw which are defined from 1. fix is to allocate gdepw(0:jpk)
Alastair McKinstry
mckinstry at moszumanska.debian.org
Fri Jun 12 08:21:37 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 b5ef8bb8a7da21560c55980d20812035afe7f27d
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Tue Dec 20 14:22:08 2011 +0000
CT : bug found in cdfmxl : mbathy can be 0 and is used as index of gdepw which are defined from 1.
fix is to allocate gdepw(0:jpk)
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@564 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdfmxl.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cdfmxl.f90 b/cdfmxl.f90
index 8c87e4b..234b498 100644
--- a/cdfmxl.f90
+++ b/cdfmxl.f90
@@ -129,7 +129,7 @@ PROGRAM cdfmxl
ALLOCATE (hmlp1(npiglo,npjglo), hmlp2(npiglo,npjglo), hmlt(npiglo,npjglo) )
ALLOCATE (mbathy(npiglo,npjglo) )
ALLOCATE (nmln1(npiglo,npjglo), nmln2(npiglo,npjglo), nmlnt(npiglo,npjglo))
- ALLOCATE (gdepw(npk), tim(npt) )
+ ALLOCATE (gdepw(0:npk), tim(npt) )
! read mbathy and gdepw use real rtem(:,:) as template (getvar is used for real only)
IF ( chkfile( cn_fbathylev) ) THEN
--
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