From 2828acbf068324ea7d3bf1765a2c4184afa12c78 Mon Sep 17 00:00:00 2001 From: Eric Morway Date: Fri, 29 Dec 2023 15:27:31 -0800 Subject: [PATCH] Add missing lines to ConnectionBuilder.f90 related to GWE --- src/Model/Connection/ConnectionBuilder.f90 | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/Model/Connection/ConnectionBuilder.f90 b/src/Model/Connection/ConnectionBuilder.f90 index c38270385d0..dd959223df5 100644 --- a/src/Model/Connection/ConnectionBuilder.f90 +++ b/src/Model/Connection/ConnectionBuilder.f90 @@ -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 @@ -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() @@ -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'