Ignore:
Timestamp:
Jul 10, 2019 5:09:11 PM (5 years ago)
Author:
knoop
Message:

Changed precomputed fractions from basic constants to be variable based

File:
1 edited

Legend:

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

    r4055 r4084  
    2525! -----------------
    2626! $Id$
     27! Changed precomputed fractions to be variable based
     28!
     29! 4055 2019-06-27 09:47:29Z suehring
    2730! Added rgas_univ (universal gas constant) (E.C. Chan)
    2831!
     
    8487    REAL(wp), PARAMETER ::  lv_d_cp = l_v / c_p   !< precomputed l_v / c_p
    8588    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_v
    87     REAL(wp), PARAMETER ::  rd_d_cp = 0.286_wp !r_d / c_p  !< precomputed r_d / c_p
    88     REAL(wp), PARAMETER ::  cp_d_rd = 1.0_wp/0.286_wp !c_p / r_d  !< precomputed c_p / r_d
     89    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
    8992
    9093    REAL(wp) ::  molecular_weight_of_solute = molecular_weight_of_nacl  !< mol. m. NaCl (kg mol-1)
Note: See TracChangeset for help on using the changeset viewer.