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 |
---|