[cdftools] 153/228: JMM : modify putheadervar in case of missing nav_lon, nav_lat
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 2b393c3ba77dca6e0fde1a79884d607f62630e7e
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Fri May 11 14:56:29 2012 +0000
JMM : modify putheadervar in case of missing nav_lon, nav_lat
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@601 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdfio.f90 | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/cdfio.f90 b/cdfio.f90
index c373e8d..4f25f8b 100644
--- a/cdfio.f90
+++ b/cdfio.f90
@@ -1670,14 +1670,24 @@ CONTAINS
IF (PRESENT(pnavlon) ) THEN
z2d = pnavlon
ELSE
- z2d=getvar(cdfile,cn_vlon2d, 1,kpi,kpj)
+ IF ( chkvar ( cdfile, cn_vlon2d )) THEN
+ PRINT *, '... dummy value used!'
+ z2d = 0.
+ ELSE
+ z2d=getvar(cdfile,cn_vlon2d, 1,kpi,kpj)
+ ENDIF
ENDIF
istatus = putvar(kout, nid_lon,z2d,1,kpi,kpj)
IF (PRESENT(pnavlat) ) THEN
z2d = pnavlat
ELSE
- z2d=getvar(cdfile,cn_vlat2d, 1,kpi,kpj)
+ IF ( chkvar ( cdfile, cn_vlat2d )) THEN
+ PRINT *, '... dummy value used!'
+ z2d = 0.
+ ELSE
+ z2d=getvar(cdfile,cn_vlat2d, 1,kpi,kpj)
+ ENDIF
ENDIF
istatus = putvar(kout, nid_lat,z2d,1,kpi,kpj)
--
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