fix(csub): fix minor memory leak in csub (#1942)

jdhughes-dev · web-flow · commit 47762d4cccbf · 2024-07-12T17:37:54.000-05:00
continuation of #1935
diff --git a/src/Model/GroundWaterFlow/gwf-csub.f90 b/src/Model/GroundWaterFlow/gwf-csub.f90
@@ -2421,7 +2421,7 @@ subroutine csub_da(this)
       end if
       !
       ! -- output table
-      if (this%istrainib > 0 .or. this%istrainsk > 0) then
+      if (associated(this%outputtab)) then
         call this%outputtab%table_da()
         deallocate (this%outputtab)
         nullify (this%outputtab)

Original file line number	Diff line number	Diff line change
`@@ -2421,7 +2421,7 @@ subroutine csub_da(this)`
`2421`	`2421`	`end if`
`2422`	`2422`	`!`
`2423`	`2423`	`! -- output table`
`2424`		`- if (this%istrainib > 0 .or. this%istrainsk > 0) then`
	`2424`	`+ if (associated(this%outputtab)) then`
`2425`	`2425`	`call this%outputtab%table_da()`
`2426`	`2426`	`deallocate (this%outputtab)`
`2427`	`2427`	`nullify (this%outputtab)`