Changeset 4084
 Timestamp:
 Jul 10, 2019 5:09:11 PM (4 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/basic_constants_and_equations_mod.f90
r4055 r4084 25 25 !  26 26 ! $Id$ 27 ! Changed precomputed fractions to be variable based 28 ! 29 ! 4055 20190627 09:47:29Z suehring 27 30 ! Added rgas_univ (universal gas constant) (E.C. Chan) 28 31 ! … … 84 87 REAL(wp), PARAMETER :: lv_d_cp = l_v / c_p !< precomputed l_v / c_p 85 88 REAL(wp), PARAMETER :: lv_d_rd = l_v / r_d !< precomputed l_v / r_d 86 REAL(wp), PARAMETER :: rd_d_rv = 0.622_wp !r_d / r_v!< precomputed r_d / r_v87 REAL(wp), PARAMETER :: rd_d_cp = 0.286_wp !r_d / c_p!< precomputed r_d / c_p88 REAL(wp), PARAMETER :: cp_d_rd = 1.0_wp/0.286_wp !c_p / r_d!< precomputed c_p / r_d89 REAL(wp), PARAMETER :: rd_d_rv = r_d / r_v !< precomputed r_d / r_v 90 REAL(wp), PARAMETER :: rd_d_cp = r_d / c_p !< precomputed r_d / c_p 91 REAL(wp), PARAMETER :: cp_d_rd = c_p / r_d !< precomputed c_p / r_d 89 92 90 93 REAL(wp) :: molecular_weight_of_solute = molecular_weight_of_nacl !< mol. m. NaCl (kg mol1)
Note: See TracChangeset
for help on using the changeset viewer.