Changeset 4290 for palm


Ignore:
Timestamp:
Nov 11, 2019 12:06:14 PM (21 months ago)
Author:
banzhafs
Message:

Bugfix in sedimentation resistance calculation in drydepo_aero_zhang_vd subroutine

File:
1 edited

Legend:

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

    r4273 r4290  
    2727! -----------------
    2828! $Id$
     29! Bugfix in sedimentation resistance calculation in drydepo_aero_zhang_vd subroutine
     30!
     31!4273 2019-10-24 13:40:54Z monakurppa
    2932! Add logical switches nesting_chem and nesting_offline_chem (both .TRUE.
    3033! by default)
     
    57655768!
    57665769!-- sedimentation resistance:
    5767     rs = 1.0_wp / ( epsilon0 * ustar * ( Ebrown + Eimpac + Einterc ) * Reffic )
     5770    rs = 1.0_wp / ( epsilon0 * MAX( 1.0e-5, ustar ) * ( Ebrown + Eimpac + Einterc ) * Reffic )
    57685771
    57695772!-- deposition velocity according to Seinfeld and Pandis (2006; eq 19.7):
Note: See TracChangeset for help on using the changeset viewer.