From c3a5be7a371c34b40c669e179329dfa7043b0305 Mon Sep 17 00:00:00 2001 From: wpbonelli Date: Fri, 17 Jan 2025 15:37:35 -0500 Subject: [PATCH] reset fmi --- src/Model/ModelUtilities/FlowModelInterface.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Model/ModelUtilities/FlowModelInterface.f90 b/src/Model/ModelUtilities/FlowModelInterface.f90 index 7437722f307..60a4729e257 100644 --- a/src/Model/ModelUtilities/FlowModelInterface.f90 +++ b/src/Model/ModelUtilities/FlowModelInterface.f90 @@ -23,7 +23,7 @@ module FlowModelInterfaceModule logical, pointer :: flows_from_file => null() !< if .false., then flows come from GWF through GWF-Model exg type(ListType), pointer :: gwfbndlist => null() !< list of gwf stress packages integer(I4B), pointer :: iflowsupdated => null() !< flows were updated for this time step - integer(I4B), dimension(:), pointer, contiguous :: ibound => null() !< pointer to model ibound + integer(I4B), dimension(:), pointer, contiguous :: ibound => null() !< pointer to Model ibound real(DP), dimension(:), pointer, contiguous :: gwfflowja => null() !< pointer to the GWF flowja array real(DP), dimension(:, :), pointer, contiguous :: gwfspdis => null() !< pointer to npf specific discharge array real(DP), dimension(:), pointer, contiguous :: gwfhead => null() !< pointer to the GWF head array