Changeset 4055 for palm/trunk/SOURCE/basic_constants_and_equations_mod.f90

Timestamp:

Jun 27, 2019 9:47:29 AM (5 years ago)

Author:

suehring

Message:

chem_emissions_mod: Formatting adjustments; initialization of arrays fixed; univsersal gas constant moved to basic_constants_and_equations_mod.f90

File:

• palm/trunk/SOURCE/basic_constants_and_equations_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/basic_constants_and_equations_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added rgas_univ (universal gas constant) (E.C. Chan)
+! 
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! OpenACC port for SPEC
 ! 
@@ -62 +66 @@
     REAL(wp), PARAMETER ::  pi = 3.141592654_wp                       !< PI
     !$ACC DECLARE COPYIN(pi)
+    REAL(wp), PARAMETER ::  rgas_univ = 8.31446261815324_wp           !< universal gas constant (J K-1 mol-1)
     REAL(wp), PARAMETER ::  rho_l = 1.0E3_wp                          !< density of water (kg m-3)
     REAL(wp), PARAMETER ::  rho_nacl = 2165.0_wp                      !< density of NaCl (kg m-3)