[Dart-dev] [3645] DART/trunk/common/types_mod.f90: added a constant for SECPERDAY = 86400

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20081106/b03b53ef/attachment.html
-------------- next part --------------
Modified: DART/trunk/common/types_mod.f90
===================================================================
--- DART/trunk/common/types_mod.f90	2008-11-05 18:38:46 UTC (rev 3644)
+++ DART/trunk/common/types_mod.f90	2008-11-06 20:06:46 UTC (rev 3645)
@@ -17,6 +17,7 @@
 public :: i4, i8, r4, c4, r8, c8, digits12
 public :: PI, DEG2RAD, RAD2DEG, MISSING_R4, MISSING_R8
 public :: MISSING_I, MISSING_DATA
+public :: SECPERDAY
 public :: t_kelvin, es_alpha, es_beta, es_gamma, gas_constant_v, gas_constant
 public :: L_over_Rv, ps0, earth_radius, gravity
 
@@ -62,6 +63,8 @@
 ! Constants ... 
 !----------------------------------------------------------------------------
 
+integer,       PARAMETER ::  SECPERDAY = 24*60*60
+
 real(kind=r8), parameter :: PI = 3.1415926535897932346_r8
 real(kind=r8), parameter :: DEG2RAD = PI / 180.0_r8
 real(kind=r8), parameter :: RAD2DEG = 180.0_r8 / PI