minor cleanup in MIP pkg

MODFLOW-USGS · Dec 8, 2023 · 840b0db · 840b0db
1 parent ca9dd99
commit 840b0db
Showing 1 changed file with 2 additions and 6 deletions.
diff --git a/src/Model/ParticleTracking/prt1mip.f90 b/src/Model/ParticleTracking/prt1mip.f90
@@ -52,19 +52,15 @@ subroutine mip_cr(mip, name_model, input_mempath, inunit, iout, dis)
     call mip%allocate_scalars()
     !
     ! -- Set variables
-    mip%input_mempath = input_mempath
     mip%inunit = inunit
     mip%iout = iout
     !
     ! -- Set pointers
     mip%dis => dis
     !
-    ! -- check if mip is enabled
-    if (inunit > 0) then
-      !
-      ! -- Print a message identifying the model input package.
+    ! -- Print a message identifying the package if enabled
+    if (inunit > 0) &
       write (iout, fmtheader) input_mempath
-    end if
 
   end subroutine mip_cr