_RL total_atmos_moles
PARAMETER ( total_atmos_moles = 1.77D20 )
atm_CO2_Moles = atm_pCO2 * total_atmos_moles
atm_pCO2 = atm_CO2_Moles / total_atmos_moles
atpco2 = total_atmos_carbon/total_atmos_moles
total_atmos_moles = 1.77 _d 20
total_atmos_carbon = total_atmos_moles*dic_pCO2