_RL total_atmos_carbon
& total_atmos_carbon, total_ocean_carbon,
total_atmos_carbon_old = total_atmos_carbon
total_atmos_carbon = total_atmos_carbon - total_flux
atpco2 = total_atmos_carbon/total_atmos_moles
& total_atmos_carbon, atpco2
total_carbon = total_atmos_carbon + total_ocean_carbon
year_diff_atmos = total_atmos_carbon-total_atmos_carbon_year
year_total = (total_ocean_carbon+total_atmos_carbon) -
start_diff_atmos = total_atmos_carbon-total_atmos_carbon_start
start_total = (total_ocean_carbon+total_atmos_carbon) -
total_atmos_carbon_year = total_atmos_carbon
total_atmos_carbon = total_atmos_moles*dic_pCO2
total_atmos_carbon_start = total_atmos_carbon
total_atmos_carbon = 0. _d 0
total_atmos_carbon = tmpFld(1)
tmpFld(1) = total_atmos_carbonv
tmpFld(1) = total_atmos_carbon