& atpco2
_RL atpco2
atpco2 = total_atmos_carbon/total_atmos_moles
& total_atmos_carbon, atpco2
atm_pCO2 = atpco2
atpco2 = dic_pCO2
atpco2 = 0. _d 0
atpco2 = tmpFld(2)
tmpFld(2) = atpco2v
tmpFld(2) = atpco2