Fixes a compilation error occurring when using the intel 19.* compile…

…r on windows (#1968)
MODFLOW-USGS · Aug 6, 2024 · 8124ad4 · 8124ad4
1 parent 97ed740
commit 8124ad4
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Exchange/DisConnExchange.f90 b/src/Exchange/DisConnExchange.f90
@@ -202,7 +202,7 @@ function noder(this, model, cellid, iout)
     ! -- dummy
     class(DisConnExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     integer(I4B) :: noder, node
     !
@@ -231,7 +231,7 @@ function cellstr(this, ndim, cellid, iout)
     ! -- dummy
     class(DisConnExchangeType) :: this !< instance of exchange object
     integer(I4B) :: ndim !< model DIS dimension
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     character(len=20) :: cellstr
     character(len=*), parameter :: fmtndim1 = &

diff --git a/src/Exchange/exg-swfgwf.f90 b/src/Exchange/exg-swfgwf.f90
@@ -562,7 +562,7 @@ function noder(this, model, cellid, iout)
     ! -- dummy
     class(SwfGwfExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     integer(I4B) :: noder, node
     !
@@ -591,7 +591,7 @@ function cellstr(this, model, cellid, iout)
     ! -- dummy
     class(SwfGwfExchangeType) :: this !< instance of exchange object
     class(NumericalModelType), pointer, intent(in) :: model
-    integer(I4B), dimension(:), pointer, intent(in) :: cellid
+    integer(I4B), dimension(:), intent(in) :: cellid
     integer(I4B), intent(in) :: iout !< the output file unit
     character(len=20) :: cellstr
     character(len=*), parameter :: fmtndim1 = &