From 797ea3de8e7e988ab6d6c5fac53c83675a3c9607 Mon Sep 17 00:00:00 2001
From: wpbonelli <wbonelli@ucar.edu>
Date: Wed, 13 Dec 2023 00:15:05 -0500
Subject: [PATCH] cleanup

---
 src/Model/ParticleTracking/prt1.f90     |  4 +---
 src/Model/ParticleTracking/prt1obs1.f90 |  4 ++--
 src/Model/ParticleTracking/prt1oc1.f90  | 15 +++++----------
 3 files changed, 8 insertions(+), 15 deletions(-)

diff --git a/src/Model/ParticleTracking/prt1.f90 b/src/Model/ParticleTracking/prt1.f90
index 30e3e956968..17af95e9069 100644
--- 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
index 266473acba4..b39beefa478 100644
--- 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
index 705ad96c4de..4095a15c495 100644
--- 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