tolerate dimension 0 static list input (#2038)

Co-authored-by: mjreno <mjreno@IGSAAA071L01144.gs.doi.net>
MODFLOW-USGS · Oct 21, 2024 · 2bb0c95 · 2bb0c95
1 parent 6a32f14
commit 2bb0c95
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/Utilities/Idm/mf6blockfile/LoadMf6File.f90 b/src/Utilities/Idm/mf6blockfile/LoadMf6File.f90
@@ -602,7 +602,7 @@ subroutine parse_structarray_block(this, iblk)
       call mem_setptr(nrow, idt%shape, this%mf6_input%mempath)
       nrows = nrow
     else
-      nrows = 0
+      nrows = -1
     end if
     !
     ! -- create a structured array

diff --git a/src/Utilities/Idm/mf6blockfile/StructArray.f90 b/src/Utilities/Idm/mf6blockfile/StructArray.f90
@@ -90,7 +90,8 @@ function constructStructArray(mf6_input, ncol, nrow, blocknum, mempath, &
     !
     ! -- set rows if known or set deferred
     struct_array%nrow = nrow
-    if (struct_array%nrow == 0) then
+    if (struct_array%nrow == -1) then
+      struct_array%nrow = 0
       struct_array%deferred_shape = .true.
     end if
     !