remove unused fortran variables

langevin-usgs · Oct 1, 2024 · ceaed62 · ceaed62
1 parent b0b99cd
commit ceaed62
Showing 1 changed file with 12 additions and 16 deletions.
diff --git a/src/Model/GroundWaterTransport/gwt-ist.f90 b/src/Model/GroundWaterTransport/gwt-ist.f90
@@ -692,19 +692,18 @@ end subroutine ist_ot_dv
   !> @ brief Output immobile domain aqueous concentration.
   !<
   subroutine output_immobile_concentration(this, idvsave, idvprint)
-    ! -- modules
+    ! modules
     use TdisModule, only: kstp, endofperiod
-    ! -- dummy variables
+    ! dummy variables
     class(GwtIstType) :: this !< BndType object
     integer(I4B), intent(in) :: idvsave !< flag and unit number for dependent-variable output
     integer(I4B), intent(in) :: idvprint !< flag indicating if dependent-variable should be written to the model listing file
-    ! -- local
+    ! local
     integer(I4B) :: ipflg
     integer(I4B) :: ibinun
     !
-    ! -- Save cim to a binary file. ibinun is a flag where 1 indicates that
-    !    cim should be written to a binary file if a binary file is open
-    !    for it.
+    ! Save cim to a binary file. ibinun is a flag where 1 indicates that
+    ! cim should be written to a binary file if a binary file is open for it.
     ipflg = 0
     ibinun = 1
     if (idvsave == 0) ibinun = 0
@@ -713,7 +712,7 @@ subroutine output_immobile_concentration(this, idvsave, idvprint)
                            iprint_opt=0, isav_opt=ibinun)
     end if
     !
-    ! -- Print immobile domain concentrations to listing file
+    ! Print immobile domain concentrations to listing file
     if (idvprint /= 0) then
       call this%ocd%ocd_ot(ipflg, kstp, endofperiod, this%iout, &
                            iprint_opt=idvprint, isav_opt=0)
@@ -724,22 +723,19 @@ end subroutine output_immobile_concentration
   !> @ brief Output immobile domain sorbate concentration.
   !<
   subroutine output_immobile_sorbate_concentration(this, idvsave, idvprint)
-    ! -- modules
-    use TdisModule, only: kstp, endofperiod
-    ! -- dummy variables
+    ! modules
+    ! dummy
     class(GwtIstType) :: this !< BndType object
     integer(I4B), intent(in) :: idvsave !< flag and unit number for dependent-variable output
     integer(I4B), intent(in) :: idvprint !< flag indicating if dependent-variable should be written to the model listing file
-    ! -- local
+    ! local
     character(len=1) :: cdatafmp = ' ', editdesc = ' '
-    integer(I4B) :: ipflg
     integer(I4B) :: ibinun
     integer(I4B) :: iprint, nvaluesp, nwidthp
     real(DP) :: dinact
-    !
-    ! -- Save cimsrb to a binary file. ibinun is a flag where 1 indicates that
-    !    cim should be written to a binary file if a binary file is open
-    !    for it.
+
+    ! Save cimsrb to a binary file. ibinun is a flag where 1 indicates that
+    ! cim should be written to a binary file if a binary file is open for it.
     ! Set unit number for sorbate output
     if (this%ioutsorbate /= 0) then
       ibinun = 1