diff --git a/src/Model/ParticleTracking/prt1mip.f90 b/src/Model/ParticleTracking/prt1mip.f90
index 583c779c19a..e66bf46acab 100644
--- 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