MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
Functions/Subroutines
idmgwtdfnselectormodule 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 gwt_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public gwt_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public gwt_block_definitions (subcomponent)
 
logical function, public gwt_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public gwt_idm_subpackages (subcomponent)
 
logical function, public gwt_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ gwt_aggregate_definitions()

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

Definition at line 93 of file IdmGwtDfnSelector.f90.

94  character(len=*), intent(in) :: subcomponent
95  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
96  nullify (input_definition)
97  select case (subcomponent)
98  case ('NAM')
99  call set_param_pointer(input_definition, gwt_nam_aggregate_definitions)
100  case ('ADV')
101  call set_param_pointer(input_definition, gwt_adv_aggregate_definitions)
102  case ('API')
103  call set_param_pointer(input_definition, gwt_api_aggregate_definitions)
104  case ('DIS')
105  call set_param_pointer(input_definition, gwt_dis_aggregate_definitions)
106  case ('DISU')
107  call set_param_pointer(input_definition, gwt_disu_aggregate_definitions)
108  case ('DISV')
109  call set_param_pointer(input_definition, gwt_disv_aggregate_definitions)
110  case ('DSP')
111  call set_param_pointer(input_definition, gwt_dsp_aggregate_definitions)
112  case ('CNC')
113  call set_param_pointer(input_definition, gwt_cnc_aggregate_definitions)
114  case ('FMI')
115  call set_param_pointer(input_definition, gwt_fmi_aggregate_definitions)
116  case ('IC')
117  call set_param_pointer(input_definition, gwt_ic_aggregate_definitions)
118  case ('IST')
119  call set_param_pointer(input_definition, gwt_ist_aggregate_definitions)
120  case ('MST')
121  call set_param_pointer(input_definition, gwt_mst_aggregate_definitions)
122  case ('OC')
123  call set_param_pointer(input_definition, gwt_oc_aggregate_definitions)
124  case ('SRC')
125  call set_param_pointer(input_definition, gwt_src_aggregate_definitions)
126  case ('SSM')
127  call set_param_pointer(input_definition, gwt_ssm_aggregate_definitions)
128  case default
129  end select
130  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwt_block_definitions()

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

Definition at line 133 of file IdmGwtDfnSelector.f90.

134  character(len=*), intent(in) :: subcomponent
135  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
136  nullify (input_definition)
137  select case (subcomponent)
138  case ('NAM')
139  call set_block_pointer(input_definition, gwt_nam_block_definitions)
140  case ('ADV')
141  call set_block_pointer(input_definition, gwt_adv_block_definitions)
142  case ('API')
143  call set_block_pointer(input_definition, gwt_api_block_definitions)
144  case ('DIS')
145  call set_block_pointer(input_definition, gwt_dis_block_definitions)
146  case ('DISU')
147  call set_block_pointer(input_definition, gwt_disu_block_definitions)
148  case ('DISV')
149  call set_block_pointer(input_definition, gwt_disv_block_definitions)
150  case ('DSP')
151  call set_block_pointer(input_definition, gwt_dsp_block_definitions)
152  case ('CNC')
153  call set_block_pointer(input_definition, gwt_cnc_block_definitions)
154  case ('FMI')
155  call set_block_pointer(input_definition, gwt_fmi_block_definitions)
156  case ('IC')
157  call set_block_pointer(input_definition, gwt_ic_block_definitions)
158  case ('IST')
159  call set_block_pointer(input_definition, gwt_ist_block_definitions)
160  case ('MST')
161  call set_block_pointer(input_definition, gwt_mst_block_definitions)
162  case ('OC')
163  call set_block_pointer(input_definition, gwt_oc_block_definitions)
164  case ('SRC')
165  call set_block_pointer(input_definition, gwt_src_block_definitions)
166  case ('SSM')
167  call set_block_pointer(input_definition, gwt_ssm_block_definitions)
168  case default
169  end select
170  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwt_idm_integrated()

logical function, public idmgwtdfnselectormodule::gwt_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 254 of file IdmGwtDfnSelector.f90.

255  character(len=*), intent(in) :: subcomponent
256  logical :: integrated
257  integrated = .false.
258  select case (subcomponent)
259  case ('NAM')
260  integrated = .true.
261  case ('ADV')
262  integrated = .true.
263  case ('API')
264  integrated = .true.
265  case ('DIS')
266  integrated = .true.
267  case ('DISU')
268  integrated = .true.
269  case ('DISV')
270  integrated = .true.
271  case ('DSP')
272  integrated = .true.
273  case ('CNC')
274  integrated = .true.
275  case ('FMI')
276  integrated = .true.
277  case ('IC')
278  integrated = .true.
279  case ('IST')
280  integrated = .true.
281  case ('MST')
282  integrated = .true.
283  case ('OC')
284  integrated = .true.
285  case ('SRC')
286  integrated = .true.
287  case ('SSM')
288  integrated = .true.
289  case default
290  end select
291  return
Here is the caller graph for this function:

◆ gwt_idm_multi_package()

logical function, public idmgwtdfnselectormodule::gwt_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 173 of file IdmGwtDfnSelector.f90.

