Changeset 4055 for palm/trunk/SOURCE/basic_constants_and_equations_mod.f90
- Timestamp:
- Jun 27, 2019 9:47:29 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/basic_constants_and_equations_mod.f90
r3655 r4055 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Added rgas_univ (universal gas constant) (E.C. Chan) 28 ! 29 ! 30 ! 3655 2019-01-07 16:51:22Z knoop 27 31 ! OpenACC port for SPEC 28 32 ! … … 62 66 REAL(wp), PARAMETER :: pi = 3.141592654_wp !< PI 63 67 !$ACC DECLARE COPYIN(pi) 68 REAL(wp), PARAMETER :: rgas_univ = 8.31446261815324_wp !< universal gas constant (J K-1 mol-1) 64 69 REAL(wp), PARAMETER :: rho_l = 1.0E3_wp !< density of water (kg m-3) 65 70 REAL(wp), PARAMETER :: rho_nacl = 2165.0_wp !< density of NaCl (kg m-3)
Note: See TracChangeset
for help on using the changeset viewer.