SUBROUTINE CALCFLUXES ( NAGE, JPART, XOLD, YOLD, ZOLD )
Argument Definitions (+ indicates altered content)
INTEGER            JPART,      NAGE
REAL               XOLD,       YOLD,       ZOLD
Description
                           i     i    i    i    i 
 
 
    Calculation of the gross fluxes across horizontal, eastward and 
    northward facing surfaces. The routine calculates the mass flux 
    due to the motion of only one particle. The fluxes of subsequent c 
    to this subroutine are accumulated until the next output is due. 
    Upon output, flux fields are re-set to zero in subroutine fluxoutp 
 
    Author: A. Stohl 
 
    04 April 2000 
 
 
 
Variables: 
 
nage                  Age class of the particle considered 
jpart                 Index of the particle considered 
xold,yold,zold        "Memorized" old positions of the particle
Source file:calcfluxes.f
Intrinsic Functions Called
INTEGER            INT
REAL               FLOAT
GENERIC            ABS,        MIN
Parameter Variables Used
INTEGER            NUMPATH            (NUMPATH = 4)
INTEGER            IDIFFNORM          (IDIFFNORM = 10800)
INTEGER            NXMAX              (NXMAX = 361)
INTEGER            NYMAX              (NYMAX = 181)
INTEGER            NUVZMAX            (NUVZMAX = 61)
INTEGER            NWZMAX             (NWZMAX = 61)
INTEGER            NZMAX              (NZMAX = 61)
INTEGER            NCONVLEVMAX        (NCONVLEVMAX = NUVZMAX-1)
INTEGER            MAXNESTS           (MAXNESTS = 1)
INTEGER            NXMAXN             (NXMAXN = 1)
INTEGER            NYMAXN             (NYMAXN = 1)
INTEGER            JPACK              (JPACK = 4*NXMAX*NYMAX)
INTEGER            MAXXGRID           (MAXXGRID = 180)
INTEGER            MAXYGRID           (MAXYGRID = 90)
INTEGER            MAXXGRIDN          (MAXXGRIDN = 1)
INTEGER            MAXYGRIDN          (MAXYGRIDN = 1)
INTEGER            MAXAGECLASS        (MAXAGECLASS = 1)
INTEGER            MAXZGRID           (MAXZGRID = 14)
INTEGER            NCLASSUNC          (NCLASSUNC = 10)
INTEGER            MAXRECEPTOR        (MAXRECEPTOR = 200)
INTEGER            MAXPART            (MAXPART = 1000000)
INTEGER            MAXPOINT           (MAXPOINT = 10000)
INTEGER            MAXSPEC            (MAXSPEC = 1)
INTEGER            MAXPOINTSPEC       (MAXPOINTSPEC = MAXSPEC)
INTEGER            MAXWF              (MAXWF = 50000)
INTEGER            MAXTABLE           (MAXTABLE = 1000)
INTEGER            NUMCLASS           (NUMCLASS = 9)
INTEGER            NI                 (NI = 11)
INTEGER            MAXCOLUMN          (MAXCOLUMN = 3000)
INTEGER            MAXRAND            (MAXRAND = 2000000)
REAL               PI                 (PI = 3.14159265)
Local Variables (+ indicates altered content)
INTEGER           +IX,        +IX1,       +IX2,       +IXAVE
INTEGER           +IXS,       +JY,        +JY1,       +JY2
INTEGER           +JYAVE,     +K,         +K1,        +K2
INTEGER           +KZ,        +KZAVE
REAL              +XMEAN,     +YMEAN
Referenced Common Block Variables (+ indicates altered content)
GLOBALI            INTEGER            NSPEC,     NUMXGRID
GLOBALI            INTEGER            NUMYGRID,  NUMZGRID
GLOBALI            INTEGER            NX,        NXMIN1
GLOBALR            DOUBLE PRECISION   XTRA1(MAXPART)
GLOBALR            DOUBLE PRECISION   YTRA1(MAXPART)
GLOBALR            REAL               DX,        DXOUT
GLOBALR            REAL               DY,        DYOUT
GLOBALR            REAL              +FLUXD(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL              +FLUXE(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL              +FLUXN(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL              +FLUXS(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL              +FLUXU(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL              +FLUXW(0:MAXXGRID-1,0:MAXYGRID-1,MAXZGRID,MAXSPEC,MAXAGECLASS)
GLOBALR            REAL               OUTHEIGHT(MAXZGRID)
GLOBALR            REAL               OUTHEIGHTHALF(MAXZGRID)
GLOBALR            REAL               XMASS1(MAXPART,MAXSPEC)
GLOBALR            REAL               XOUTSHIFT
GLOBALR            REAL               YOUTSHIFT
GLOBALR            REAL               ZTRA1(MAXPART)