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

    r3274 r3361  
    237237
    238238    USE basic_constants_and_equations_mod,                                     &
    239         ONLY:  g, kappa, lv_d_cp, pi
     239        ONLY:  g, kappa, lv_d_cp, pi, rd_d_rv
    240240
    241241    USE chem_modules,                                                          &
     
    18181818                              EXP( 0.07_wp * ( MIN(pt(k-1,j,i),pt(k,j,i))      &
    18191819                                               - 273.15_wp ) )
    1820                    q(k-1,j,i) = 0.622_wp * e_s / ( surface_pressure - e_s )
     1820                   q(k-1,j,i) = rd_d_rv * e_s / ( surface_pressure - e_s )
    18211821                ENDDO
    18221822             ENDIF
Note: See TracChangeset for help on using the changeset viewer.