#if defined key_gosac
!!
!!     tracer background: xinitri
!!     --------------------------
        real xinitri
       common/cxinitri/xinitri

!! Gas exchange variables and settings
!! -----------------------------------
      REAL      patm(jpi,jpj), kwco2(jpi,jpj),  &
        pco2(jpi,jpj,jptra),ppres(jpi,jpj,12),  &
        pco2m(jpi,jpj,jptra),dpco2m(jpi,jpj,jptra),  &
        trnm(jpi,jpj,jpk,jptra),alkm(jpi,jpj,jpk),  &
        dicm(jpi,jpj,jptra),dicmi(jpi,jpj,jptra),  &
        dicm1(jptra),dicm3(jptra),pco2m1,dpco2m1,  &
        dicm14(2)
      COMMON /gasexch/ patm,kwco2,pco2,ppres,pco2m,dpco2m,trnm,  &
                      dicm,dicmi,dicm1,dicm3,pco2m1,dpco2m1,dicm14


!! Co2 system
!!---------
      REAL alk(jpi,jpj,jpk),smoy,co2star(jpi,jpj,jptra),  &
           co2starair(jpi,jpj,jptra)
      REAL drtsafe,sit,scco2(jpi,jpj),st(jpi,jpj),ft(jpi,jpj)
      REAL dic(jpi,jpj,jptra),ta_kbr(jpi,jpj),borat(jpi,jpj)
      REAL hi(jpi,jpj,jptra),alkc(jpi,jpj,jptra)
      COMMON/sysco2/alk,smoy,co2star,co2starair,drtsafe, & 
                   sit,scco2,st,ft,borat,dic,ta_kbr, &
                   hi,alkc

      REAL ks(jpi,jpj),k0,k1(jpi,jpj),k2(jpi,jpj),kw(jpi,jpj)
      REAL kb(jpi,jpj),kf(jpi,jpj)
      REAL k1p(jpi,jpj),k2p(jpi,jpj),k3p(jpi,jpj),ksi(jpi,jpj)
      common/cstsysco2/ks,k0,k1,k2,kw,k1p,k2p,k3p,ksi,kf,kb
!!
!! flux air-mer et flux virtuel
!!---------------------------

      REAL qtr(jpi,jpj,jptra),qtrv(jpi,jpj,jptra), &
          qtcum(jpi,jpj,jptra),qtvcum(jpi,jpj,jptra)
      REAL          jsum(jptra)
      REAL jsumv(jptra)
      REAL          trnmoy(jptra),correct
      REAL          flsum(jptra),flvsum(jptra)
      REAL          atcm(jptra)
      REAL          qtrm(jpi,jpj,jptra),qtrvm(jpi,jpj,jptra)
      REAL          fdecay(jpi,jpj,jpk),dcum(jpi,jpj,jpk)
      INTEGER       datedeb, istart, nan, mois, jour
      COMMON/cflux/ qtr, qtrv, qtcum, datedeb, istart, nan, mois, jour, &
                    trnmoy,correct,jsum,jsumv, &
                    flsum,atcm,qtvcum, &
                    qtrm,qtrvm,fdecay,dcum


      REAL          bt (jpi,jpj,jpk),area(jpi,jpj)
                   rlareak(jpk), rlvolk(jpk), rlvolume, &
      COMMON/cenerg/bt,area,rlareak,rlvolk,rlvolume

!!          variables used for the wind:TEMPORARY! REMOVE!
      REAL         xkw(jpi,jpj),wind(jpi,jpj,12),fice(jpi,jpj)
      COMMON/cvent/xkw,wind,fice

      REAL xmatco2(jptra),watmos,wco2,xmatmos
      CHARACTER*8 fscen
      COMMON/catm/xmatco2,watmos,wco2,xmatmos,fscen

      INTEGER nco2rec, nc14rec(nzon), latzon(jpi,jpj)
      INTEGER nsite,imsit(jptra),jmsit(jptra),kmsit(jptra)
      REAL yrco2rec(maxrec), atmco2rec(maxrec)
      REAL yrc14rec(maxrec14,nzon), atmc14rec(maxrec14,nzon)
      REAL gabsyr0,gabsyr1
      REAL month_model,day_model
      REAL year_model,emico2rec(maxrec),year_model0
      REAL atmco2_t(jptra),emico2_t(jptra)
      REAL atmc14_t(nzon),atmc14(jpi,jpj)
      REAL fagos,pumpgos,zinject,analt(100),analt1(100)
      LOGICAL lfiratm
      
      COMMON/parhist/nco2rec, yrco2rec, atmco2rec, &
             emico2rec,nc14rec,yrc14rec, &
             atmc14rec,atmc14,latzon, &
             year_model,atmco2_t,emico2_t,year_model0,lfiratm
 
      COMMON/cgosac/ gabsyr0,gabsyr1,nsite,imsit, &
       jmsit,kmsit,fagos,pumpgos,zinject, &
       analt,analt1

#endif