[Dart-dev] [5816] DART/trunk/common/types_mod.f90: Thanks to Andy Mai, added missing 8 in the 18th decimal place of PI.

[nancy at ucar.edu]

Revision: 5816
Author:   nancy
Date:     2012-07-24 09:58:29 -0600 (Tue, 24 Jul 2012)
Log Message:
-----------
Thanks to Andy Mai, added missing 8 in the 18th decimal place of PI.

Modified Paths:
--------------
    DART/trunk/common/types_mod.f90

-------------- next part --------------
Modified: DART/trunk/common/types_mod.f90
===================================================================
--- DART/trunk/common/types_mod.f90	2012-07-23 21:24:53 UTC (rev 5815)
+++ DART/trunk/common/types_mod.f90	2012-07-24 15:58:29 UTC (rev 5816)
@@ -73,7 +73,7 @@
 
 integer,       PARAMETER ::  SECPERDAY = 24*60*60
 
-real(kind=r8), parameter :: PI = 3.1415926535897932346_r8
+real(kind=r8), parameter :: PI = 3.14159265358979323846_r8
 real(kind=r8), parameter :: DEG2RAD = PI / 180.0_r8
 real(kind=r8), parameter :: RAD2DEG = 180.0_r8 / PI