Skip to content

Commit

Permalink
rename advection test
Browse files Browse the repository at this point in the history
  • Loading branch information
Angelyr committed Jul 12, 2024
1 parent 6657923 commit 39a3e72
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions test/testFortranMPAdvection.f90
Original file line number Diff line number Diff line change
@@ -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
Expand Down Expand Up @@ -29,7 +29,7 @@ program main
use :: polympo
use :: readMPAS
use :: iso_c_binding
use :: advectionTesting
use :: advectionTests
implicit none
include 'mpif.h'

Expand Down Expand Up @@ -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();

Expand Down

0 comments on commit 39a3e72

Please sign in to comment.