Searched refs:vel_p (Results 1 – 1 of 1) sorted by relevance
735 PetscScalar vel_n[NSD * NODES_PER_EL], vel_p[NSD]; in MaterialPoint_AdvectRK1() local770 vel_p[0] = vel_p[1] = 0.0; in MaterialPoint_AdvectRK1()772 vel_p[0] += Ni[i] * vel_n[NSD * i + 0]; in MaterialPoint_AdvectRK1()773 vel_p[1] += Ni[i] * vel_n[NSD * i + 1]; in MaterialPoint_AdvectRK1()776 coor_p[0] += dt * PetscRealPart(vel_p[0]); in MaterialPoint_AdvectRK1()777 coor_p[1] += dt * PetscRealPart(vel_p[1]); in MaterialPoint_AdvectRK1()