PR changes 1

Author: dhyan1272

src/pmpo_MPMesh.cpp

@@ -296,7 +296,7 @@ void MPMesh::T2LTracking(Vec2dView dx){
     p_MPs->parallel_for(T2LCalc,"T2lTrackingCalc");
 }
 
-void MPMesh::reconstructSlices() {    
+void MPMesh::reconstructSlices() {
     if (reconstructSlice.size() == 0) return;
     Kokkos::Timer timer;
     calcBasis();

src/pmpo_MPMesh_assembly.hpp

@@ -102,7 +102,7 @@ void MPMesh::assemblyElm0() {
 template <MeshFieldIndex meshFieldIndex>
 void MPMesh::assemblyVtx1() {
 
-  //Mesh Inforamtion
+  //Mesh Information
   auto elm2VtxConn = p_mesh->getElm2VtxConn();  
   int numVtx = p_mesh->getNumVertices();
   auto vtxCoords = p_mesh->getMeshField<polyMPO::MeshF_VtxCoords>();

src/pmpo_c.cpp

@@ -925,7 +925,7 @@ void polympo_push_f(MPMesh_ptr p_mpmesh){
 }
 
 //TODO skeleton of reconstruction functions
-void polympo_setReconstructionOfMass_f(MPMesh_ptr p_mpmesh, const int order, const int meshEntType){ 
+void polympo_setReconstructionOfMass_f(MPMesh_ptr p_mpmesh, const int order, const int meshEntType){
   checkMPMeshValid(p_mpmesh);
   auto mpmesh = ((polyMPO::MPMesh*)p_mpmesh);
   polyMPO::MeshFieldType type = static_cast<polyMPO::MeshFieldType>(meshEntType);

test/calculateDisplacement.f90

@@ -11,13 +11,13 @@ subroutine calcSurfDispIncr(mpMesh, latVertex, lonVertex, nEdgesOnCell, vertices
   integer :: i, j, nVertices, nCompsDisp, scale_use
   real(kind=MPAS_RKIND), dimension(:,:), pointer :: dispIncr
   type(c_ptr) :: mpMesh
-  INTEGER, INTENT(IN), OPTIONAL :: scale
+  integer, intent(in), optional :: scale
 
-  IF (PRESENT(scale)) THEN
+  if (present(scale)) then
     scale_use=scale
-  ELSE
+  else
     scale_use=1
-  END IF
+  end if
 
   nCompsDisp = 2
   allocate(dispIncr(nCompsDisp,nVertices))