MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmexgdfnselectormodule Module Reference

Functions/Subroutines

subroutine set_param_pointer (input_dfn, input_dfn_target)
 
subroutine set_block_pointer (input_dfn, input_dfn_target)
 
subroutine set_subpkg_pointer (subpkg_list, subpkg_list_target)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public exg_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public exg_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public exg_block_definitions (subcomponent)
 
logical function, public exg_idm_multi_package (subcomponent)
 
logical function, public exg_idm_is_advanced (subcomponent)
 
character(len=16) function, dimension(:), pointer, public exg_idm_subpackages (subcomponent)
 
logical function, public exg_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ exg_aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmexgdfnselectormodule::exg_aggregate_definitions ( character(len=*), intent(in)  subcomponent)

Definition at line 73 of file IdmExgDfnSelector.f90.

74  character(len=*), intent(in) :: subcomponent
75  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
76  nullify (input_definition)
77  select case (subcomponent)
78  case ('CHFGWF')
79  call set_param_pointer(input_definition, exg_chfgwf_aggregate_definitions)
80  case ('GWFGWF')
81  call set_param_pointer(input_definition, exg_gwfgwf_aggregate_definitions)
82  case ('GWFGWT')
83  call set_param_pointer(input_definition, exg_gwfgwt_aggregate_definitions)
84  case ('GWTGWT')
85  call set_param_pointer(input_definition, exg_gwtgwt_aggregate_definitions)
86  case ('GWFGWE')
87  call set_param_pointer(input_definition, exg_gwfgwe_aggregate_definitions)
88  case ('GWEGWE')
89  call set_param_pointer(input_definition, exg_gwegwe_aggregate_definitions)
90  case ('GWFPRT')
91  call set_param_pointer(input_definition, exg_gwfprt_aggregate_definitions)
92  case ('OLFGWF')
93  call set_param_pointer(input_definition, exg_olfgwf_aggregate_definitions)
94  case default
95  end select
96  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exg_block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmexgdfnselectormodule::exg_block_definitions ( character(len=*), intent(in)  subcomponent)

Definition at line 99 of file IdmExgDfnSelector.f90.

100  character(len=*), intent(in) :: subcomponent
101  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
102  nullify (input_definition)
103  select case (subcomponent)
104  case ('CHFGWF')
105  call set_block_pointer(input_definition, exg_chfgwf_block_definitions)
106  case ('GWFGWF')
107  call set_block_pointer(input_definition, exg_gwfgwf_block_definitions)
108  case ('GWFGWT')
109  call set_block_pointer(input_definition, exg_gwfgwt_block_definitions)
110  case ('GWTGWT')
111  call set_block_pointer(input_definition, exg_gwtgwt_block_definitions)
112  case ('GWFGWE')
113  call set_block_pointer(input_definition, exg_gwfgwe_block_definitions)
114  case ('GWEGWE')
115  call set_block_pointer(input_definition, exg_gwegwe_block_definitions)
116  case ('GWFPRT')
117  call set_block_pointer(input_definition, exg_gwfprt_block_definitions)
118  case ('OLFGWF')
119  call set_block_pointer(input_definition, exg_olfgwf_block_definitions)
120  case default
121  end select
122  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exg_idm_integrated()

logical function, public idmexgdfnselectormodule::exg_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 206 of file IdmExgDfnSelector.f90.

207  character(len=*), intent(in) :: subcomponent
208  logical :: integrated
209  integrated = .false.
210  select case (subcomponent)
211  case ('CHFGWF')
212  integrated = .true.
213  case ('GWFGWF')
214  integrated = .true.
215  case ('GWFGWT')
216  integrated = .true.
217  case ('GWTGWT')
218  integrated = .true.
219  case ('GWFGWE')
220  integrated = .true.
221  case ('GWEGWE')
222  integrated = .true.
223  case ('GWFPRT')
224  integrated = .true.
225  case ('OLFGWF')
226  integrated = .true.
227  case default
228  end select
229  return
Here is the caller graph for this function:

◆ exg_idm_is_advanced()

logical function, public idmexgdfnselectormodule::exg_idm_is_advanced ( character(len=*), intent(in)  subcomponent)

Definition at line 153 of file IdmExgDfnSelector.f90.

