remove implicits from TernarySolveTrack

MODFLOW-USGS · Jan 24, 2024 · c10b0b8 · c10b0b8
1 parent 93bf0a8
commit c10b0b8
Show file tree

Hide file tree

Showing 2 changed files with 134 additions and 74 deletions.
diff --git a/src/Solution/ParticleTracker/MethodSubcellTernary.f90 b/src/Solution/ParticleTracker/MethodSubcellTernary.f90
@@ -143,12 +143,10 @@ subroutine track_subcell(this, subcell, particle, tmax)
     ! kluge note: can probably avoid calculating alpexit
     ! here in many cases and wait to calculate it later,
     ! once the final trajectory time is known
-    call traverse_triangle(ntmax, nsave, diff, rdiff, &
-                           isolv, tol, step, &
+    call traverse_triangle(isolv, tol, step, &
                            dtexitxy, alpexit, betexit, &
                            itrifaceenter, itrifaceexit, &
                            rxx, rxy, ryx, ryy, &
-                           sxx, sxy, syy, &
                            alp0, bet0, alp1, bet1, alp2, bet2, alpi, beti, &
                            vziodz, az, lbary)