& atmpCO2init, Aim_CO2_Flag
_RL atmpCO2init
atm_pCO2 = atmpCO2init
NAMELIST //AIM_PAR_CO2 atmpCO2init, Aim_CO2_Flag
atmpCO2init = 326. _d -6
CALL WRITE_0D_RL( atmpCO2init, INDEX_NONE,