diff --git a/test/calculateDisplacement.f90 b/test/calculateDisplacement.f90
index e87e8687..c499008b 100644
--- 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
index 4e8ead5b..9d716174 100644
--- 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
index 744ce2ca..888dfb58 100644
--- 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))