Skip to content

Commit

Permalink
refactor(fmi): introduce FlowModelInterface module/type, use for gwt (M…
Browse files Browse the repository at this point in the history
  • Loading branch information
wpbonelli authored Sep 8, 2023
1 parent da532a5 commit efafa5c
Show file tree
Hide file tree
Showing 7 changed files with 1,098 additions and 755 deletions.
9 changes: 5 additions & 4 deletions make/makefile
Original file line number Diff line number Diff line change
Expand Up @@ -125,17 +125,19 @@ $(OBJDIR)/PackageMover.o \
$(OBJDIR)/Obs3.o \
$(OBJDIR)/NumericalPackage.o \
$(OBJDIR)/Budget.o \
$(OBJDIR)/BudgetTerm.o \
$(OBJDIR)/sort.o \
$(OBJDIR)/SfrCrossSectionUtils.o \
$(OBJDIR)/BudgetTerm.o \
$(OBJDIR)/VirtualBase.o \
$(OBJDIR)/STLVecInt.o \
$(OBJDIR)/BoundaryPackage.o \
$(OBJDIR)/BaseModel.o \
$(OBJDIR)/InputDefinition.o \
$(OBJDIR)/PackageBudget.o \
$(OBJDIR)/HeadFileReader.o \
$(OBJDIR)/BudgetObject.o \
$(OBJDIR)/SfrCrossSectionManager.o \
$(OBJDIR)/dag_module.o \
$(OBJDIR)/BudgetObject.o \
$(OBJDIR)/VirtualDataLists.o \
$(OBJDIR)/VirtualDataContainer.o \
$(OBJDIR)/SimStages.o \
Expand All @@ -151,8 +153,7 @@ $(OBJDIR)/gwf3idm.o \
$(OBJDIR)/gwf3disv8idm.o \
$(OBJDIR)/gwf3disu8idm.o \
$(OBJDIR)/gwf3dis8idm.o \
$(OBJDIR)/PackageBudget.o \
$(OBJDIR)/HeadFileReader.o \
$(OBJDIR)/FlowModelInterface.o \
$(OBJDIR)/PrintSaveManager.o \
$(OBJDIR)/Xt3dAlgorithm.o \
$(OBJDIR)/gwf3tvbase8.o \
Expand Down
1 change: 1 addition & 0 deletions msvs/mf6core.vfproj
Original file line number Diff line number Diff line change
Expand Up @@ -187,6 +187,7 @@
<File RelativePath="..\src\Model\ModelUtilities\Connections.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\DiscretizationBase.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\DisvGeom.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\FlowModelInterface.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\GwfBuyInputData.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\GwfMvrPeriodData.f90"/>
<File RelativePath="..\src\Model\ModelUtilities\GwfNpfOptions.f90"/>
Expand Down
2 changes: 1 addition & 1 deletion src/Model/Connection/GwtInterfaceModel.f90
Original file line number Diff line number Diff line change
Expand Up @@ -127,7 +127,7 @@ subroutine gwtifmod_df(this)
! define DISU
disPtr => this%dis
call this%gridConnection%getDiscretization(CastAsDisuType(disPtr))
call this%fmi%fmi_df(this%dis, 0)
call this%fmi%fmi_df(this%dis)

if (this%inadv > 0) then
call this%adv%adv_df(adv_options)
Expand Down
Loading

0 comments on commit efafa5c

Please sign in to comment.