COMMON /AIM_CO2RAD/ aim_pCO2
_RL aim_pCO2
aim_pCO2 = atm_pCO2
aim_pCO2 = aim_fixed_pCO2
& + aim_abs_pCO2*LOG( aim_pCO2/aim_ref_pCO2 )