MODFLOW 6  version 6.9.0.dev0
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)
 
logical function, public gwt_idm_is_advanced (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 106 of file IdmGwtDfnSelector.f90.

107  character(len=*), intent(in) :: subcomponent
108  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
109  nullify (input_definition)
110  select case (subcomponent)
111  case ('NAM')
112  call set_param_pointer(input_definition, gwt_nam_aggregate_definitions)
113  case ('ADV')
114  call set_param_pointer(input_definition, gwt_adv_aggregate_definitions)
115  case ('API')
116  call set_param_pointer(input_definition, gwt_api_aggregate_definitions)
117  case ('DIS')
118  call set_param_pointer(input_definition, gwt_dis_aggregate_definitions)
119  case ('DISU')
120  call set_param_pointer(input_definition, gwt_disu_aggregate_definitions)
121  case ('DISV')
122  call set_param_pointer(input_definition, gwt_disv_aggregate_definitions)
123  case ('DSP')
124  call set_param_pointer(input_definition, gwt_dsp_aggregate_definitions)
125  case ('CNC')
126  call set_param_pointer(input_definition, gwt_cnc_aggregate_definitions)
127  case ('FMI')
128  call set_param_pointer(input_definition, gwt_fmi_aggregate_definitions)
129  case ('IC')
130  call set_param_pointer(input_definition, gwt_ic_aggregate_definitions)
131  case ('IST')
132  call set_param_pointer(input_definition, gwt_ist_aggregate_definitions)
133  case ('LKT')
134  call set_param_pointer(input_definition, gwt_lkt_aggregate_definitions)
135  case ('MST')
136  call set_param_pointer(input_definition, gwt_mst_aggregate_definitions)
137  case ('MWT')
138  call set_param_pointer(input_definition, gwt_mwt_aggregate_definitions)
139  case ('OC')
140  call set_param_pointer(input_definition, gwt_oc_aggregate_definitions)
141  case ('SFT')
142  call set_param_pointer(input_definition, gwt_sft_aggregate_definitions)
143  case ('SRC')
144  call set_param_pointer(input_definition, gwt_src_aggregate_definitions)
145  case ('SSM')
146  call set_param_pointer(input_definition, gwt_ssm_aggregate_definitions)
147  case ('UZT')
148  call set_param_pointer(input_definition, gwt_uzt_aggregate_definitions)
149  case default
150  end select
151  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 154 of file IdmGwtDfnSelector.f90.

155  character(len=*), intent(in) :: subcomponent
156  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
157  nullify (input_definition)
158  select case (subcomponent)
159  case ('NAM')
160  call set_block_pointer(input_definition, gwt_nam_block_definitions)
161  case ('ADV')
162  call set_block_pointer(input_definition, gwt_adv_block_definitions)
163  case ('API')
164  call set_block_pointer(input_definition, gwt_api_block_definitions)
165  case ('DIS')
166  call set_block_pointer(input_definition, gwt_dis_block_definitions)
167  case ('DISU')
168  call set_block_pointer(input_definition, gwt_disu_block_definitions)
169  case ('DISV')
170  call set_block_pointer(input_definition, gwt_disv_block_definitions)
171  case ('DSP')
172  call set_block_pointer(input_definition, gwt_dsp_block_definitions)
173  case ('CNC')
174  call set_block_pointer(input_definition, gwt_cnc_block_definitions)
175  case ('FMI')
176  call set_block_pointer(input_definition, gwt_fmi_block_definitions)
177  case ('IC')
178  call set_block_pointer(input_definition, gwt_ic_block_definitions)
179  case ('IST')
180  call set_block_pointer(input_definition, gwt_ist_block_definitions)
181  case ('LKT')
182  call set_block_pointer(input_definition, gwt_lkt_block_definitions)
183  case ('MST')
184  call set_block_pointer(input_definition, gwt_mst_block_definitions)
185  case ('MWT')
186  call set_block_pointer(input_definition, gwt_mwt_block_definitions)
187  case ('OC')
188  call set_block_pointer(input_definition, gwt_oc_block_definitions)
189  case ('SFT')
190  call set_block_pointer(input_definition, gwt_sft_block_definitions)
191  case ('SRC')
192  call set_block_pointer(input_definition, gwt_src_block_definitions)
193  case ('SSM')
194  call set_block_pointer(input_definition, gwt_ssm_block_definitions)
195  case ('UZT')
196  call set_block_pointer(input_definition, gwt_uzt_block_definitions)
197  case default
198  end select
199  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 349 of file IdmGwtDfnSelector.f90.

350  character(len=*), intent(in) :: subcomponent
351  logical :: integrated
352  integrated = .false.
353  select case (subcomponent)
354  case ('NAM')
355  integrated = .true.
356  case ('ADV')
357  integrated = .true.
358  case ('API')
359  integrated = .true.
360  case ('DIS')
361  integrated = .true.
362  case ('DISU')
363  integrated = .true.
364  case ('DISV')
365  integrated = .true.
366  case ('DSP')
367  integrated = .true.
368  case ('CNC')
369  integrated = .true.
370  case ('FMI')
371  integrated = .true.
372  case ('IC')
373  integrated = .true.
374  case ('IST')
375  integrated = .true.
376  case ('LKT')
377  integrated = .true.
378  case ('MST')
379  integrated = .true.
380  case ('MWT')
381  integrated = .true.
382  case ('OC')
383  integrated = .true.
384  case ('SFT')
385  integrated = .true.
386  case ('SRC')
387  integrated = .true.
388  case ('SSM')
389  integrated = .true.
390  case ('UZT')
391  integrated = .true.
392  case default
393  end select
394  return
Here is the caller graph for this function:

◆ gwt_idm_is_advanced()

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

Definition at line 252 of file IdmGwtDfnSelector.f90.

253  character(len=*), intent(in) :: subcomponent
254  logical :: is_advanced
255  select case (subcomponent)
256  case ('NAM')
257  is_advanced = gwt_nam_is_advanced
258  case ('ADV')
259  is_advanced = gwt_adv_is_advanced
260  case ('API')
261  is_advanced = gwt_api_is_advanced
262  case ('DIS')
263  is_advanced = gwt_dis_is_advanced
264  case ('DISU')
265  is_advanced = gwt_disu_is_advanced
266  case ('DISV')
267  is_advanced = gwt_disv_is_advanced
268  case ('DSP')
269  is_advanced = gwt_dsp_is_advanced
270  case ('CNC')
271  is_advanced = gwt_cnc_is_advanced
272  case ('FMI')
273  is_advanced = gwt_fmi_is_advanced
274  case ('IC')
275  is_advanced = gwt_ic_is_advanced
276  case ('IST')
277  is_advanced = gwt_ist_is_advanced
278  case ('LKT')
279  is_advanced = gwt_lkt_is_advanced
280  case ('MST')
281  is_advanced = gwt_mst_is_advanced
282  case ('MWT')
283  is_advanced = gwt_mwt_is_advanced
284  case ('OC')
285  is_advanced = gwt_oc_is_advanced
286  case ('SFT')
287  is_advanced = gwt_sft_is_advanced
288  case ('SRC')
289  is_advanced = gwt_src_is_advanced
290  case ('SSM')
291  is_advanced = gwt_ssm_is_advanced
292  case ('UZT')
293  is_advanced = gwt_uzt_is_advanced
294  case default
295  call store_error('Idm selector subcomponent not found; '//&
296  &'component="GWT"'//&
297  &', subcomponent="'//trim(subcomponent)//'".', .true.)
298  end select
299  return
Here is the call graph for this function:
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 202 of file IdmGwtDfnSelector.f90.

203  character(len=*), intent(in) :: subcomponent
204  logical :: multi_package
205  select case (subcomponent)
206  case ('NAM')
207  multi_package = gwt_nam_multi_package
208  case ('ADV')
209  multi_package = gwt_adv_multi_package
210  case ('API')
211  multi_package = gwt_api_multi_package
212  case ('DIS')
213  multi_package = gwt_dis_multi_package
214  case ('DISU')
215  multi_package = gwt_disu_multi_package
216  case ('DISV')
217  multi_package = gwt_disv_multi_package
218  case ('DSP')
219  multi_package = gwt_dsp_multi_package
220  case ('CNC')
221  multi_package = gwt_cnc_multi_package
222  case ('FMI')
223  multi_package = gwt_fmi_multi_package
224  case ('IC')
225  multi_package = gwt_ic_multi_package
226  case ('IST')
227  multi_package = gwt_ist_multi_package
228  case ('LKT')
229  multi_package = gwt_lkt_multi_package
230  case ('MST')
231  multi_package = gwt_mst_multi_package
232  case ('MWT')
233  multi_package = gwt_mwt_multi_package
234  case ('OC')
235  multi_package = gwt_oc_multi_package
236  case ('SFT')
237  multi_package = gwt_sft_multi_package
238  case ('SRC')
239  multi_package = gwt_src_multi_package
240  case ('SSM')
241  multi_package = gwt_ssm_multi_package
242  case ('UZT')
243  multi_package = gwt_uzt_multi_package
244  case default
245  call store_error('Idm selector subcomponent not found; '//&
246  &'component="GWT"'//&
247  &', subcomponent="'//trim(subcomponent)//'".', .true.)
248  end select
249  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 302 of file IdmGwtDfnSelector.f90.

303  character(len=*), intent(in) :: subcomponent
304  character(len=16), dimension(:), pointer :: subpackages
305  select case (subcomponent)
306  case ('NAM')
307  call set_subpkg_pointer(subpackages, gwt_nam_subpackages)
308  case ('ADV')
309  call set_subpkg_pointer(subpackages, gwt_adv_subpackages)
310  case ('API')
311  call set_subpkg_pointer(subpackages, gwt_api_subpackages)
312  case ('DIS')
313  call set_subpkg_pointer(subpackages, gwt_dis_subpackages)
314  case ('DISU')
315  call set_subpkg_pointer(subpackages, gwt_disu_subpackages)
316  case ('DISV')
317  call set_subpkg_pointer(subpackages, gwt_disv_subpackages)
318  case ('DSP')
319  call set_subpkg_pointer(subpackages, gwt_dsp_subpackages)
320  case ('CNC')
321  call set_subpkg_pointer(subpackages, gwt_cnc_subpackages)
322  case ('FMI')
323  call set_subpkg_pointer(subpackages, gwt_fmi_subpackages)
324  case ('IC')
325  call set_subpkg_pointer(subpackages, gwt_ic_subpackages)
326  case ('IST')
327  call set_subpkg_pointer(subpackages, gwt_ist_subpackages)
328  case ('LKT')
329  call set_subpkg_pointer(subpackages, gwt_lkt_subpackages)
330  case ('MST')
331  call set_subpkg_pointer(subpackages, gwt_mst_subpackages)
332  case ('MWT')
333  call set_subpkg_pointer(subpackages, gwt_mwt_subpackages)
334  case ('OC')
335  call set_subpkg_pointer(subpackages, gwt_oc_subpackages)
336  case ('SFT')
337  call set_subpkg_pointer(subpackages, gwt_sft_subpackages)
338  case ('SRC')
339  call set_subpkg_pointer(subpackages, gwt_src_subpackages)
340  case ('SSM')
341  call set_subpkg_pointer(subpackages, gwt_ssm_subpackages)
342  case ('UZT')
343  call set_subpkg_pointer(subpackages, gwt_uzt_subpackages)
344  case default
345  end select
346  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 58 of file IdmGwtDfnSelector.f90.

59  character(len=*), intent(in) :: subcomponent
60  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
61  nullify (input_definition)
62  select case (subcomponent)
63  case ('NAM')
64  call set_param_pointer(input_definition, gwt_nam_param_definitions)
65  case ('ADV')
66  call set_param_pointer(input_definition, gwt_adv_param_definitions)
67  case ('API')
68  call set_param_pointer(input_definition, gwt_api_param_definitions)
69  case ('DIS')
70  call set_param_pointer(input_definition, gwt_dis_param_definitions)
71  case ('DISU')
72  call set_param_pointer(input_definition, gwt_disu_param_definitions)
73  case ('DISV')
74  call set_param_pointer(input_definition, gwt_disv_param_definitions)
75  case ('DSP')
76  call set_param_pointer(input_definition, gwt_dsp_param_definitions)
77  case ('CNC')
78  call set_param_pointer(input_definition, gwt_cnc_param_definitions)
79  case ('FMI')
80  call set_param_pointer(input_definition, gwt_fmi_param_definitions)
81  case ('IC')
82  call set_param_pointer(input_definition, gwt_ic_param_definitions)
83  case ('IST')
84  call set_param_pointer(input_definition, gwt_ist_param_definitions)
85  case ('LKT')
86  call set_param_pointer(input_definition, gwt_lkt_param_definitions)
87  case ('MST')
88  call set_param_pointer(input_definition, gwt_mst_param_definitions)
89  case ('MWT')
90  call set_param_pointer(input_definition, gwt_mwt_param_definitions)
91  case ('OC')
92  call set_param_pointer(input_definition, gwt_oc_param_definitions)
93  case ('SFT')
94  call set_param_pointer(input_definition, gwt_sft_param_definitions)
95  case ('SRC')
96  call set_param_pointer(input_definition, gwt_src_param_definitions)
97  case ('SSM')
98  call set_param_pointer(input_definition, gwt_ssm_param_definitions)
99  case ('UZT')
100  call set_param_pointer(input_definition, gwt_uzt_param_definitions)
101  case default
102  end select
103  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 46 of file IdmGwtDfnSelector.f90.

47  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
48  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
49  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 40 of file IdmGwtDfnSelector.f90.

41  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
42  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
43  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 52 of file IdmGwtDfnSelector.f90.

53  character(len=16), dimension(:), pointer :: subpkg_list
54  character(len=16), dimension(:), target :: subpkg_list_target
55  subpkg_list => subpkg_list_target
Here is the caller graph for this function: