rename variabel

Author: Angelyr

test/testFortranMPAdvection.f90

@@ -13,7 +13,7 @@ subroutine setProcWedges(mpMesh, nCells, comm_size, nEdgesOnCell, verticesOnCell
     integer, dimension(:), pointer :: owningProc, nEdgesOnCell
     integer, dimension(:,:), pointer :: verticesOnCell
     real(kind=MPAS_RKIND), dimension(:), pointer :: lonCell
-    real(kind=MPAS_RKIND) :: normalizedLat, min, max
+    real(kind=MPAS_RKIND) :: normalizedLong, min, max
 
     allocate(owningProc(nCells))
 
@@ -25,8 +25,8 @@ subroutine setProcWedges(mpMesh, nCells, comm_size, nEdgesOnCell, verticesOnCell
     end do
 
     do i = 1, nCells
-      normalizedLat = (lonCell(i) - min) / (max - min) * .99
-      owningProc(i) = normalizedLat * comm_size
+      normalizedLong = (lonCell(i) - min) / (max - min) * .99
+      owningProc(i) = normalizedLong * comm_size
     end do
 
     call polympo_startMeshFill(mpMesh)