CALL GLOBAL_MAX_R8(tins,myThid)
CALL GLOBAL_MAX_R8(ETmax,myThid)
CALL GLOBAL_MAX_R8(RC_start_tins,myThid)
CALL GLOBAL_MAX_R8 (max_icfl, myThid)
CALL GLOBAL_MAX_R8 (err_max, myThid)
SUBROUTINE GLOBAL_MAX_R8(