MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
disconnexchangemodule::disconnexchangetype Type Reference

Exchange based on connection between discretizations of DisBaseType. The data specifies the connections, similar to the information stored in the connections object: DisBaseTypecon. More...

Inheritance diagram for disconnexchangemodule::disconnexchangetype:
Inheritance graph
Collaboration diagram for disconnexchangemodule::disconnexchangetype:
Collaboration graph

Private Member Functions

procedure allocate_scalars
 
procedure allocate_arrays
 
procedure disconnex_da
 
procedure use_interface_model
 
procedure, pass(this) source_options
 
procedure, pass(this) source_dimensions
 
procedure, pass(this) source_data
 
procedure, pass(this) noder
 
procedure, pass(this) cellstr
 
procedure exg_df
 
procedure exg_ac
 
procedure exg_mc
 
procedure exg_ar
 
procedure exg_ad
 
procedure exg_cf
 
procedure exg_fc
 
procedure exg_cc
 
procedure exg_cq
 
procedure exg_bd
 
procedure exg_ot
 
procedure exg_da
 
procedure get_iasym
 
procedure exg_rp
 
procedure exg_dt
 
procedure exg_fp
 
procedure connects_model
 

Private Attributes

character(len=linelength), pointer filename => null()
 name of the input file More...
 
class(numericalmodeltype), pointer model1 => null()
 model 1 More...
 
class(numericalmodeltype), pointer model2 => null()
 model 2 More...
 
class(virtualmodeltype), pointer v_model1 => null()
 virtual model 1 More...
 
class(virtualmodeltype), pointer v_model2 => null()
 virtual model 2 More...
 
logical(lgp) is_datacopy
 when true, this exchange is just a data copy on another process and not responsible for controlling movers, observations, ... More...
 
integer(i4b), pointer nexg => null()
 number of exchanges More...
 
integer(i4b), dimension(:), pointer, contiguous nodem1 => null()
 node numbers in model 1 More...
 
integer(i4b), dimension(:), pointer, contiguous nodem2 => null()
 node numbers in model 2 More...
 
integer(i4b), dimension(:), pointer, contiguous ihc => null()
 horizontal connection indicator array, size: nexg More...
 
real(dp), dimension(:), pointer, contiguous cl1 => null()
 connection length 1, size: nexg More...
 
real(dp), dimension(:), pointer, contiguous cl2 => null()
 connection length 2, size: nexg More...
 
real(dp), dimension(:), pointer, contiguous hwva => null()
 horizontal widths, vertical flow areas, size: nexg More...
 
integer(i4b), pointer naux => null()
 number of auxiliary variables More...
 
character(len=lenboundname), dimension(:), pointer, contiguous boundname => null()
 boundnames More...
 
character(len=lenauxname), dimension(:), pointer, contiguous auxname => null()
 vector of auxname More...
 
type(characterstringtype), dimension(:), pointer, contiguous auxname_cst => null()
 copy of vector auxname that can be stored in memory manager More...
 
real(dp), dimension(:, :), pointer, contiguous auxvar => null()
 array of auxiliary variable values More...
 
integer(i4b), pointer ianglex => null()
 flag indicating anglex was read, if read, ianglex is index in auxvar More...
 
integer(i4b), pointer icdist => null()
 flag indicating cdist was read, if read, icdist is index in auxvar More...
 
integer(i4b), pointer iprpak => null()
 print input flag More...
 
integer(i4b), pointer iprflow => null()
 print flag for cell by cell flows More...
 
integer(i4b), pointer ipakcb => null()
 save flag for cell by cell flows More...
 
integer(i4b), pointer inamedbound => null()
 flag to read boundnames More...
 
integer(i4b), pointer ixt3d => null()
 flag indicating if XT3D should be applied on the interface: 0 = off, 1 = lhs, 2 = rhs More...
 
logical(lgp), pointer dev_ifmod_on
 development option, forces interface model for this exchange More...
 
character(len=7) typename
 name of the type (e.g., 'GWF-GWF') More...
 
character(len=lenexchangename) name
 the name of this exchange More...
 
