fprettify

Author: wpbonelli

src/Model/ParticleTracking/prt.f90

@@ -39,7 +39,7 @@ module PrtModule
 
   integer(I4B), parameter :: NBDITEMS = 2
   character(len=LENBUDTXT), dimension(NBDITEMS) :: budtxt
-  data budtxt/'         STORAGE','     TERMINATION'/
+  data budtxt/'         STORAGE', '     TERMINATION'/
 
   !> @brief Particle tracking (PRT) model
   type, extends(NumericalModelType) :: PrtModelType
@@ -691,7 +691,7 @@ subroutine prt_ot_saveflow(this, nja, flowja, icbcfl, icbcun)
                                             olconv2=.false.)
       end do
     end if
-      if (nterm > 0) then
+    if (nterm > 0) then
       call this%dis%record_srcdst_list_header(budtxt(2), &
                                               'PRT             ', &
                                               'PRT             ', &