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