Changeset 3026 for palm/trunk/SOURCE/microphysics_mod.f90

Timestamp:

May 22, 2018 10:30:53 AM (6 years ago)

Author:

schwenkel

Message:

Changed the name specific humidity to mixing ratio

File:

• palm/trunk/SOURCE/microphysics_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/microphysics_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed the name specific humidity to mixing ratio, since we are computing
+! mixing ratios.
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -2000 +2004 @@
                                  )
 !
-!--       Computation of saturation humidity:
-          q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
+!--       Computation of saturation mixing ratio:
+          q_s   = 0.622_wp * e_s / ( hyp(k) -  e_s )
           alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
           q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) /                         &
@@ -2132 +2136 @@
                                  )
 !
-!--       Computation of saturation humidity:
-          q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
+!--       Computation of saturation mixing ratio:
+          q_s   = 0.622_wp * e_s / ( hyp(k) - e_s )
           alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
           q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) /               &
@@ -2581 +2585 @@
                                   )
 !
-!--          Computation of saturation humidity:
-             q_s   = 0.622_wp * e_s / ( hyp(k) - 0.378_wp * e_s )
+!--          Computation of saturation mixing ratio:
+             q_s   = 0.622_wp * e_s / ( hyp(k) - e_s )
              alpha = 0.622_wp * l_d_r * l_d_cp / ( t_l * t_l )
              q_s   = q_s * ( 1.0_wp + alpha * q_1d(k) ) / ( 1.0_wp + alpha * q_s )