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

[nancy at ucar.edu]

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

Modified Paths:
--------------
    DART/branches/development/common/types_mod.f90

-------------- next part --------------
Modified: DART/branches/development/common/types_mod.f90
===================================================================
--- DART/branches/development/common/types_mod.f90	2012-07-24 16:01:04 UTC (rev 5817)
+++ DART/branches/development/common/types_mod.f90	2012-07-24 16:02:17 UTC (rev 5818)
@@ -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