cc------------------------------------------------------------------
      parameter (NTRACMAX = 100)
      integer      forctr(NTRACMAX)
      common /new_trac_data/forctr

c---arrays for weiss roether input fct.
      parameter(newr=24,jewr=32,neextr=11)
      common/timwr/ souryr(newr),cp50n(newr),
     *  cp50s(newr),cr50n(newr),
     *  sp50n(newr),sp50s(newr),sr50n(newr),
     *  cr50ne(neextr),yrextr(neextr)   
      common/regwr/ souphi(jewr),soue(jewr,3),soup(jewr,3),
     *  sourr(jewr,3),sourv(jewr,3),sousp(jewr,3),
     *  soua(jewr,3),soudep(jewr,3),
     *  souiep(jewr,3),souir(jewr,3),souiv(jewr,3)
      common/conwr/ireawr

c---arrays for doney et al. precip. tritium data
      parameter(nedon=27,iedon=72,jedon=90)
      common/timdon/ donyr(nedon),cptdon(nedon,2)
      common/regdon/ phidon(jedon),rladon(jedon),
     *               cpdon(iedon,jedon),
     *               zcpdon(jedon),zwrcp(jewr),
c     *               fdon(iedon,jedon,2)
c     *               am(iedon,jedon),phz(iedon,jedon),
     *               cpann(iedon,jedon),cpmon(iedon,jedon),
     *               fdon1(iedon,jedon),fdon2(iedon,jedon)
      common/condon/ireadon

      character*80 fdoney, fdonrh, fdonevp, fdonprcp, fdonabwn,
     *                  fdonf1, fdonf2, fdonam, fdonphz
      integer      n_doney, n_rdonrh, n_rdonevp, n_rdonprcp,
     *               n_rdonabwn,
     *               n_donf1, n_donf2, n_donam, ndon_phz,
     *               idoney, idf_donrh, idf_donevp, idf_donprcp,
     *               idf_donabwn,
     *               idf_donf1, idf_donf2, idf_donam, idf_donphz,
     *               nevap, levap, lprecip, lrhum, labwn,
     *               ldonf1, ldonf2, ldonam, ldonphz
      dimension    efac1(1),efac2(1),evap(1),precip(1),relhum(1),
     *             abswin(1), rk(1), cp(1), evaflu(1), source(1),
     *             trtflx(1), tdoney(1),
     *             donf1(1),donf2(1),donam(1),donphz(1),
     *             trtflx1(1),trtflx2(1),trtflx3(1)
      pointer   (p_efac1,efac1), (p_efac2,efac2), (p_evap,evap),
     *          (p_precip,precip), (p_relhum,relhum), (p_abswin,abswin),
     *          (p_rk,rk), (p_cp,cp),
     *          (p_evaflu,evaflu), (p_trtflx, trtflx), (p_source, source),
     *          (p_trtflx1,trtflx1), (p_trtflx2,trtflx2),
     *          (p_trtflx3,trtflx3), 
     *          (p_tdoney, tdoney),
     *          (p_donf1,donf1),(p_donf2,donf2),
     *          (p_donam,donam),(p_donphz,donphz)
      common /hydrol/ p_efac1, p_efac2, p_evap, 
     *                p_precip, p_relhum, p_abswin, p_rk, p_cp,
     *                p_evaflu, p_trtflx, p_source, p_tdoney,
     *                p_donf1, p_donf2, p_donam, p_donphz,
     *                p_trtflx1, p_trtflx2, p_trtflx3, 
     *                fdoney, fdonrh, fdonevp, fdonprcp,
     *                fdonabwn,
     *                fdonf1, fdonf2, fdonam, fdonphz,
     *                n_doney, n_rdonrh, n_rdonevp, n_rdonprcp,
     *                n_rdonabwn,
     *                n_donf1, n_donf2, n_donam, ndon_phz,
     *                idoney, idf_donrh, idf_donevp, idf_donprcp,
     *                idf_donabwn,
     *                idf_donf1, idf_donf2, idf_donam, idf_donphz,
     *                nevap, levap, lprecip, lrhum, labwn,
     *               ldonf1, ldonf2, ldonam, ldonphz

      real trit_vap_ratio, fralpha
      common /tritium_parameters/ trit_vap_ratio, fralpha
cc------------------------------------------------------------------

      integer ihfprt
      real hfprt_amp,hfprt_lat
      common /pert_heatflux/ ihfprt, hfprt_amp, hfprt_lat
      

c      real gauss_radius,gauss_depth,gauss_lon,gauss_lat
c      common /gauss_trac/ gauss_radius,gauss_depth,gauss_lon,gauss_lat

      character*80       fatf,name_temporary, name_temporary2
      integer            n_atm,init_tr,ibncnt,ntrcont,
     *     idtrcon, ifilt_tr, iforc_tr, icorr_tr, iatm_c14, 
     *     ipp_tr, nt_tratm, nlat_tratm, itanom_init
      real               TR_BOT, factor_c14, co2geflx
      common /new_trac/  fatf,n_atm,init_tr,TR_BOT,
     *     ibncnt,ntrcont,idtrcon, ifilt_tr, iforc_tr, icorr_tr, iatm_c14,
     *     nt_tratm, nlat_tratm, name_temporary, name_temporary2,
     *     ipp_tr, itanom_init, factor_c14, co2geflx

      integer icl_tr
      common /clim_trac/ icl_tr

      character*80       fwsgas
      integer   n_ws_gas,idf_wstr,nt_wsgas,igas_ex
      common    /tracer_wspeed/ fwsgas,idf_wstr,n_ws_gas,nt_wsgas,igas_ex


      dimension tr_atm(1),tr_tgrid(1),tr_latgrid(1)
      pointer   (p_tr_atm,tr_atm),(p_tr_tgrid,tr_tgrid)
      pointer   (p_tr_latgrid,tr_latgrid)
      common /tracer_stuff/ p_tr_atm, p_tr_tgrid, p_tr_latgrid

      dimension trclim(1), ztrclim(1)
      pointer   (p_trclim, trclim), (p_ztrclim, ztrclim)
      common /tracer_clim/ p_trclim, p_ztrclim

      real biomin, chs, expar, redf_no3_tco2, redf_no3_o2, dpml, bio_factor
      common /tracer_bio/ biomin, chs, expar, redf_no3_tco2,
     *        redf_no3_o2, dpml, biofactor

      real  f11_a1,f11_a2,f11_a3,f11_a4,f11_b1,f11_b2,f11_b3,
     *      f12_a1,f12_a2,f12_a3,f12_a4,f12_b1,f12_b2,f12_b3
      common /tracer_cfc/f11_a1,f11_a2,f11_a3,f11_a4,f11_b1,f11_b2,f11_b3,
     *                   f12_a1,f12_a2,f12_a3,f12_a4,f12_b1,f12_b2,f12_b3

      dimension tramt(1),trfirst(1),ibn(1)
      pointer (p_tramt,tramt),(p_trfirst,trfirst),(p_ibn,ibn)
      common /tracer_arrays/ p_tramt,p_trfirst,p_ibn

      integer itrac_cons
      dimension vollev(1),trlev(1),sqrlev(1)
      pointer (p_vollev,vollev),(p_trlev,trlev),(p_sqrlev,sqrlev)
      common  /tracer_cons/ p_vollev, p_trlev, p_sqrlev, itrac_cons

      real windm0,windz0
      common  /windmixing/ windm0,windz0

c---- end of comm_new.h -------------------------------------------