character(len=lenmempath) memorypath
 the location in the memory manager where the variables are stored More...
 
character(len=lenmempath) input_mempath
 
integer(i4b) id
 

Detailed Description

Definition at line 23 of file DisConnExchange.f90.

Member Function/Subroutine Documentation

◆ allocate_arrays()

procedure disconnexchangemodule::disconnexchangetype::allocate_arrays
private

Definition at line 62 of file DisConnExchange.f90.

◆ allocate_scalars()

procedure disconnexchangemodule::disconnexchangetype::allocate_scalars
private

Definition at line 61 of file DisConnExchange.f90.

◆ cellstr()

procedure, pass(this) disconnexchangemodule::disconnexchangetype::cellstr
private

Definition at line 71 of file DisConnExchange.f90.

◆ connects_model()

procedure baseexchangemodule::baseexchangetype::connects_model
privateinherited

Definition at line 29 of file BaseExchange.f90.

◆ disconnex_da()

procedure disconnexchangemodule::disconnexchangetype::disconnex_da
private

Definition at line 63 of file DisConnExchange.f90.

◆ exg_ac()

procedure numericalexchangemodule::numericalexchangetype::exg_ac
privateinherited

Definition at line 22 of file NumericalExchange.f90.

◆ exg_ad()

procedure numericalexchangemodule::numericalexchangetype::exg_ad
privateinherited

Definition at line 26 of file NumericalExchange.f90.

◆ exg_ar()

procedure numericalexchangemodule::numericalexchangetype::exg_ar
privateinherited

Definition at line 24 of file NumericalExchange.f90.

◆ exg_bd()

procedure numericalexchangemodule::numericalexchangetype::exg_bd
privateinherited

Definition at line 31 of file NumericalExchange.f90.

◆ exg_cc()

procedure numericalexchangemodule::numericalexchangetype::exg_cc
privateinherited

Definition at line 29 of file NumericalExchange.f90.

◆ exg_cf()

procedure numericalexchangemodule::numericalexchangetype::exg_cf
privateinherited

Definition at line 27 of file NumericalExchange.f90.

◆ exg_cq()

procedure numericalexchangemodule::numericalexchangetype::exg_cq
privateinherited

Definition at line 30 of file NumericalExchange.f90.

◆ exg_da()

procedure numericalexchangemodule::numericalexchangetype::exg_da
privateinherited

Definition at line 33 of file NumericalExchange.f90.

◆ exg_df()

procedure numericalexchangemodule::numericalexchangetype::exg_df
privateinherited

Definition at line 21 of file NumericalExchange.f90.

◆ exg_dt()

procedure baseexchangemodule::baseexchangetype::exg_dt
privateinherited

Definition at line 25 of file BaseExchange.f90.

◆ exg_fc()

procedure numericalexchangemodule::numericalexchangetype::exg_fc
privateinherited

Definition at line 28 of file NumericalExchange.f90.

◆ exg_fp()

procedure baseexchangemodule::baseexchangetype::exg_fp
privateinherited

Definition at line 27 of file BaseExchange.f90.

◆ exg_mc()

procedure numericalexchangemodule::numericalexchangetype::exg_mc
privateinherited

Definition at line 23 of file NumericalExchange.f90.

◆ exg_ot()

procedure numericalexchangemodule::numericalexchangetype::exg_ot
privateinherited

Definition at line 32 of file NumericalExchange.f90.

◆ exg_rp()

procedure baseexchangemodule::baseexchangetype::exg_rp
privateinherited

Definition at line 24 of file BaseExchange.f90.

◆ get_iasym()

procedure numericalexchangemodule::numericalexchangetype::get_iasym
privateinherited

Definition at line 34 of file NumericalExchange.f90.

◆ noder()

procedure, pass(this) disconnexchangemodule::disconnexchangetype::noder
private

Definition at line 70 of file DisConnExchange.f90.

◆ source_data()

procedure, pass(this) disconnexchangemodule::disconnexchangetype::source_data
private

Definition at line 69 of file DisConnExchange.f90.

