<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 => rgas, g => 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>