From 39a3e72b5125a439d54fa2e596dae106060b8559 Mon Sep 17 00:00:00 2001 From: Angelyr Date: Fri, 12 Jul 2024 07:33:47 -0700 Subject: [PATCH] rename advection test --- test/testFortranMPAdvection.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/test/testFortranMPAdvection.f90 b/test/testFortranMPAdvection.f90 index 5dcc761a..8f1a7227 100644 --- a/test/testFortranMPAdvection.f90 +++ b/test/testFortranMPAdvection.f90 @@ -1,7 +1,7 @@ -module advectionTesting +module advectionTests contains include "calculateDisplacement.f90" - subroutine advectionTest(mpMesh, numPush, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius) + subroutine runAdvectionTest(mpMesh, numPush, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius) use :: polympo use :: readMPAS use :: iso_c_binding @@ -29,7 +29,7 @@ program main use :: polympo use :: readMPAS use :: iso_c_binding - use :: advectionTesting + use :: advectionTests implicit none include 'mpif.h' @@ -174,7 +174,7 @@ program main call polympo_setMPRotLatLon(mpMesh,2,numMPs,c_loc(mpLatLon)) call polympo_setMPPositions(mpMesh,3,numMPs,c_loc(mpPosition)) - call advectionTest(mpMesh, numPush, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius) + call runAdvectionTest(mpMesh, numPush, latVertex, lonVertex, nEdgesOnCell, verticesOnCell, nVertices, sphereRadius) call polympo_summarizeTime();