◆ source_dimensions()

procedure, pass(this) disconnexchangemodule::disconnexchangetype::source_dimensions
private

Definition at line 68 of file DisConnExchange.f90.

◆ source_options()

procedure, pass(this) disconnexchangemodule::disconnexchangetype::source_options
private

Definition at line 67 of file DisConnExchange.f90.

◆ use_interface_model()

procedure disconnexchangemodule::disconnexchangetype::use_interface_model
private

Definition at line 64 of file DisConnExchange.f90.

Member Data Documentation

◆ auxname

character(len=lenauxname), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::auxname => null()
private

Definition at line 44 of file DisConnExchange.f90.

44  character(len=LENAUXNAME), dimension(:), &
45  pointer, contiguous :: auxname => null() !< vector of auxname

◆ auxname_cst

type(characterstringtype), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::auxname_cst => null()
private

Definition at line 46 of file DisConnExchange.f90.

46  type(CharacterStringType), dimension(:), pointer, &
47  contiguous :: auxname_cst => null() !< copy of vector auxname that can be stored in memory manager

◆ auxvar

real(dp), dimension(:, :), pointer, contiguous disconnexchangemodule::disconnexchangetype::auxvar => null()
private

Definition at line 48 of file DisConnExchange.f90.

48  real(DP), dimension(:, :), pointer, contiguous :: auxvar => null() !< array of auxiliary variable values

◆ boundname

character(len=lenboundname), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::boundname => null()
private

Definition at line 41 of file DisConnExchange.f90.

41  character(len=LENBOUNDNAME), dimension(:), &
42  pointer, contiguous :: boundname => null() !< boundnames

◆ cl1

real(dp), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::cl1 => null()
private

Definition at line 37 of file DisConnExchange.f90.

37  real(DP), dimension(:), pointer, contiguous :: cl1 => null() !< connection length 1, size: nexg

◆ cl2

real(dp), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::cl2 => null()
private

Definition at line 38 of file DisConnExchange.f90.

38  real(DP), dimension(:), pointer, contiguous :: cl2 => null() !< connection length 2, size: nexg

◆ dev_ifmod_on

logical(lgp), pointer disconnexchangemodule::disconnexchangetype::dev_ifmod_on
private

Definition at line 57 of file DisConnExchange.f90.

57  logical(LGP), pointer :: dev_ifmod_on !< development option, forces interface model for this exchange

◆ filename

character(len=linelength), pointer disconnexchangemodule::disconnexchangetype::filename => null()
private

Definition at line 24 of file DisConnExchange.f90.

24  character(len=LINELENGTH), pointer :: filename => null() !< name of the input file

◆ hwva

real(dp), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::hwva => null()
private

Definition at line 39 of file DisConnExchange.f90.

39  real(DP), dimension(:), pointer, contiguous :: hwva => null() !< horizontal widths, vertical flow areas, size: nexg

◆ ianglex

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::ianglex => null()
private

Definition at line 49 of file DisConnExchange.f90.

49  integer(I4B), pointer :: ianglex => null() !< flag indicating anglex was read, if read, ianglex is index in auxvar

◆ icdist

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::icdist => null()
private

Definition at line 50 of file DisConnExchange.f90.

50  integer(I4B), pointer :: icdist => null() !< flag indicating cdist was read, if read, icdist is index in auxvar

◆ id

integer(i4b) baseexchangemodule::baseexchangetype::id
privateinherited

Definition at line 18 of file BaseExchange.f90.

18  integer(I4B) :: id

◆ ihc

integer(i4b), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::ihc => null()
private

Definition at line 36 of file DisConnExchange.f90.

36  integer(I4B), dimension(:), pointer, contiguous :: ihc => null() !< horizontal connection indicator array, size: nexg

◆ inamedbound

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::inamedbound => null()
private

Definition at line 54 of file DisConnExchange.f90.

54  integer(I4B), pointer :: inamedbound => null() !< flag to read boundnames

◆ input_mempath

character(len=lenmempath) baseexchangemodule::baseexchangetype::input_mempath
privateinherited

