INTEGER prec, rec_ind
rec_ind=0
& fluxCO2cpl, rec_ind+1, myIter, myThid )
rec_ind = rec_ind+1
& fluxCO2cpl, rec_ind, myIter, myThid )