c****************************************************************************
c
c       atmref.cmn
c
c       Common blocks of constants and variables for the model atmosphere
c
c       jan 2007 Malv+gg        Addition ions 
c       2003    FGG             Double precision
c       JAN 98  MALV            First version
c****************************************************************************


c Subgrid atmosphere interpolated from /atmx/ actually used by the some
c modules, particularly by the NLTE ones
c
        common /atm_nl/ zl, t, pl, sh, nt, co2, n2, co, o3p, o2, h2, ar,
     @    co2vmr, n2vmr, covmr, o3pvmr, o2vmr, h2vmr, arvmr,
     @    nvmr, novmr, 
     @    hrkday_factor

        real zl(nl), t(nl), pl(nl), nt(nl),  sh(nl),
     @    co2(nl), n2(nl), co(nl), o3p(nl), o2(nl), h2(nl), ar(nl),
     @    co2vmr(nl), n2vmr(nl), covmr(nl), o3pvmr(nl), o2vmr(nl),
     @    h2vmr(nl), arvmr(nl), 
     @    nvmr(nl), novmr(nl), hrkday_factor(nl)

c Subgrid atmosphere obtained from the input atmosphere and limited to the
c NLTE grid. Only used for computing transmitances. 
c
        common /atm_ny/ zy, ty, py, nty, co2y, coy
        real zy(nzy), ty(nzy), py(nzy), nty(nzy), co2y(nzy), coy(nzy)

c
	common/deltazetas/ deltaz, deltazy, 
     @        jlowerboundary, jtopboundary
	real    deltaz, deltazy
	integer jlowerboundary, jtopboundary


c****************************************************************************