SUBROUTINE GETRC ( NC, I, J, T, GR, RH, RR, RC )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J,          NC
REAL               GR,        +RC(MAXSPEC),            RH
REAL               RR,         T
Description
                     i  i i i i  i  i  o 
 
 
 Calculation of the surface resistance according to the procedure give 
 in: 
 Wesely (1989): Parameterization of surface resistances to gaseous 
 dry deposition in regional-scale numerical models. 
 Atmos. Environ. 23, 1293-1304. 
 
 
     AUTHOR: Andreas Stohl, 19 May 1995 
 
 
 
Variables: 
 
reldiff(maxspec)  diffusivity of H2O/diffusivity of component i 
gr [W/m2]       global radiation 
i               index of seasonal category 
j               index of landuse class 
ldep(maxspec)          1, if deposition shall be calculated for specie 
nc                   actual number of chemical components 
rcl(maxspec,5,8) [s/m] Lower canopy resistance 
rgs(maxspec,5,8) [s/m] Ground resistance 
rlu(maxspec,5,8) [s/m] Leaf cuticular resistance 
rm(maxspec) [s/m]      Mesophyll resistance 
t [C]           temperature
Source file:getrc.f
Intrinsic Functions Called
GENERIC            EXP
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           +IC
REAL              +CORR,      +RCLC,      +RDC,       +RGSC
REAL              +RLUC,      +RLUO,      +RS,        +RSM
Referenced Common Block Variables (+ indicates altered content)
GLOBALR            REAL               F0(MAXSPEC)
GLOBALR            REAL               HENRY(MAXSPEC)
GLOBALR            REAL               RAC(5,NUMCLASS)
GLOBALR            REAL               RCL(MAXSPEC,5,NUMCLASS)
GLOBALR            REAL               RELDIFF(MAXSPEC)
GLOBALR            REAL               RGS(MAXSPEC,5,NUMCLASS)
GLOBALR            REAL               RI(5,NUMCLASS)
GLOBALR            REAL               RLU(MAXSPEC,5,NUMCLASS)
GLOBALR            REAL               RM(MAXSPEC)