A concurrent multiscale model for the thermomechanical response of polycrystalline materials