1 |
jscott |
1.1 |
parameter(nlat=N_LAT,nlatp1=nlat+1) |
2 |
|
|
REAL pC_atm,TCO2_ml,pC_mla,WIND,TEMP,DIC_ml,area_ml, |
3 |
|
|
&volume_ml,ED,DZ,DZO,R,Flux_atm_ml,dpCO2_atm_ml,depth_ml, |
4 |
|
|
&Vpiston,diff_amp,Henry,K1,K2,Kb,Kw,H,HZ,pH,HCO3_ml,CO3_ml, |
5 |
|
|
&CO2_ml,Hguess,AlkC,AlkB,AlkS,AlkW |
6 |
|
|
|
7 |
|
|
COMMON /comvar_carb/TCO2_ml(nlat),pC_mla(nlat), |
8 |
|
|
&DIC_ml(nlat), |
9 |
|
|
&volume_ml(nlat), |
10 |
|
|
&Flux_atm_ml(nlat),dpCO2_atm_ml(nlat), |
11 |
|
|
&Vpiston(nlat),diff_amp,Henry(nlat),K1(nlat), |
12 |
|
|
&K2(nlat),Kb(nlat),Kw(nlat),H(nlat),HZ(nlat),pH(nlat), |
13 |
|
|
&HCO3_ml(nlat),CO3_ml(nlat),CO2_ml(nlat), |
14 |
|
|
&AlkC(nlat),AlkB(nlat),AlkS(nlat),AlkW(nlat) |
15 |
|
|
|
16 |
|
|
CB Gary commons for Gary |
17 |
|
|
common/Garyclim/temp(nlat),wind(nlat),area_ml(nlat),area_srf(nlat) |
18 |
|
|
common/Garydiff/depth_ml(nlat),edzon(nlat),dzg(lmo),dzog(lmo-1), |
19 |
|
|
&Rco2(nlat,lmo) |
20 |
|
|
common /Garyav/RCO2av(nlat,lmo),pC_atmav(nlat),pC_mlaav(nlat), |
21 |
|
|
&Flux_atm_mlav(nlat),Hav(nlat), |
22 |
|
|
&DIC_mlav(nlat),TCO2_mlav(nlat),AlkCav(nlat), |
23 |
|
|
&AlkBav(nlat),AlkSav(nlat),AlkWav(nlat), |
24 |
|
|
&CO2av(nlat),CO3av(nlat),ncallgary |
25 |
|
|
real * 4 RCO2av,pC_atmav,pC_mlaav, |
26 |
|
|
&Flux_atm_mlav,Hav, |
27 |
|
|
&DIC_mlav,TCO2_mlav,AlkCav, |
28 |
|
|
&AlkBav,AlkSav,AlkWav, |
29 |
|
|
&CO2av,CO3av |
30 |
|
|
common /Garyflux/pC_atm(nlat),wind_amp,fluxco2(nlat) |
31 |
|
|
common /Garychem/Hguess(nlat) |
32 |
|
|
CE Gary commons for Gary |