Dynamic damage model of crevasse opening and application to glacier calving