Fix OBJ reader using j as both triangle counter and vertex index

When reading face lines, j is overwritten by the third vertex index
from the file, then used as the triangle index for model%trs(j).
Introduces a separate iv3 variable for the third vertex index.

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: sbryngelson

src/common/m_model.fpp

@@ -225,7 +225,7 @@ contains
         character(LEN=*), intent(in) :: filepath
         type(t_model), intent(out) :: model
 
-        integer :: i, j, k, l, iunit, iostat, nVertices
+        integer :: i, j, k, l, iv3, iunit, iostat, nVertices
 
         real(wp), dimension(1:3), allocatable :: vertices(:, :)
 
@@ -274,10 +274,10 @@ contains
                 read (line(3:), *) vertices(i, :)
                 i = i + 1
             case ("f ")
-                read (line(3:), *) k, l, j
+                read (line(3:), *) k, l, iv3
                 model%trs(j)%v(1, :) = vertices(k, :)
                 model%trs(j)%v(2, :) = vertices(l, :)
-                model%trs(j)%v(3, :) = vertices(j, :)
+                model%trs(j)%v(3, :) = vertices(iv3, :)
                 j = j + 1
             case default
                 print *, "Error: unknown line type in OBJ file ", filepath