chore(various): accumulated lints (#2239)

* chore(various): accumulated lints

* fprettify

Author: emorway-usgs

src/Model/GroundWaterEnergy/gwe-est.f90

@@ -1,14 +1,14 @@
-!> -- @ brief Energy Storage and Transfer (EST) Module
+!>  @ brief Energy Storage and Transfer (EST) Module
 !!
-!!    The GweEstModule contains the GweEstType, which is related
-!!    to GwtEstModule; however, there are some important differences
-!!    owing to the fact that a sorbed phase is not considered.
-!!    Instead, a single temperature is simulated for each grid
-!!    cell and is representative of both the aqueous and solid
-!!    phases (i.e., instantaneous thermal equilibrium is
-!!    assumed).  Also, "thermal bleeding" is accommodated, where
-!!    conductive processes can transport into, through, or
-!!    out of dry cells that are part of the active domain.
+!!  The GweEstModule contains the GweEstType, which is related
+!!  to GwtEstModule; however, there are some important differences
+!!  owing to the fact that a sorbed phase is not considered.
+!!  Instead, a single temperature is simulated for each grid
+!!  cell and is representative of both the aqueous and solid
+!!  phases (i.e., instantaneous thermal equilibrium is
+!!  assumed).  Also, "thermal bleeding" is accommodated, where
+!!  conductive processes can transport into, through, or
+!!  out of dry cells that are part of the active domain.
 !<
 module GweEstModule
 
@@ -489,7 +489,7 @@ subroutine est_cq_dcy_solid(this, nodes, cnew, cold, flowja)
     real(DP) :: vcell
     real(DP) :: decay_rate
     !
-    ! -- Calculate decay change
+    ! -- calculate decay change
     do n = 1, nodes
       !
       ! -- skip if transport inactive
@@ -515,7 +515,6 @@ subroutine est_cq_dcy_solid(this, nodes, cnew, cold, flowja)
       this%ratedcys(n) = rate
       idiag = this%dis%con%ia(n)
       flowja(idiag) = flowja(idiag) + rate
-      !
     end do
   end subroutine est_cq_dcy_solid
 
@@ -641,8 +640,6 @@ subroutine est_da(this)
       this%fmi => null()
     end if
     !
-    ! -- Scalars
-    !
     ! -- deallocate parent
     call this%NumericalPackageType%da()
   end subroutine est_da

src/Model/GroundWaterFlow/TvBase.f90

@@ -49,25 +49,23 @@ module TvBaseModule
     !! Deferred procedure called by the TvBaseType code to announce the
     !! specific package version and set any required array and variable
     !! pointers from other packages.
-    !!
     !<
     subroutine ar_set_pointers(this)
       ! -- modules
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
     end subroutine
 
     !> @brief Announce package and set pointers to variables
     !!
     !! Deferred procedure called by the TvBaseType code to process a single
     !! keyword from the OPTIONS block of the package input file.
-    !!
     !<
     function read_option(this, keyword) result(success)
       ! -- modules
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
       character(len=*), intent(in) :: keyword
       ! -- return
@@ -78,13 +76,12 @@ function read_option(this, keyword) result(success)
     !!
     !! Deferred procedure called by the TvBaseType code to retrieve a pointer
     !! to a given node's value for a given named variable.
-    !!
     !<
     function get_pointer_to_value(this, n, varName) result(bndElem)
       ! -- modules
       use KindModule, only: I4B, DP
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
       integer(I4B), intent(in) :: n
       character(len=*), intent(in) :: varName
@@ -96,13 +93,12 @@ function get_pointer_to_value(this, n, varName) result(bndElem)
     !!
     !! Deferred procedure called by the TvBaseType code when a property value
     !! change occurs at (kper, kstp).
-    !!
     !<
     subroutine set_changed_at(this, kper, kstp)
       ! -- modules
       use KindModule, only: I4B
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
       integer(I4B), intent(in) :: kper
       integer(I4B), intent(in) :: kstp
@@ -113,12 +109,11 @@ subroutine set_changed_at(this, kper, kstp)
     !! Deferred procedure called by the TvBaseType code when a new time step
     !! commences, indicating that any previously set per-node property value
     !! change flags should be reset.
-    !!
     !<
     subroutine reset_change_flags(this)
       ! -- modules
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
     end subroutine
 
@@ -128,13 +123,12 @@ subroutine reset_change_flags(this)
     !! change occurs to perform any required validity checks on the value of
     !! the given variable at the given node. Perform any required updates to
     !! the property value if it is valid, or log an error if not.
-    !!
     !<
     subroutine validate_change(this, n, varName)
       ! -- modules
       use KindModule, only: I4B
       import TvBaseType
-      ! -- dummy variables
+      ! -- dummy
       class(TvBaseType) :: this
       integer(I4B), intent(in) :: n
       character(len=*), intent(in) :: varName
@@ -144,13 +138,12 @@ subroutine validate_change(this, n, varName)
 
 contains
 
-  !> @brief Initialise the TvBaseType object
+  !> @brief Initialize the TvBaseType object
   !!
   !! Allocate and initialize data members of the object.
-  !!
   !<
   subroutine init(this, name_model, pakname, ftype, inunit, iout)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
     character(len=*), intent(in) :: name_model
     character(len=*), intent(in) :: pakname
@@ -168,10 +161,9 @@ end subroutine init
   !> @brief Allocate scalar variables
   !!
   !! Allocate scalar data members of the object.
-  !!
   !<
   subroutine tvbase_allocate_scalars(this)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
     !
     ! -- Call standard NumericalPackageType allocate scalars
@@ -184,10 +176,9 @@ end subroutine tvbase_allocate_scalars
   !> @brief Allocate and read method for package
   !!
   !! Allocate and read static data for the package.
-  !!
   !<
   subroutine ar(this, dis)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
     class(DisBaseType), pointer, intent(in) :: dis
     !
@@ -219,12 +210,11 @@ end subroutine ar
   !!
   !! Reads the OPTIONS block of the package's input file, deferring to the
   !! derived type to process any package-specific keywords.
-  !!
   !<
   subroutine read_options(this)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
-    ! -- local variables
+    ! -- local
     character(len=LINELENGTH) :: keyword
     character(len=MAXCHARLEN) :: fname
     logical :: isfound
@@ -286,12 +276,11 @@ end subroutine read_options
   !> @brief Read and prepare method for package
   !!
   !! Read and prepare stress period data for the package.
-  !!
   !<
   subroutine rp(this)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
-    ! -- local variables
+    ! -- local
     character(len=LINELENGTH) :: line, cellid, varName, text
     logical :: isfound, endOfBlock, haveChanges
     integer(I4B) :: ierr, node
@@ -407,12 +396,11 @@ end subroutine rp
   !> @brief Advance the package
   !!
   !! Advance data for a new time step.
-  !!
   !<
   subroutine ad(this)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
-    ! -- local variables
+    ! -- local
     integer(I4B) :: i, n, numlinks
     type(TimeSeriesLinkType), pointer :: tsLink
     !
@@ -454,10 +442,9 @@ end subroutine ad
   !> @brief Deallocate package memory
   !!
   !! Deallocate package scalars and arrays.
-  !!
   !<
   subroutine tvbase_da(this)
-    ! -- dummy variables
+    ! -- dummy
     class(TvBaseType) :: this
     !
     ! -- Deallocate time series manager