<p><b>laura@ucar.edu</b> 2012-07-12 11:33:19 -0600 (Thu, 12 Jul 2012)</p><p>added the parameters Rv and RvoRd for more accurate calculation of the potential temperature as functions of the modified potential temperature and water vapor, and consistency with physics<br>
</p><hr noshade><pre><font color="gray">Modified: branches/atmos_physics/src/framework/mpas_constants.F
===================================================================
--- branches/atmos_physics/src/framework/mpas_constants.F        2012-07-12 17:03:41 UTC (rev 2016)
+++ branches/atmos_physics/src/framework/mpas_constants.F        2012-07-12 17:33:19 UTC (rev 2017)
@@ -7,6 +7,8 @@
    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 :: Rv = 461.6
+   real (kind=RKIND), parameter :: RvoRd = Rv/rgas
    real (kind=RKIND), parameter :: cp = 1003.
    real (kind=RKIND), parameter :: cv = cp - rgas
    real (kind=RKIND), parameter :: cvpm = -cv/cp

</font>
</pre>