154  character(len=*), intent(in) :: subcomponent
155  logical :: is_advanced
156  select case (subcomponent)
157  case ('CHFGWF')
158  is_advanced = exg_chfgwf_is_advanced
159  case ('GWFGWF')
160  is_advanced = exg_gwfgwf_is_advanced
161  case ('GWFGWT')
162  is_advanced = exg_gwfgwt_is_advanced
163  case ('GWTGWT')
164  is_advanced = exg_gwtgwt_is_advanced
165  case ('GWFGWE')
166  is_advanced = exg_gwfgwe_is_advanced
167  case ('GWEGWE')
168  is_advanced = exg_gwegwe_is_advanced
169  case ('GWFPRT')
170  is_advanced = exg_gwfprt_is_advanced
171  case ('OLFGWF')
172  is_advanced = exg_olfgwf_is_advanced
173  case default
174  call store_error('Idm selector subcomponent not found; '//&
175  &'component="EXG"'//&
176  &', subcomponent="'//trim(subcomponent)//'".', .true.)
177  end select
178  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exg_idm_multi_package()

logical function, public idmexgdfnselectormodule::exg_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 125 of file IdmExgDfnSelector.f90.

126  character(len=*), intent(in) :: subcomponent
127  logical :: multi_package
128  select case (subcomponent)
129  case ('CHFGWF')
130  multi_package = exg_chfgwf_multi_package
131  case ('GWFGWF')
132  multi_package = exg_gwfgwf_multi_package
133  case ('GWFGWT')
134  multi_package = exg_gwfgwt_multi_package
135  case ('GWTGWT')
136  multi_package = exg_gwtgwt_multi_package
137  case ('GWFGWE')
138  multi_package = exg_gwfgwe_multi_package
139  case ('GWEGWE')
140  multi_package = exg_gwegwe_multi_package
141  case ('GWFPRT')
142  multi_package = exg_gwfprt_multi_package
143  case ('OLFGWF')
144  multi_package = exg_olfgwf_multi_package
145  case default
146  call store_error('Idm selector subcomponent not found; '//&
147  &'component="EXG"'//&
148  &', subcomponent="'//trim(subcomponent)//'".', .true.)
149  end select
150  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exg_idm_subpackages()

character(len=16) function, dimension(:), pointer, public idmexgdfnselectormodule::exg_idm_subpackages ( character(len=*), intent(in)  subcomponent)

Definition at line 181 of file IdmExgDfnSelector.f90.

182  character(len=*), intent(in) :: subcomponent
183  character(len=16), dimension(:), pointer :: subpackages
184  select case (subcomponent)
185  case ('CHFGWF')
186  call set_subpkg_pointer(subpackages, exg_chfgwf_subpackages)
187  case ('GWFGWF')
188  call set_subpkg_pointer(subpackages, exg_gwfgwf_subpackages)
189  case ('GWFGWT')
190  call set_subpkg_pointer(subpackages, exg_gwfgwt_subpackages)
191  case ('GWTGWT')
192  call set_subpkg_pointer(subpackages, exg_gwtgwt_subpackages)
193  case ('GWFGWE')
194  call set_subpkg_pointer(subpackages, exg_gwfgwe_subpackages)
195  case ('GWEGWE')
196  call set_subpkg_pointer(subpackages, exg_gwegwe_subpackages)
197  case ('GWFPRT')
198  call set_subpkg_pointer(subpackages, exg_gwfprt_subpackages)
199  case ('OLFGWF')
200  call set_subpkg_pointer(subpackages, exg_olfgwf_subpackages)
201  case default
202  end select
203  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ exg_param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmexgdfnselectormodule::exg_param_definitions ( character(len=*), intent(in)  subcomponent)

Definition at line 47 of file IdmExgDfnSelector.f90.

48  character(len=*), intent(in) :: subcomponent
49  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
50  nullify (input_definition)
51  select case (subcomponent)
52  case ('CHFGWF')
53  call set_param_pointer(input_definition, exg_chfgwf_param_definitions)
54  case ('GWFGWF')
55  call set_param_pointer(input_definition, exg_gwfgwf_param_definitions)
56  case ('GWFGWT')
57  call set_param_pointer(input_definition, exg_gwfgwt_param_definitions)
58  case ('GWTGWT')
59  call set_param_pointer(input_definition, exg_gwtgwt_param_definitions)
60  case ('GWFGWE')
61  call set_param_pointer(input_definition, exg_gwfgwe_param_definitions)
62  case ('GWEGWE')
63  call set_param_pointer(input_definition, exg_gwegwe_param_definitions)
64  case ('GWFPRT')
65  call set_param_pointer(input_definition, exg_gwfprt_param_definitions)
66  case ('OLFGWF')
67  call set_param_pointer(input_definition, exg_olfgwf_param_definitions)
68  case default
69  end select
70  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

subroutine idmexgdfnselectormodule::set_block_pointer ( type(inputblockdefinitiontype), dimension(:), pointer  input_dfn,
type(inputblockdefinitiontype), dimension(:), target  input_dfn_target 
)
private

Definition at line 35 of file IdmExgDfnSelector.f90.

36  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
37  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
38  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_param_pointer()

subroutine idmexgdfnselectormodule::set_param_pointer ( type(inputparamdefinitiontype), dimension(:), pointer  input_dfn,
type(inputparamdefinitiontype), dimension(:), target  input_dfn_target 
)
private

Definition at line 29 of file IdmExgDfnSelector.f90.

30  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
31  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
32  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_subpkg_pointer()

subroutine idmexgdfnselectormodule::set_subpkg_pointer ( character(len=16), dimension(:), pointer  subpkg_list,
character(len=16), dimension(:), target  subpkg_list_target 
)
private

Definition at line 41 of file IdmExgDfnSelector.f90.

42  character(len=16), dimension(:), pointer :: subpkg_list
43  character(len=16), dimension(:), target :: subpkg_list_target
44  subpkg_list => subpkg_list_target
Here is the caller graph for this function: