calcSurfDispIncr

SCOREC · Jul 9, 2024 · 75063fa · 75063fa
1 parent 73eaac7
commit 75063fa
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/test/calculateDisplacement.f90 b/test/calculateDisplacement.f90
@@ -1,4 +1,4 @@
-subroutine calculateSurfaceDisplacement(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
+subroutine calcSurfDispIncr(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
   use :: polympo
   use :: readMPAS
   use :: iso_c_binding

diff --git a/test/testFortranMPAdvection.f90 b/test/testFortranMPAdvection.f90
@@ -139,11 +139,11 @@ program main
 
   numPush = 5
   do i = 1, numPush
-    call calculateSurfaceDisplacement(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
+    call calcSurfDispIncr(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
     call polympo_push(mpMesh)
     ! TODO: add timer 
   end do
-  
+
   call polympo_deleteMPMesh(mpMesh)
   call polympo_finalize()
 

diff --git a/test/testFortranMPReconstruction.f90 b/test/testFortranMPReconstruction.f90
@@ -120,7 +120,7 @@ program main
 
   ! Test elm push reconstruction
 
-  call calculateSurfaceDisplacement(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
+  call calcSurfDispIncr(mpMesh, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius)
   call polympo_setReconstructionOfMass(mpMesh,0,polympo_getMeshFElmType())
   call polympo_push(mpMesh)
   call polympo_getMeshElmMass(mpMesh,nCells,c_loc(meshElmMass))