& gsm_c14,permil,Pa2Atm
_RL permil
pt=pt*permil
sit=sit*permil
ta=ta*permil
diclocal=diclocal*permil
pt=pt/permil
sit=sit/permil
ta=ta/permil
diclocal=diclocal/permil
permil = 1. _d 0 / 1024.5 _d 0
CALL WRITE_0D_RL( permil, INDEX_NONE,'permil =',
NAMELIST //ABIOTIC_PARMS permil, Pa2Atm
FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil