<p><b>laura@ucar.edu</b> 2010-05-20 13:53:30 -0600 (Thu, 20 May 2010)</p><p>The module contains all constants needed in physics parameterizations.<br>
</p><hr noshade><pre><font color="gray">Added: branches/atmos_physics/src/core_hyd_phys/module_physics_constants.F
===================================================================
--- branches/atmos_physics/src/core_hyd_phys/module_physics_constants.F                                (rev 0)
+++ branches/atmos_physics/src/core_hyd_phys/module_physics_constants.F        2010-05-20 19:53:30 UTC (rev 286)
@@ -0,0 +1,31 @@
+!==============================================================================
+ 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:: rcp  = r_d/cp
+
+ 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:: xlv0  = 3.15e6
+ REAL(KIND=RKIND),PARAMETER:: xlv1  = 2370.
+ REAL(KIND=RKIND),PARAMETER:: xls0  = 2.905e6
+ REAL(KIND=RKIND),PARAMETER:: xls1  = 259.532
+
+!==============================================================================
+ END MODULE module_physics_constants
+!==============================================================================
\ No newline at end of file

</font>
</pre>