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