Real*8 RC_start_tins,RC_prev_tins
& RC_start_tins,RC_prev_tins,
& tins-RC_prev_tins,tins-RC_start_tins
& RC_start_tins)
CALL GLOBAL_MAX_R8(RC_start_tins,myThid)
RC_prev_tins=RC_start_tins