[cdftools] 176/228: JMM : add suffix D0 to dble prec parameter
Alastair McKinstry
mckinstry at moszumanska.debian.org
Fri Jun 12 08:21:46 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 b11df79a40e0875e1bc007cdcf2d9b29becec2db
Author: molines <molines at 1055176f-818a-41d9-83e1-73fbe5b947c5>
Date: Wed Oct 31 20:39:18 2012 +0000
JMM : add suffix D0 to dble prec parameter
git-svn-id: http://servforge.legi.grenoble-inp.fr/svn/CDFTOOLS/trunk@624 1055176f-818a-41d9-83e1-73fbe5b947c5
---
cdf2levitusgrid2d.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/cdf2levitusgrid2d.f90 b/cdf2levitusgrid2d.f90
index 10632a9..3457c50 100644
--- a/cdf2levitusgrid2d.f90
+++ b/cdf2levitusgrid2d.f90
@@ -498,7 +498,7 @@ CONTAINS
REAL(KIND=4), INTENT(out) :: plon, plat
REAL(KIND=8), PARAMETER :: dp_p1= 1.745329D-02 ! radians per degree
- REAL(KIND=8), PARAMETER :: dp_p2= 111.1940 ! dp_p1 * earth radius in km (6370.949)
+ REAL(KIND=8), PARAMETER :: dp_p2= 111.1940D0 ! dp_p1 * earth radius in km (6370.949)
REAL(KIND=8) :: dl_rx, dl_ry
REAL(KIND=8) :: dl_r0
REAL(KIND=8) :: dl_r1, dl_r2, dl_r3
--
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