fix(lak,sfr,uzf): fix nullptr when deallocating package in validate m…

…ode (#1331) Co-authored-by: mjreno <[email protected]>
MODFLOW-USGS · Aug 21, 2023 · c9d861f · c9d861f
1 parent 78411ba
commit c9d861f
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 9 deletions.
diff --git a/src/Model/GroundWaterFlow/gwf3lak8.f90 b/src/Model/GroundWaterFlow/gwf3lak8.f90
@@ -4644,9 +4644,11 @@ subroutine lak_da(this)
     !
     ! -- package csv table
     if (this%ipakcsv > 0) then
-      call this%pakcsvtab%table_da()
-      deallocate (this%pakcsvtab)
-      nullify (this%pakcsvtab)
+      if (associated(this%pakcsvtab)) then
+        call this%pakcsvtab%table_da()
+        deallocate (this%pakcsvtab)
+        nullify (this%pakcsvtab)
+      end if
     end if
     !
     ! -- scalars

diff --git a/src/Model/GroundWaterFlow/gwf3sfr8.f90 b/src/Model/GroundWaterFlow/gwf3sfr8.f90
@@ -2704,9 +2704,11 @@ subroutine sfr_da(this)
     !
     ! -- deallocate package csv table
     if (this%ipakcsv > 0) then
-      call this%pakcsvtab%table_da()
-      deallocate (this%pakcsvtab)
-      nullify (this%pakcsvtab)
+      if (associated(this%pakcsvtab)) then
+        call this%pakcsvtab%table_da()
+        deallocate (this%pakcsvtab)
+        nullify (this%pakcsvtab)
+      end if
     end if
     !
     ! -- deallocate scalars

diff --git a/src/Model/GroundWaterFlow/gwf3uzf8.f90 b/src/Model/GroundWaterFlow/gwf3uzf8.f90
@@ -2796,9 +2796,11 @@ subroutine uzf_da(this)
     !
     ! -- package csv table
     if (this%ipakcsv > 0) then
-      call this%pakcsvtab%table_da()
-      deallocate (this%pakcsvtab)
-      nullify (this%pakcsvtab)
+      if (associated(this%pakcsvtab)) then
+        call this%pakcsvtab%table_da()
+        deallocate (this%pakcsvtab)
+        nullify (this%pakcsvtab)
+      end if
     end if
     !
     ! -- deallocate scalars