| 1 | #if defined key_gosac |
|---|
| 2 | !! |
|---|
| 3 | !! tracer background: xinitri |
|---|
| 4 | !! -------------------------- |
|---|
| 5 | real xinitri |
|---|
| 6 | common/cxinitri/xinitri |
|---|
| 7 | |
|---|
| 8 | !! Gas exchange variables and settings |
|---|
| 9 | !! ----------------------------------- |
|---|
| 10 | REAL patm(jpi,jpj), kwco2(jpi,jpj), & |
|---|
| 11 | pco2(jpi,jpj,jptra),ppres(jpi,jpj,12), & |
|---|
| 12 | pco2m(jpi,jpj,jptra),dpco2m(jpi,jpj,jptra), & |
|---|
| 13 | trnm(jpi,jpj,jpk,jptra),alkm(jpi,jpj,jpk), & |
|---|
| 14 | dicm(jpi,jpj,jptra),dicmi(jpi,jpj,jptra), & |
|---|
| 15 | dicm1(jptra),dicm3(jptra),pco2m1,dpco2m1, & |
|---|
| 16 | dicm14(2) |
|---|
| 17 | COMMON /gasexch/ patm,kwco2,pco2,ppres,pco2m,dpco2m,trnm, & |
|---|
| 18 | dicm,dicmi,dicm1,dicm3,pco2m1,dpco2m1,dicm14 |
|---|
| 19 | |
|---|
| 20 | |
|---|
| 21 | !! Co2 system |
|---|
| 22 | !!--------- |
|---|
| 23 | REAL alk(jpi,jpj,jpk),smoy,co2star(jpi,jpj,jptra), & |
|---|
| 24 | co2starair(jpi,jpj,jptra) |
|---|
| 25 | REAL drtsafe,sit,scco2(jpi,jpj),st(jpi,jpj),ft(jpi,jpj) |
|---|
| 26 | REAL dic(jpi,jpj,jptra),ta_kbr(jpi,jpj),borat(jpi,jpj) |
|---|
| 27 | REAL hi(jpi,jpj,jptra),alkc(jpi,jpj,jptra) |
|---|
| 28 | COMMON/sysco2/alk,smoy,co2star,co2starair,drtsafe, & |
|---|
| 29 | sit,scco2,st,ft,borat,dic,ta_kbr, & |
|---|
| 30 | hi,alkc |
|---|
| 31 | |
|---|
| 32 | REAL ks(jpi,jpj),k0,k1(jpi,jpj),k2(jpi,jpj),kw(jpi,jpj) |
|---|
| 33 | REAL kb(jpi,jpj),kf(jpi,jpj) |
|---|
| 34 | REAL k1p(jpi,jpj),k2p(jpi,jpj),k3p(jpi,jpj),ksi(jpi,jpj) |
|---|
| 35 | common/cstsysco2/ks,k0,k1,k2,kw,k1p,k2p,k3p,ksi,kf,kb |
|---|
| 36 | !! |
|---|
| 37 | !! flux air-mer et flux virtuel |
|---|
| 38 | !!--------------------------- |
|---|
| 39 | |
|---|
| 40 | REAL qtr(jpi,jpj,jptra),qtrv(jpi,jpj,jptra), & |
|---|
| 41 | qtcum(jpi,jpj,jptra),qtvcum(jpi,jpj,jptra) |
|---|
| 42 | REAL jsum(jptra) |
|---|
| 43 | REAL jsumv(jptra) |
|---|
| 44 | REAL trnmoy(jptra),correct |
|---|
| 45 | REAL flsum(jptra),flvsum(jptra) |
|---|
| 46 | REAL atcm(jptra) |
|---|
| 47 | REAL qtrm(jpi,jpj,jptra),qtrvm(jpi,jpj,jptra) |
|---|
| 48 | REAL fdecay(jpi,jpj,jpk),dcum(jpi,jpj,jpk) |
|---|
| 49 | INTEGER datedeb, istart, nan, mois, jour |
|---|
| 50 | COMMON/cflux/ qtr, qtrv, qtcum, datedeb, istart, nan, mois, jour, & |
|---|
| 51 | trnmoy,correct,jsum,jsumv, & |
|---|
| 52 | flsum,atcm,qtvcum, & |
|---|
| 53 | qtrm,qtrvm,fdecay,dcum |
|---|
| 54 | |
|---|
| 55 | |
|---|
| 56 | REAL bt (jpi,jpj,jpk),area(jpi,jpj) |
|---|
| 57 | rlareak(jpk), rlvolk(jpk), rlvolume, & |
|---|
| 58 | COMMON/cenerg/bt,area,rlareak,rlvolk,rlvolume |
|---|
| 59 | |
|---|
| 60 | !! variables used for the wind:TEMPORARY! REMOVE! |
|---|
| 61 | REAL xkw(jpi,jpj),wind(jpi,jpj,12),fice(jpi,jpj) |
|---|
| 62 | COMMON/cvent/xkw,wind,fice |
|---|
| 63 | |
|---|
| 64 | REAL xmatco2(jptra),watmos,wco2,xmatmos |
|---|
| 65 | CHARACTER*8 fscen |
|---|
| 66 | COMMON/catm/xmatco2,watmos,wco2,xmatmos,fscen |
|---|
| 67 | |
|---|
| 68 | INTEGER nco2rec, nc14rec(nzon), latzon(jpi,jpj) |
|---|
| 69 | INTEGER nsite,imsit(jptra),jmsit(jptra),kmsit(jptra) |
|---|
| 70 | REAL yrco2rec(maxrec), atmco2rec(maxrec) |
|---|
| 71 | REAL yrc14rec(maxrec14,nzon), atmc14rec(maxrec14,nzon) |
|---|
| 72 | REAL gabsyr0,gabsyr1 |
|---|
| 73 | REAL month_model,day_model |
|---|
| 74 | REAL year_model,emico2rec(maxrec),year_model0 |
|---|
| 75 | REAL atmco2_t(jptra),emico2_t(jptra) |
|---|
| 76 | REAL atmc14_t(nzon),atmc14(jpi,jpj) |
|---|
| 77 | REAL fagos,pumpgos,zinject,analt(100),analt1(100) |
|---|
| 78 | LOGICAL lfiratm |
|---|
| 79 | |
|---|
| 80 | COMMON/parhist/nco2rec, yrco2rec, atmco2rec, & |
|---|
| 81 | emico2rec,nc14rec,yrc14rec, & |
|---|
| 82 | atmc14rec,atmc14,latzon, & |
|---|
| 83 | year_model,atmco2_t,emico2_t,year_model0,lfiratm |
|---|
| 84 | |
|---|
| 85 | COMMON/cgosac/ gabsyr0,gabsyr1,nsite,imsit, & |
|---|
| 86 | jmsit,kmsit,fagos,pumpgos,zinject, & |
|---|
| 87 | analt,analt1 |
|---|
| 88 | |
|---|
| 89 | #endif |
|---|
