From 46aae26c55a8a9be53f7a9f5e044f9119d12ddb5 Mon Sep 17 00:00:00 2001
From: wpbonelli <wbonelli@ucar.edu>
Date: Tue, 31 Dec 2024 17:43:50 -0500
Subject: [PATCH] cleanup/comment

---
 src/Solution/ParticleTracker/MethodCellTernary.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/Solution/ParticleTracker/MethodCellTernary.f90 b/src/Solution/ParticleTracker/MethodCellTernary.f90
index 72381529286..d6447db6638 100644
--- a/src/Solution/ParticleTracker/MethodCellTernary.f90
+++ b/src/Solution/ParticleTracker/MethodCellTernary.f90
@@ -196,17 +196,16 @@ subroutine apply_mct(this, particle, tmax)
       allocate (this%xvertnext(this%nverts))
       allocate (this%yvertnext(this%nverts))
 
+      ! New origin is the corner of the cell's
+      ! bounding box closest to the old origin
       allocate (xs(this%nverts))
       allocate (ys(this%nverts))
-
       xs = cell%defn%polyvert(1, :)
       ys = cell%defn%polyvert(2, :)
-
       xO = xs(minloc(abs(xs), dim=1))
       yO = ys(minloc(abs(ys), dim=1))
-
       deallocate (xs)
-      deallocatE (ys)
+      deallocate (ys)
 
       ! Cell vertices
       do i = 1, this%nverts