Definition at line 17 of file BaseExchange.f90.

17  character(len=LENMEMPATH) :: input_mempath

◆ ipakcb

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::ipakcb => null()
private

Definition at line 53 of file DisConnExchange.f90.

53  integer(I4B), pointer :: ipakcb => null() !< save flag for cell by cell flows

◆ iprflow

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::iprflow => null()
private

Definition at line 52 of file DisConnExchange.f90.

52  integer(I4B), pointer :: iprflow => null() !< print flag for cell by cell flows

◆ iprpak

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::iprpak => null()
private

Definition at line 51 of file DisConnExchange.f90.

51  integer(I4B), pointer :: iprpak => null() !< print input flag

◆ is_datacopy

logical(lgp) disconnexchangemodule::disconnexchangetype::is_datacopy
private

Definition at line 30 of file DisConnExchange.f90.

30  logical(LGP) :: is_datacopy !< when true, this exchange is just a data copy on another process and

◆ ixt3d

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::ixt3d => null()
private

Definition at line 56 of file DisConnExchange.f90.

56  integer(I4B), pointer :: ixt3d => null() !< flag indicating if XT3D should be applied on the interface: 0 = off, 1 = lhs, 2 = rhs

◆ memorypath

character(len=lenmempath) baseexchangemodule::baseexchangetype::memorypath
privateinherited

Definition at line 16 of file BaseExchange.f90.

16  character(len=LENMEMPATH) :: memoryPath !< the location in the memory manager where the variables are stored

◆ model1

class(numericalmodeltype), pointer disconnexchangemodule::disconnexchangetype::model1 => null()
private

Definition at line 26 of file DisConnExchange.f90.

26  class(NumericalModelType), pointer :: model1 => null() !< model 1

◆ model2

class(numericalmodeltype), pointer disconnexchangemodule::disconnexchangetype::model2 => null()
private

Definition at line 27 of file DisConnExchange.f90.

27  class(NumericalModelType), pointer :: model2 => null() !< model 2

◆ name

character(len=lenexchangename) baseexchangemodule::baseexchangetype::name
privateinherited

Definition at line 15 of file BaseExchange.f90.

15  character(len=LENEXCHANGENAME) :: name !< the name of this exchange

◆ naux

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::naux => null()
private

Definition at line 40 of file DisConnExchange.f90.

40  integer(I4B), pointer :: naux => null() !< number of auxiliary variables

◆ nexg

integer(i4b), pointer disconnexchangemodule::disconnexchangetype::nexg => null()
private

Definition at line 33 of file DisConnExchange.f90.

33  integer(I4B), pointer :: nexg => null() !< number of exchanges

◆ nodem1

integer(i4b), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::nodem1 => null()
private

Definition at line 34 of file DisConnExchange.f90.

34  integer(I4B), dimension(:), pointer, contiguous :: nodem1 => null() !< node numbers in model 1

◆ nodem2

integer(i4b), dimension(:), pointer, contiguous disconnexchangemodule::disconnexchangetype::nodem2 => null()
private

Definition at line 35 of file DisConnExchange.f90.

35  integer(I4B), dimension(:), pointer, contiguous :: nodem2 => null() !< node numbers in model 2

◆ typename

character(len=7) numericalexchangemodule::numericalexchangetype::typename
privateinherited

Definition at line 17 of file NumericalExchange.f90.

17  character(len=7) :: typename !< name of the type (e.g., 'GWF-GWF')

◆ v_model1

class(virtualmodeltype), pointer disconnexchangemodule::disconnexchangetype::v_model1 => null()
private

Definition at line 28 of file DisConnExchange.f90.

28  class(VirtualModelType), pointer :: v_model1 => null() !< virtual model 1

◆ v_model2

class(virtualmodeltype), pointer disconnexchangemodule::disconnexchangetype::v_model2 => null()
private

Definition at line 29 of file DisConnExchange.f90.

29  class(VirtualModelType), pointer :: v_model2 => null() !< virtual model 2

The documentation for this type was generated from the following file: