<p><b>laura@ucar.edu</b> 2010-07-23 15:02:17 -0600 (Fri, 23 Jul 2010)</p><p>list of physics constants<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_physics/module_physics_constants.F
===================================================================
--- branches/atmos_physics/src/core_physics/module_physics_constants.F                                (rev 0)
+++ branches/atmos_physics/src/core_physics/module_physics_constants.F        2010-07-23 21:02:17 UTC (rev 406)
@@ -0,0 +1,43 @@
+!==============================================================================
+ module module_physics_constants
+ use constants, R_d =&gt; rgas, g =&gt; gravity
+
+ implicit none
+ save
+ 
+!DESCRIPTION:
+!This module defines the constants needed for the physics parameterizations.
+ 
+!==============================================================================
+
+ real(KIND=RKIND),parameter:: P0     = 100000.
+ real(KIND=RKIND),parameter:: R_v    = 461.6
+ real(KIND=RKIND),parameter:: ep_1   = R_v/R_d-1.
+ real(KIND=RKIND),parameter:: ep_2   = R_d/R_v
+ real(KIND=RKIND),parameter:: rdg    = R_d/g
+ real(KIND=RKIND),parameter:: rcp    = R_d/cp
+ real(KIND=RKIND),parameter:: rcv    = R_d/(cp-R_d)
+
+ real(KIND=RKIND),parameter:: rho_w  = 1000.0
+
+ real(KIND=RKIND),parameter:: svp1   = 0.6112
+ real(KIND=RKIND),parameter:: svp2   = 17.67
+ real(KIND=RKIND),parameter:: svp3   = 29.65
+ real(KIND=RKIND),parameter:: svpt0  = 273.15
+
+ real(KIND=RKIND),parameter:: xlv    = 2.15e6
+ real(KIND=RKIND),parameter:: xlf    = 3.50e5
+ real(KIND=RKIND),parameter:: xls    = xlv + xlf
+
+ real(KIND=RKIND),parameter:: xlv0   = 3.15e6
+ real(KIND=RKIND),parameter:: xlv1   = 2370.
+ real(KIND=RKIND),parameter:: xls0   = 2.905e6
+ real(KIND=RKIND),parameter:: xls1   = 259.532
+ 
+ real(KIND=RKIND),parameter:: karman = 0.4
+ real(KIND=RKIND),parameter:: eomeg  = 7.29210e-5
+ real(KIND=RKIND),parameter:: stbolt = 5.67051e-8
+
+!==============================================================================
+ end module module_physics_constants
+!==============================================================================

</font>
</pre>