& aim_select_pCO2, aim_abs_pCO2, aim_fixed_pCO2, atmpCO2init,
aim_fixed_pCO2 = UNSET_RL
IF ( aim_fixed_pCO2.EQ.UNSET_RL ) THEN
aim_fixed_pCO2 = aim_ref_pCO2
& CALL WRITE_0D_RL( aim_fixed_pCO2, INDEX_NONE,
aim_pCO2 = aim_fixed_pCO2
_RL aim_fixed_pCO2