/[MITgcm]/MITgcm_contrib/jscott/igsm/inc/com_carb
ViewVC logotype

Contents of /MITgcm_contrib/jscott/igsm/inc/com_carb

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (show annotations) (download)
Fri Aug 11 19:33:31 2006 UTC (18 years, 11 months ago) by jscott
Branch: MAIN
CVS Tags: HEAD
atm2d package

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

  ViewVC Help
Powered by ViewVC 1.1.22