Ignore:
Timestamp:
May 22, 2018 10:30:53 AM (3 years ago)
Author:
schwenkel
Message:

Changed the name specific humidity to mixing ratio

File:
1 edited

Legend:

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

    r2718 r3026  
    2525! -----------------
    2626! $Id$
     27! Changed the name specific humidity to mixing ratio, since we are computing
     28! mixing ratios.
     29!
     30! 2718 2018-01-02 08:49:38Z maronga
    2731! Corrected "Former revisions" section
    2832!
     
    20002004                                 )
    20012005!
    2002 !--       Computation of saturation humidity:
    2003           q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
     2006!--       Computation of saturation mixing ratio:
     2007          q_s   = 0.622_wp * e_s / ( hyp(k) - e_s )
    20042008          alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
    20052009          q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) /                         &
     
    21322136                                 )
    21332137!
    2134 !--       Computation of saturation humidity:
    2135           q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
     2138!--       Computation of saturation mixing ratio:
     2139          q_s   = 0.622_wp * e_s / ( hyp(k) - e_s )
    21362140          alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
    21372141          q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) /               &
     
    25812585                                  )
    25822586!
    2583 !--          Computation of saturation humidity:
    2584              q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
     2587!--          Computation of saturation mixing ratio:
     2588             q_s   = 0.622_wp * e_s / ( hyp(k) - e_s )
    25852589             alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
    25862590             q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) / ( 1.0_wp + alpha * q_s )
Note: See TracChangeset for help on using the changeset viewer.