Ignore:
Timestamp:
Oct 16, 2018 8:39:37 PM (3 years ago)
Author:
knoop
Message:

Introduced global constant rd_d_rv=0.622

File:
1 edited

Legend:

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

    r3274 r3361  
    143143    USE basic_constants_and_equations_mod,                                     &
    144144        ONLY:  l_v, molecular_weight_of_solute, molecular_weight_of_water,     &
    145                magnus, pi, rho_l, rho_s, r_v, vanthoff
     145               magnus, pi, rho_l, rho_s, rd_d_rv, r_v, vanthoff
    146146
    147147    USE control_parameters,                                                    &
     
    223223!
    224224!-- Current vapor pressure
    225     e_a = q(kp,jp,ip) * hyp(kp) / ( q(kp,jp,ip) + 0.622_wp )
     225    e_a = q(kp,jp,ip) * hyp(kp) / ( q(kp,jp,ip) + rd_d_rv )
    226226!
    227227!-- Thermal conductivity for water (from Rogers and Yau, Table 7.1)
Note: See TracChangeset for help on using the changeset viewer.