Ignore:
Timestamp:
Jun 27, 2019 9:47:29 AM (2 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/basic_constants_and_equations_mod.f90

    r3655 r4055  
    2525! -----------------
    2626! $Id$
     27! Added rgas_univ (universal gas constant) (E.C. Chan)
     28!
     29!
     30! 3655 2019-01-07 16:51:22Z knoop
    2731! OpenACC port for SPEC
    2832!
     
    6266    REAL(wp), PARAMETER ::  pi = 3.141592654_wp                       !< PI
    6367    !$ACC DECLARE COPYIN(pi)
     68    REAL(wp), PARAMETER ::  rgas_univ = 8.31446261815324_wp           !< universal gas constant (J K-1 mol-1)
    6469    REAL(wp), PARAMETER ::  rho_l = 1.0E3_wp                          !< density of water (kg m-3)
    6570    REAL(wp), PARAMETER ::  rho_nacl = 2165.0_wp                      !< density of NaCl (kg m-3)
Note: See TracChangeset for help on using the changeset viewer.