Skip to content

Commit

Permalink
Add missing lines to ConnectionBuilder.f90 related to GWE
Browse files Browse the repository at this point in the history
  • Loading branch information
emorway-usgs committed Dec 29, 2023
1 parent f9b19e1 commit 2828acb
Showing 1 changed file with 7 additions and 0 deletions.
7 changes: 7 additions & 0 deletions src/Model/Connection/ConnectionBuilder.f90
Original file line number Diff line number Diff line change
Expand Up @@ -161,6 +161,7 @@ function createModelConnection(model, exchange) result(connection)
use SimModule, only: ustop
use GwfGwfConnectionModule, only: GwfGwfConnectionType
use GwtGwtConnectionModule, only: GwtGwtConnectionType
use GweGweConnectionModule, only: GweGweConnectionType
use GwfModule, only: GwfModelType

class(NumericalModelType), pointer, intent(in) :: model !< the model for which the connection will be created
Expand All @@ -170,6 +171,7 @@ function createModelConnection(model, exchange) result(connection)
! different concrete connection types:
class(GwfGwfConnectionType), pointer :: flowConnection => null()
class(GwtGwtConnectionType), pointer :: transportConnection => null()
class(GweGweConnectionType), pointer :: energyTransportConnection => null()

connection => null()

Expand All @@ -185,6 +187,11 @@ function createModelConnection(model, exchange) result(connection)
call transportConnection%construct(model, exchange)
connection => transportConnection
transportConnection => null()
case ('GWE-GWE')
allocate (GweGweConnectionType :: energyTransportConnection)
call energyTransportConnection%construct(model, exchange)
connection => energyTransportConnection
energyTransportConnection => null()
case default
write (*, *) 'Error (which should never happen): '// &
'undefined exchangetype found'
Expand Down

0 comments on commit 2828acb

Please sign in to comment.