COMMON /AIMCO2/ aim_CO2, aimflxCo2, Atm_CO2_Moles, atm_pCO2,
_RL Atm_CO2_Moles
Atm_CO2_Moles = atm_pCO2 * total_atmos_moles
Atm_CO2_Moles = tmpco2(1)
atm_pCO2 = Atm_CO2_Moles / total_atmos_moles
Atm_CO2_Moles = Atm_CO2_Moles - total_flux
tmpco2(1)= Atm_CO2_Moles