-
Notifications
You must be signed in to change notification settings - Fork 1
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Eg/add mesh vtx strain rate #62
base: cws/pumipicDps
Are you sure you want to change the base?
Conversation
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Looks good, some changes needed.
h_strainRate(i,3) = xyShear[i]; | ||
h_strainRate(i,4) = xzShear[i]; | ||
h_strainRate(i,5) = yzShear[i]; | ||
} |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Need to discuss this numbering, i.e., for 6 components of symmetric tensor per vertex (i.e., 0 through 5).
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
function now uses one 2d array instead of six 1d arrays.
src/pmpo_c.cpp
Outdated
@@ -699,6 +699,48 @@ void polympo_getMeshOnSurfDispIncr_f(MPMesh_ptr p_mpmesh, const int nComps, cons | |||
Kokkos::deep_copy(arrayHost, array_d); | |||
} | |||
|
|||
void polympo_setMeshVtxStrainRate_f(MPMesh_ptr p_mpmesh, const int nVertices, const double *xNormal, const double *yNormal, const double *zNormal, const double *xyShear, const double *xzShear, const double *yzShear){ |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Need to discuss if each component (of the 6 components of symmetric tensor) will be given as a separate array.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
It has been converted to take one 2d array instead
test/testFortran.f90
Outdated
@@ -139,6 +139,28 @@ program main | |||
call assert((xArray(i) .eq. i+value1), "Assert MeshVel u-component Velocity Fail") | |||
call assert((yArray(i) .eq. value2-i), "Assert MeshVel v-component Velocity Fail") | |||
end do | |||
|
|||
!VtxStrainRate needs 6 arrays, using x,y,zArrays for all 6 |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Only in this file, change 2d array Mesharray
name to Mesharray_vel
and use a new 2d array Mesharray_strainrate(numCompsStrainRate,nverts)
for "VtxStrainRate" testing with 6 values per vertex
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Changes have been made.
…d array instead of 6 1d arrays
set and get strain rate functions have been added, as well as code to test it.