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/land_surface_model_mod.f90

    r3014 r3026  
    2525! -----------------
    2626! $Id$
     27! Changed the name specific humidity to mixing ratio, since we are computing
     28! mixing ratios.
     29!
     30! 3014 2018-05-09 08:42:38Z maronga
    2731! Bugfix: set some initial values
    2832! Bugfix: domain bounds of local_pf corrected
     
    520524                pavement_heat_capacity = 9999999.9_wp,  & !< volumetric heat capacity of pavement (e.g. roads) (J/m3/K)
    521525                pavement_heat_conduct  = 9999999.9_wp,  & !< heat conductivity for pavements (e.g. roads) (W/m/K)
    522                 q_s = 0.0_wp,                           & !< saturation specific humidity
     526                q_s = 0.0_wp,                           & !< saturation water vapor mixing ratio
    523527                residual_moisture = 9999999.9_wp,       & !< NAMELIST m_res
    524528                rho_cp,                                 & !< rho_surface * cp
     
    19471951       ENDIF
    19481952!
    1949 !--    Calculate saturation specific humidity
     1953!--    Calculate saturation water vapor mixing ratio
    19501954       q_s = 0.622_wp * e_s / ( surface_pressure - e_s )
    19511955!
     
    22252229
    22262230!
    2227 !-- Calculate surface specific humidity
     2231!-- Calculate surface water vapor mixing ratio
    22282232    IF ( humidity )  THEN
    22292233       CALL calc_q_surface
     
    22382242! Description:
    22392243! ------------
    2240 !> Calculation of specific humidity of the skin layer (surface). It is assumend
     2244!> Calculation of mixing ratio of the skin layer (surface). It is assumend
    22412245!> that the skin is always saturated.
    22422246!------------------------------------------------------------------------------!
     
    22592263
    22602264!
    2261 !--       Calculate specific humidity at saturation
     2265!--       Calculate mixing ratio at saturation
    22622266          q_s = 0.622_wp * e_s / ( surface_pressure - e_s )
    22632267
     
    22652269
    22662270!
    2267 !--       Calculate specific humidity at surface
     2271!--       Calculate mixing ratio at surface
    22682272          IF ( cloud_physics )  THEN
    22692273             q(k+k_off,j+j_off,i+i_off) = resistance * q_s +                   &
Note: See TracChangeset for help on using the changeset viewer.