part0 Subroutine

public subroutine part0(dquer, dsigma, density, ni, fract, schmi, cun, vsh)


                                                                        *
  Calculation of time independent factors of the dry deposition of      *
  particles:                                                            *
  Log-Normal-distribution of mass [dM/dlog(dp)], unimodal               *
                                                                        *
  AUTHOR: Matthias Langer, adapted by Andreas Stohl, 13 November 1993   *
                                                                        *
  Literature:                                                           *
  [1]  Scire/Yamartino/Carmichael/Chang (1989),                         *
         CALGRID: A Mesoscale Photochemical Grid Model.                 *
         Vol II: User's Guide. (Report No.A049-1, June, 1989)           *
                                                                        *

                                                                        *

Variables: * alpha help variable * cun 'slip-flow' correction after Cunningham * d01 [um] upper diameter * d02 [um] lower diameter * dc [m2/s] coefficient of Brownian diffusion * delta distance given in standard deviation units * density [kg/m3] density of the particle * dmean geometric mean diameter of interval * dquer [um] geometric mass mean particle diameter * dsigma e.g. dsigma=10 or dsigma=0.1 means that 68% of the mass * are between 0.1dquer and 10dquer * fract(ni) mass fraction of each diameter interval * kn Knudsen number * ni number of diameter intervals, for which deposition * is calculated * schmidt Schmidt number * schmi schmidt**2/3 * vsh [m/s] gravitational settling velocity of the particle * x01 normalized upper diameter * x02 normalized lower diameter * * Constants: * g [m/s2] Acceleration of gravity * kb [J/K] Stefan-Boltzmann constant * lam [m] mean free path of air molecules * myl [kg/m/s] dynamical viscosity of air * nyl [m2/s] kinematic viscosity of air * tr reference temperature * * Function: * erf calculates the integral of the Gauss function * *



Normalisation. Why was it not normalised?





Arguments

Type IntentOptional Attributes Name
real :: dquer
real :: dsigma
real :: density
integer :: ni
real, intent(inout), dimension(ni) :: fract
real, intent(inout), dimension(ni) :: schmi
real :: cun
real, intent(inout), dimension(ni) :: vsh