SUBROUTINE PARTDEP ( NC, DENSITY, FRACT, SCHMI, VSET, RA, USTAR, NYL, VDEP )
Argument Definitions (+ indicates altered content)
INTEGER            NC
REAL               DENSITY(MAXSPEC),       FRACT(MAXSPEC,NI)
REAL               NYL,        RA,         SCHMI(MAXSPEC,NI)
REAL               USTAR,     +VDEP(MAXSPEC)
REAL               VSET(MAXSPEC,NI)
Description
                       i     i      i     i    i   i    i    i  i/o 
 
 
     Calculation of the dry deposition velocities of particles. 
 
    AUTHOR: Andreas Stohl, 12 November 1993 
                           Update: 20 December 1996 
 
 
    Literature: 
    [1]  Hicks/Baldocchi/Meyers/Hosker/Matt (1987), A Preliminary 
            Multiple Resistance Routine for Deriving Dry Deposition 
            Velocities from Measured Quantities. 
            Water, Air and Soil Pollution 36 (1987), pp.311-330. 
    [2]  Slinn (1982), Predictions for Particle Deposition to 
            Vegetative Canopies. Atm.Env.16-7 (1982), pp.1785-1794. 
    [3]  Slinn/Slinn (1980),  Predictions for Particle Deposition on 
            Natural Waters. Atm.Env.14 (1980), pp.1013-1016. 
    [4]  Scire/Yamartino/Carmichael/Chang (1989), 
            CALGRID: A Mesoscale Photochemical Grid Model. 
            Vol II: User's Guide. (Report No.A049-1, June, 1989) 
    [5]  Langer M. (1992): Ein einfaches Modell zur Abschaetzung der 
            Depositionsgeschwindigkeit von Teilchen und Gasen. 
            Internal report. 
 
 
Variables: 
alpha                help variable 
fract(nc,ni)         mass fraction of each diameter interval 
lpdep(nc)            1 for particle deposition, 0 else 
nc                   actual number of chemical components 
ni                   number of diameter intervals, for which vdepj is 
rdp [s/m]            deposition layer resistance 
ra [s/m]             aerodynamical resistance 
schmi(nc,ni)         Schmidt number**2/3 of each diameter interval 
stokes               Stokes number 
ustar [m/s]          friction velocity 
vdep(nc) [m/s]       deposition velocities of all components 
vdepj [m/s]          help, deposition velocity of 1 interval 
vset(nc,ni)          gravitational settling velocity of each interval 
 
Constants: 
nc                   number of chemical species 
ni                   number of diameter intervals, for which depositio 
                     is calculated
Source file:partdep.f
Intrinsic Functions Called
GENERIC            LOG10
Parameter Variables Used
INTEGER            IDIFFNORM          (IDIFFNORM = 10800)
INTEGER            NXMAX              (NXMAX = 361)
INTEGER            NYMAX              (NYMAX = 181)
INTEGER            NUVZMAX            (NUVZMAX = 61)
INTEGER            NCONVLEVMAX        (NCONVLEVMAX = NUVZMAX-1)
INTEGER            JPACK              (JPACK = 4*NXMAX*NYMAX)
INTEGER            MAXSPEC            (MAXSPEC = 1)
INTEGER            NI                 (NI = 11)
REAL               PI                 (PI = 3.14159265)
REAL               GA                 (GA = 9.81)
REAL               EPS                (EPS = 1.E-5)
Local Variables (+ indicates altered content)
INTEGER           +IC,        +J
REAL              +ALPHA,     +RDP,       +STOKES,    +VDEPJ