COMMON /AIM_CO2VAR/ 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