aim_CO2(I2,myThid)= atm_pCO2
COMMON /AIMCO2/ aim_CO2, aimflxCo2, Atm_CO2_Moles, atm_pCO2,
_RL atm_pCO2
atm_pCO2 = atmpCO2init
Atm_CO2_Moles = atm_pCO2 * total_atmos_moles
atm_pCO2 = Atm_CO2_Moles / total_atmos_moles
CALL WRITE_0D_RL( atm_pCO2, INDEX_NONE, 'atm_pCO2 =',
tmpco2(2)= atm_pCO2