diff --git a/src/Model/GroundWaterFlow/gwf-csub.f90 b/src/Model/GroundWaterFlow/gwf-csub.f90 index 1f9831f4c47..93fa1a09060 100644 --- 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)