& tauXtime, tauYtime, EvMPrTime
_RL EvMPrTime (nSx,nSy)
U EvMPrFlux, EvMPrTime, myThid )
EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction
EvMPrTime (bi,bj) = 0.