cleanup

MODFLOW-USGS · Dec 13, 2023 · 797ea3d · 797ea3d
1 parent 227b2b7
commit 797ea3d
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 15 deletions.
diff --git a/src/Model/ParticleTracking/prt1.f90 b/src/Model/ParticleTracking/prt1.f90
@@ -426,9 +426,7 @@ subroutine prt_cq(this, icnvg, isuppress_output)
     ! -- Particle mass storage
     call this%prt_cq_sto()
     !
-    ! -- Go through packages and call cq routines.  cf() routines are called
-    !    first to regenerate non-linear terms to be consistent with the final
-    !    conc solution.
+    ! -- Go through packages and call cq routines. Just a formality.
     do ip = 1, this%bndlist%Count()
       packobj => GetBndFromList(this%bndlist, ip)
       call packobj%bnd_cq(this%x, this%flowja)

diff --git a/src/Model/ParticleTracking/prt1obs1.f90 b/src/Model/ParticleTracking/prt1obs1.f90
@@ -14,8 +14,8 @@ module PrtObsModule
 
   type, extends(ObsType) :: PrtObsType
     ! -- Private members
-    real(DP), dimension(:), pointer, contiguous, private :: x => null() ! concentration
-    real(DP), dimension(:), pointer, contiguous, private :: flowja => null() ! intercell flows
+    real(DP), dimension(:), pointer, contiguous, private :: x => null() !< concentration
+    real(DP), dimension(:), pointer, contiguous, private :: flowja => null() !< intercell flows
   contains
     ! -- Public procedures
     procedure, public :: prt_obs_ar

diff --git a/src/Model/ParticleTracking/prt1oc1.f90 b/src/Model/ParticleTracking/prt1oc1.f90
@@ -14,10 +14,10 @@ module PrtOcModule
   !> @ brief Output control for particle tracking models
   type, extends(OutputControlType) :: PrtOcType
 
-    integer(I4B), pointer :: itrkout => null() ! binary output file
-    integer(I4B), pointer :: itrkhdr => null() ! output header file
-    integer(I4B), pointer :: itrkcsv => null() ! CSV output file
-    integer(I4B), pointer :: itrkevent => null() ! track event option
+    integer(I4B), pointer :: itrkout => null() !< binary output file
+    integer(I4B), pointer :: itrkhdr => null() !< output header file
+    integer(I4B), pointer :: itrkcsv => null() !< CSV output file
+    integer(I4B), pointer :: itrkevent => null() !< track event option
 
   contains
     procedure :: oc_ar
@@ -29,12 +29,7 @@ module PrtOcModule
 
 contains
 
-  !> @ brief Create GwtOcType
-  !!
-  !!  Create by allocating a new PrtOcType object and initializing
-  !!  member variables.
-  !!
-  !<
+  !> @ brief Create an output control object
   subroutine oc_cr(ocobj, name_model, inunit, iout)
     ! -- dummy
     type(PrtOcType), pointer :: ocobj !< PrtOcType object