174  character(len=*), intent(in) :: subcomponent
175  logical :: multi_package
176  select case (subcomponent)
177  case ('NAM')
178  multi_package = gwt_nam_multi_package
179  case ('ADV')
180  multi_package = gwt_adv_multi_package
181  case ('API')
182  multi_package = gwt_api_multi_package
183  case ('DIS')
184  multi_package = gwt_dis_multi_package
185  case ('DISU')
186  multi_package = gwt_disu_multi_package
187  case ('DISV')
188  multi_package = gwt_disv_multi_package
189  case ('DSP')
190  multi_package = gwt_dsp_multi_package
191  case ('CNC')
192  multi_package = gwt_cnc_multi_package
193  case ('FMI')
194  multi_package = gwt_fmi_multi_package
195  case ('IC')
196  multi_package = gwt_ic_multi_package
197  case ('IST')
198  multi_package = gwt_ist_multi_package
199  case ('MST')
200  multi_package = gwt_mst_multi_package
201  case ('OC')
202  multi_package = gwt_oc_multi_package
203  case ('SRC')
204  multi_package = gwt_src_multi_package
205  case ('SSM')
206  multi_package = gwt_ssm_multi_package
207  case default
208  call store_error('Idm selector subcomponent not found; '//&
209  &'component="GWT"'//&
210  &', subcomponent="'//trim(subcomponent)//'".', .true.)
211  end select
212  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwt_idm_subpackages()

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

Definition at line 215 of file IdmGwtDfnSelector.f90.

216  character(len=*), intent(in) :: subcomponent
217  character(len=16), dimension(:), pointer :: subpackages
218  select case (subcomponent)
219  case ('NAM')
220  call set_subpkg_pointer(subpackages, gwt_nam_subpackages)
221  case ('ADV')
222  call set_subpkg_pointer(subpackages, gwt_adv_subpackages)
223  case ('API')
224  call set_subpkg_pointer(subpackages, gwt_api_subpackages)
225  case ('DIS')
226  call set_subpkg_pointer(subpackages, gwt_dis_subpackages)
227  case ('DISU')
228  call set_subpkg_pointer(subpackages, gwt_disu_subpackages)
229  case ('DISV')
230  call set_subpkg_pointer(subpackages, gwt_disv_subpackages)
231  case ('DSP')
232  call set_subpkg_pointer(subpackages, gwt_dsp_subpackages)
233  case ('CNC')
234  call set_subpkg_pointer(subpackages, gwt_cnc_subpackages)
235  case ('FMI')
236  call set_subpkg_pointer(subpackages, gwt_fmi_subpackages)
237  case ('IC')
238  call set_subpkg_pointer(subpackages, gwt_ic_subpackages)
239  case ('IST')
240  call set_subpkg_pointer(subpackages, gwt_ist_subpackages)
241  case ('MST')
242  call set_subpkg_pointer(subpackages, gwt_mst_subpackages)
243  case ('OC')
244  call set_subpkg_pointer(subpackages, gwt_oc_subpackages)
245  case ('SRC')
246  call set_subpkg_pointer(subpackages, gwt_src_subpackages)
247  case ('SSM')
248  call set_subpkg_pointer(subpackages, gwt_ssm_subpackages)
249  case default
250  end select
251  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwt_param_definitions()

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

Definition at line 53 of file IdmGwtDfnSelector.f90.

54  character(len=*), intent(in) :: subcomponent
55  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
56  nullify (input_definition)
57  select case (subcomponent)
58  case ('NAM')
59  call set_param_pointer(input_definition, gwt_nam_param_definitions)
60  case ('ADV')
61  call set_param_pointer(input_definition, gwt_adv_param_definitions)
62  case ('API')
63  call set_param_pointer(input_definition, gwt_api_param_definitions)
64  case ('DIS')
65  call set_param_pointer(input_definition, gwt_dis_param_definitions)
66  case ('DISU')
67  call set_param_pointer(input_definition, gwt_disu_param_definitions)
68  case ('DISV')
69  call set_param_pointer(input_definition, gwt_disv_param_definitions)
70  case ('DSP')
71  call set_param_pointer(input_definition, gwt_dsp_param_definitions)
72  case ('CNC')
73  call set_param_pointer(input_definition, gwt_cnc_param_definitions)
74  case ('FMI')
75  call set_param_pointer(input_definition, gwt_fmi_param_definitions)
76  case ('IC')
77  call set_param_pointer(input_definition, gwt_ic_param_definitions)
78  case ('IST')
79  call set_param_pointer(input_definition, gwt_ist_param_definitions)
80  case ('MST')
81  call set_param_pointer(input_definition, gwt_mst_param_definitions)
82  case ('OC')
83  call set_param_pointer(input_definition, gwt_oc_param_definitions)
84  case ('SRC')
85  call set_param_pointer(input_definition, gwt_src_param_definitions)
86  case ('SSM')
87  call set_param_pointer(input_definition, gwt_ssm_param_definitions)
88  case default
89  end select
90  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 41 of file IdmGwtDfnSelector.f90.

42  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
43  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
44  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_param_pointer()

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

Definition at line 35 of file IdmGwtDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 47 of file IdmGwtDfnSelector.f90.

48  character(len=16), dimension(:), pointer :: subpkg_list
49  character(len=16), dimension(:), target :: subpkg_list_target
50  subpkg_list => subpkg_list_target
Here is the caller graph for this function: