nyearsRL=float(nyearsINT)
call ECCO_DIV(xx_gen,1,nyearsRL,myThid)
_RL nyearsRL
call ECCO_DIV(active_tmp,nnzbar,nyearsRL,myThid)