Friday, November 1, 2019

Amount of basalt to react with CO2 in air

I believe we will need to take CO2, SO2, NOx, etc, out of the air with powdered basalt and other alkaline rocks. You can join my group https://mewe.com/group/5dca2395b0d95521915ec355
Here is Delphi computer code that will calculate approximately how much basalt powder is needed The inputs are T (air temperature in deg C), RH in %, P (atmospheric pressure in kPa - at the coast P is about 101 kPa), ppm (parts per million of CO2 (probably 415 or more parts).
Code is below:
label 1;
var
Dair,Ma,Tk,Mv,Pv,HR,P,RH,T,Psatw,Pdair,PCO2,MCO2,
Dairkg,PercCV,PercVV,ppm,molH2O,molCO2,thirdc,mbthirdc:extended;
errors1:boolean;
calcstr1,calcstr2,calcstr3,calcstr4,calcstr5,calcstr6,calcstr7,
calcstr8,calcstr9,calcstr10,calcstr11,calcstr12,calcstr13:string[30];
begin
errors1:=false;
form21.hide;
form21.show;
try
T:=strtofloat(form21.edit1.Text);
RH:=strtofloat(form21.edit2.Text);
P:=strtofloat(form21.edit3.Text);
ppm:=strtofloat(form21.edit4.Text);
except
errors1:=true;
end;
if (errors1=true) or
(T<0) or (T>70) or (RH<1) or (RH>100) or (P<10) or (P>150) or
(ppm<100) or (ppm>2500)
then begin
form21.canvas.textout(0,100,'CHECK ENTRIES.');
goto 1
end;
Tk:=T+273.15;
Psatw:=0.61121*exp((18.678-T/234.5)*T/(257.14+T));
Pv:=Psatw*RH/100;
Pdair:=(P-Pv);
PCO2:=Pdair*ppm/1000000;
{HR:=0.622*Pv/(P-Pv);}
Mv:=Pv/(0.4615*Tk);
Ma:=(P-Pv)/(0.287*Tk);
MCO2:=PCO2/(0.1889*Tk);
HR:=Mv/Ma;
Dair:=Mv+Ma;
PercCV:=(PCO2/P)*100;
PercVV:=(Pv/P)*100;
molH2O:=Pv/(0.00831447*Tk);
molCO2:=PCO2/(0.00831447*Tk);
thirdc:=MCO2*1000000*(1/3);
mbthirdc:=thirdC*3.33333;
str(Psatw:13:4,calcstr1);
str(Pv:13:4,calcstr2);
str(HR:13:6,calcstr3);
str(Mv*1000:13:3,calcstr4);
str(Ma*1000:13:3,calcstr5);
str(Dair*1000:13:3,calcstr6);
str(MCO2*1000:13:3,calcstr7);
str(MCO2*1000000:13:2,calcstr8);
str(PercCV:13:3,calcstr9);
str(PercVV:13:3,calcstr10);
str(molCO2:13:4,calcstr11);
str(molH2O:13:4,calcstr12);
str(mbthirdc:13:1,calcstr13);
form21.canvas.textout(0,120,'Saturation vapour pressure over water (Psatwater) is: '+calcstr1+' kPa.');
form21.canvas.textout(0,150,'Pv (actual vapour pressure over water) is: '+calcstr2+' kPa.');
form21.canvas.textout(0,180,'HR (humidity ratio over water) is: '+calcstr3+' kg/kg.');
form21.canvas.textout(0,210,'Mass of vapour in one cubic metre is: '+calcstr4+' grams.');
form21.canvas.textout(0,240,'Mass of DRY air in one cubic metre is: '+calcstr5+' grams.');
form21.canvas.textout(0,270,'Density of air (includes water vapour) is: '+calcstr6+' grams per cubic metre.');
form21.canvas.textout(0,300,'Mass of carbon dioxide in one cubic metre is: '+calcstr7+' grams.');
form21.canvas.textout(0,330,'Mass of carbon dioxide in one cubic kilometre is: '+calcstr8+' tonnes.');
form21.canvas.textout(0,360,'Carbon dioxide (volume percent) is: '+calcstr9+'%.');
form21.canvas.textout(0,390,'Water vapour (volume percent) is: '+calcstr10+'%.');
form21.canvas.textout(0,420,'Moles of carbon dioxide in one cubic metre is: '+calcstr11+' mol.');
form21.canvas.textout(0,450,'Moles of water vapour in one cubic metre is: '+calcstr12+' mol.');
form21.canvas.textout(0,480,'Mass of basalt needed to take out a third of the CO2 in one cubic km is: '+calcstr13+' tonnes.');
1: end;

No comments:

Post a Comment