<p><b>duda</b> 2013-03-27 13:24:59 -0600 (Wed, 27 Mar 2013)</p><p>Add new constants 'rv', the gas constant for water vapor, and 'rvord',<br>
the ratio of Rv to Rd to the mpas_constants module. Also, add comments<br>
for constants, and define derived constants directly in terms of the <br>
constants they are derived from.<br>
<br>
No change to results.<br>
<br>
<br>
M    src/framework/mpas_constants.F<br>
</p><hr noshade><pre><font color="gray">Modified: trunk/mpas/src/framework/mpas_constants.F
===================================================================
--- trunk/mpas/src/framework/mpas_constants.F        2013-03-27 15:31:01 UTC (rev 2672)
+++ trunk/mpas/src/framework/mpas_constants.F        2013-03-27 19:24:59 UTC (rev 2673)
@@ -1,3 +1,17 @@
+!***********************************************************************
+!
+!  mpas_constants
+!
+!&gt; \brief   MPAS Constant Module
+!&gt; \author  Michael Duda
+!&gt; \date    03/27/13
+!&gt; \version SVN:$Id$
+!&gt; \details 
+!&gt; This module provides various constants that can be used in different parts of MPAS.
+!&gt; They may or may not be a physical quantity.
+!
+!-----------------------------------------------------------------------
+
 module mpas_constants
 
    use mpas_kind_types
@@ -2,15 +16,30 @@
 
-   real (kind=RKIND), parameter :: pii     = 3.141592653589793   
-   real (kind=RKIND), parameter :: a       = 6371229.0
-   real (kind=RKIND), parameter :: omega   = 7.29212e-5
-   real (kind=RKIND), parameter :: gravity = 9.80616
-   real (kind=RKIND), parameter :: rgas = 287.
-   real (kind=RKIND), parameter :: cp = 1003.
-   real (kind=RKIND), parameter :: cv = 716.  ! cp - rgas
-   real (kind=RKIND), parameter :: cvpm = -.71385842 ! -cv/cp
-   real (kind=RKIND), parameter :: prandtl = 1.0
+   real (kind=RKIND), parameter :: pii     = 3.141592653589793   !&lt; Constant: Pi
+   real (kind=RKIND), parameter :: a       = 6371229.0           !&lt; Constant: Spherical Earth radius [m]
+   real (kind=RKIND), parameter :: omega   = 7.29212e-5          !&lt; Constant: Angular rotation rate of the Earth [s-1]
+   real (kind=RKIND), parameter :: gravity = 9.80616             !&lt; Constant: Acceleration due to gravity [m s-2]
+   real (kind=RKIND), parameter :: rgas    = 287.0               !&lt; Constant: Gas constant for dry air [J kg-1 K-1]
+   real (kind=RKIND), parameter :: rv      = 461.6               !&lt; Constant: Gas constant for water vapor [J kg-1 K-1]
+   real (kind=RKIND), parameter :: rvord   = rv/rgas             !
+   real (kind=RKIND), parameter :: cp      = 1003.0              !&lt; Constant: Specific heat of dry air at constant pressure [J kg-1 K-1]
+   real (kind=RKIND), parameter :: cv      = cp - rgas           !&lt; Constant: Specific heat of dry air at constant volume [J kg-1 K-1]
+   real (kind=RKIND), parameter :: cvpm    = -cv/cp              !
+   real (kind=RKIND), parameter :: prandtl = 1.0                 !&lt; Constant: Prandtl number
 
 
    contains
 
+
+!***********************************************************************
+!
+!  routine dummy
+!
+!&gt; \brief   MPAS Dummy Routine
+!&gt; \author  Michael Duda
+!&gt; \date    03/27/13
+!&gt; \version SVN:$Id$
+!&gt; \details 
+!&gt; This is a dummy routine that doesn't do anything.
+!
+!-----------------------------------------------------------------------
    subroutine dummy()

</font>
</pre>