MODFLOW 6  version 6.7.0.dev2
USGS Modular Hydrologic Model
Functions/Subroutines
idmgwfdfnselectormodule 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 gwf_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public gwf_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public gwf_block_definitions (subcomponent)
 
logical function, public gwf_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public gwf_idm_subpackages (subcomponent)
 
logical function, public gwf_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ gwf_aggregate_definitions()

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

Definition at line 126 of file IdmGwfDfnSelector.f90.

127  character(len=*), intent(in) :: subcomponent
128  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
129  nullify (input_definition)
130  select case (subcomponent)
131  case ('NAM')
132  call set_param_pointer(input_definition, gwf_nam_aggregate_definitions)
133  case ('API')
134  call set_param_pointer(input_definition, gwf_api_aggregate_definitions)
135  case ('BUY')
136  call set_param_pointer(input_definition, gwf_buy_aggregate_definitions)
137  case ('CHD')
138  call set_param_pointer(input_definition, gwf_chd_aggregate_definitions)
139  case ('CHDG')
140  call set_param_pointer(input_definition, gwf_chdg_aggregate_definitions)
141  case ('CSUB')
142  call set_param_pointer(input_definition, gwf_csub_aggregate_definitions)
143  case ('DIS')
144  call set_param_pointer(input_definition, gwf_dis_aggregate_definitions)
145  case ('DISU')
146  call set_param_pointer(input_definition, gwf_disu_aggregate_definitions)
147  case ('DISV')
148  call set_param_pointer(input_definition, gwf_disv_aggregate_definitions)
149  case ('DRN')
150  call set_param_pointer(input_definition, gwf_drn_aggregate_definitions)
151  case ('DRNG')
152  call set_param_pointer(input_definition, gwf_drng_aggregate_definitions)
153  case ('EVT')
154  call set_param_pointer(input_definition, gwf_evt_aggregate_definitions)
155  case ('EVTA')
156  call set_param_pointer(input_definition, gwf_evta_aggregate_definitions)
157  case ('GHB')
158  call set_param_pointer(input_definition, gwf_ghb_aggregate_definitions)
159  case ('GHBG')
160  call set_param_pointer(input_definition, gwf_ghbg_aggregate_definitions)
161  case ('HFB')
162  call set_param_pointer(input_definition, gwf_hfb_aggregate_definitions)
163  case ('IC')
164  call set_param_pointer(input_definition, gwf_ic_aggregate_definitions)
165  case ('NPF')
166  call set_param_pointer(input_definition, gwf_npf_aggregate_definitions)
167  case ('RCH')
168  call set_param_pointer(input_definition, gwf_rch_aggregate_definitions)
169  case ('RCHA')
170  call set_param_pointer(input_definition, gwf_rcha_aggregate_definitions)
171  case ('RIV')
172  call set_param_pointer(input_definition, gwf_riv_aggregate_definitions)
173  case ('RIVG')
174  call set_param_pointer(input_definition, gwf_rivg_aggregate_definitions)
175  case ('STO')
176  call set_param_pointer(input_definition, gwf_sto_aggregate_definitions)
177  case ('VSC')
178  call set_param_pointer(input_definition, gwf_vsc_aggregate_definitions)
179  case ('WEL')
180  call set_param_pointer(input_definition, gwf_wel_aggregate_definitions)
181  case ('WELG')
182  call set_param_pointer(input_definition, gwf_welg_aggregate_definitions)
183  case default
184  end select
185  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwf_block_definitions()

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

Definition at line 188 of file IdmGwfDfnSelector.f90.

189  character(len=*), intent(in) :: subcomponent
190  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
191  nullify (input_definition)
192  select case (subcomponent)
193  case ('NAM')
194  call set_block_pointer(input_definition, gwf_nam_block_definitions)
195  case ('API')
196  call set_block_pointer(input_definition, gwf_api_block_definitions)
197  case ('BUY')
198  call set_block_pointer(input_definition, gwf_buy_block_definitions)
199  case ('CHD')
200  call set_block_pointer(input_definition, gwf_chd_block_definitions)
201  case ('CHDG')
202  call set_block_pointer(input_definition, gwf_chdg_block_definitions)
203  case ('CSUB')
204  call set_block_pointer(input_definition, gwf_csub_block_definitions)
205  case ('DIS')
206  call set_block_pointer(input_definition, gwf_dis_block_definitions)
207  case ('DISU')
208  call set_block_pointer(input_definition, gwf_disu_block_definitions)
209  case ('DISV')
210  call set_block_pointer(input_definition, gwf_disv_block_definitions)
211  case ('DRN')
212  call set_block_pointer(input_definition, gwf_drn_block_definitions)
213  case ('DRNG')
214  call set_block_pointer(input_definition, gwf_drng_block_definitions)
215  case ('EVT')
216  call set_block_pointer(input_definition, gwf_evt_block_definitions)
217  case ('EVTA')
218  call set_block_pointer(input_definition, gwf_evta_block_definitions)
219  case ('GHB')
220  call set_block_pointer(input_definition, gwf_ghb_block_definitions)
221  case ('GHBG')
222  call set_block_pointer(input_definition, gwf_ghbg_block_definitions)
223  case ('HFB')
224  call set_block_pointer(input_definition, gwf_hfb_block_definitions)
225  case ('IC')
226  call set_block_pointer(input_definition, gwf_ic_block_definitions)
227  case ('NPF')
228  call set_block_pointer(input_definition, gwf_npf_block_definitions)
229  case ('RCH')
230  call set_block_pointer(input_definition, gwf_rch_block_definitions)
231  case ('RCHA')
232  call set_block_pointer(input_definition, gwf_rcha_block_definitions)
233  case ('RIV')
234  call set_block_pointer(input_definition, gwf_riv_block_definitions)
235  case ('RIVG')
236  call set_block_pointer(input_definition, gwf_rivg_block_definitions)
237  case ('STO')
238  call set_block_pointer(input_definition, gwf_sto_block_definitions)
239  case ('VSC')
240  call set_block_pointer(input_definition, gwf_vsc_block_definitions)
241  case ('WEL')
242  call set_block_pointer(input_definition, gwf_wel_block_definitions)
243  case ('WELG')
244  call set_block_pointer(input_definition, gwf_welg_block_definitions)
245  case default
246  end select
247  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwf_idm_integrated()

logical function, public idmgwfdfnselectormodule::gwf_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 375 of file IdmGwfDfnSelector.f90.

376  character(len=*), intent(in) :: subcomponent
377  logical :: integrated
378  integrated = .false.
379  select case (subcomponent)
380  case ('NAM')
381  integrated = .true.
382  case ('API')
383  integrated = .true.
384  case ('BUY')
385  integrated = .true.
386  case ('CHD')
387  integrated = .true.
388  case ('CHDG')
389  integrated = .true.
390  case ('CSUB')
391  integrated = .true.
392  case ('DIS')
393  integrated = .true.
394  case ('DISU')
395  integrated = .true.
396  case ('DISV')
397  integrated = .true.
398  case ('DRN')
399  integrated = .true.
400  case ('DRNG')
401  integrated = .true.
402  case ('EVT')
403  integrated = .true.
404  case ('EVTA')
405  integrated = .true.
406  case ('GHB')
407  integrated = .true.
408  case ('GHBG')
409  integrated = .true.
410  case ('HFB')
411  integrated = .true.
412  case ('IC')
413  integrated = .true.
414  case ('NPF')
415  integrated = .true.
416  case ('RCH')
417  integrated = .true.
418  case ('RCHA')
419  integrated = .true.
420  case ('RIV')
421  integrated = .true.
422  case ('RIVG')
423  integrated = .true.
424  case ('STO')
425  integrated = .true.
426  case ('VSC')
427  integrated = .true.
428  case ('WEL')
429  integrated = .true.
430  case ('WELG')
431  integrated = .true.
432  case default
433  end select
434  return
Here is the caller graph for this function:

◆ gwf_idm_multi_package()

logical function, public idmgwfdfnselectormodule::gwf_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 250 of file IdmGwfDfnSelector.f90.

251  character(len=*), intent(in) :: subcomponent
252  logical :: multi_package
253  select case (subcomponent)
254  case ('NAM')
255  multi_package = gwf_nam_multi_package
256  case ('API')
257  multi_package = gwf_api_multi_package
258  case ('BUY')
259  multi_package = gwf_buy_multi_package
260  case ('CHD')
261  multi_package = gwf_chd_multi_package
262  case ('CHDG')
263  multi_package = gwf_chdg_multi_package
264  case ('CSUB')
265  multi_package = gwf_csub_multi_package
266  case ('DIS')
267  multi_package = gwf_dis_multi_package
268  case ('DISU')
269  multi_package = gwf_disu_multi_package
270  case ('DISV')
271  multi_package = gwf_disv_multi_package
272  case ('DRN')
273  multi_package = gwf_drn_multi_package
274  case ('DRNG')
275  multi_package = gwf_drng_multi_package
276  case ('EVT')
277  multi_package = gwf_evt_multi_package
278  case ('EVTA')
279  multi_package = gwf_evta_multi_package
280  case ('GHB')
281  multi_package = gwf_ghb_multi_package
282  case ('GHBG')
283  multi_package = gwf_ghbg_multi_package
284  case ('HFB')
285  multi_package = gwf_hfb_multi_package
286  case ('IC')
287  multi_package = gwf_ic_multi_package
288  case ('NPF')
289  multi_package = gwf_npf_multi_package
290  case ('RCH')
291  multi_package = gwf_rch_multi_package
292  case ('RCHA')
293  multi_package = gwf_rcha_multi_package
294  case ('RIV')
295  multi_package = gwf_riv_multi_package
296  case ('RIVG')
297  multi_package = gwf_rivg_multi_package
298  case ('STO')
299  multi_package = gwf_sto_multi_package
300  case ('VSC')
301  multi_package = gwf_vsc_multi_package
302  case ('WEL')
303  multi_package = gwf_wel_multi_package
304  case ('WELG')
305  multi_package = gwf_welg_multi_package
306  case default
307  call store_error('Idm selector subcomponent not found; '//&
308  &'component="GWF"'//&
309  &', subcomponent="'//trim(subcomponent)//'".', .true.)
310  end select
311  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwf_idm_subpackages()

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

Definition at line 314 of file IdmGwfDfnSelector.f90.

315  character(len=*), intent(in) :: subcomponent
316  character(len=16), dimension(:), pointer :: subpackages
317  select case (subcomponent)
318  case ('NAM')
319  call set_subpkg_pointer(subpackages, gwf_nam_subpackages)
320  case ('API')
321  call set_subpkg_pointer(subpackages, gwf_api_subpackages)
322  case ('BUY')
323  call set_subpkg_pointer(subpackages, gwf_buy_subpackages)
324  case ('CHD')
325  call set_subpkg_pointer(subpackages, gwf_chd_subpackages)
326  case ('CHDG')
327  call set_subpkg_pointer(subpackages, gwf_chdg_subpackages)
328  case ('CSUB')
329  call set_subpkg_pointer(subpackages, gwf_csub_subpackages)
330  case ('DIS')
331  call set_subpkg_pointer(subpackages, gwf_dis_subpackages)
332  case ('DISU')
333  call set_subpkg_pointer(subpackages, gwf_disu_subpackages)
334  case ('DISV')
335  call set_subpkg_pointer(subpackages, gwf_disv_subpackages)
336  case ('DRN')
337  call set_subpkg_pointer(subpackages, gwf_drn_subpackages)
338  case ('DRNG')
339  call set_subpkg_pointer(subpackages, gwf_drng_subpackages)
340  case ('EVT')
341  call set_subpkg_pointer(subpackages, gwf_evt_subpackages)
342  case ('EVTA')
343  call set_subpkg_pointer(subpackages, gwf_evta_subpackages)
344  case ('GHB')
345  call set_subpkg_pointer(subpackages, gwf_ghb_subpackages)
346  case ('GHBG')
347  call set_subpkg_pointer(subpackages, gwf_ghbg_subpackages)
348  case ('HFB')
349  call set_subpkg_pointer(subpackages, gwf_hfb_subpackages)
350  case ('IC')
351  call set_subpkg_pointer(subpackages, gwf_ic_subpackages)
352  case ('NPF')
353  call set_subpkg_pointer(subpackages, gwf_npf_subpackages)
354  case ('RCH')
355  call set_subpkg_pointer(subpackages, gwf_rch_subpackages)
356  case ('RCHA')
357  call set_subpkg_pointer(subpackages, gwf_rcha_subpackages)
358  case ('RIV')
359  call set_subpkg_pointer(subpackages, gwf_riv_subpackages)
360  case ('RIVG')
361  call set_subpkg_pointer(subpackages, gwf_rivg_subpackages)
362  case ('STO')
363  call set_subpkg_pointer(subpackages, gwf_sto_subpackages)
364  case ('VSC')
365  call set_subpkg_pointer(subpackages, gwf_vsc_subpackages)
366  case ('WEL')
367  call set_subpkg_pointer(subpackages, gwf_wel_subpackages)
368  case ('WELG')
369  call set_subpkg_pointer(subpackages, gwf_welg_subpackages)
370  case default
371  end select
372  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwf_param_definitions()

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

Definition at line 64 of file IdmGwfDfnSelector.f90.

65  character(len=*), intent(in) :: subcomponent
66  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
67  nullify (input_definition)
68  select case (subcomponent)
69  case ('NAM')
70  call set_param_pointer(input_definition, gwf_nam_param_definitions)
71  case ('API')
72  call set_param_pointer(input_definition, gwf_api_param_definitions)
73  case ('BUY')
74  call set_param_pointer(input_definition, gwf_buy_param_definitions)
75  case ('CHD')
76  call set_param_pointer(input_definition, gwf_chd_param_definitions)
77  case ('CHDG')
78  call set_param_pointer(input_definition, gwf_chdg_param_definitions)
79  case ('CSUB')
80  call set_param_pointer(input_definition, gwf_csub_param_definitions)
81  case ('DIS')
82  call set_param_pointer(input_definition, gwf_dis_param_definitions)
83  case ('DISU')
84  call set_param_pointer(input_definition, gwf_disu_param_definitions)
85  case ('DISV')
86  call set_param_pointer(input_definition, gwf_disv_param_definitions)
87  case ('DRN')
88  call set_param_pointer(input_definition, gwf_drn_param_definitions)
89  case ('DRNG')
90  call set_param_pointer(input_definition, gwf_drng_param_definitions)
91  case ('EVT')
92  call set_param_pointer(input_definition, gwf_evt_param_definitions)
93  case ('EVTA')
94  call set_param_pointer(input_definition, gwf_evta_param_definitions)
95  case ('GHB')
96  call set_param_pointer(input_definition, gwf_ghb_param_definitions)
97  case ('GHBG')
98  call set_param_pointer(input_definition, gwf_ghbg_param_definitions)
99  case ('HFB')
100  call set_param_pointer(input_definition, gwf_hfb_param_definitions)
101  case ('IC')
102  call set_param_pointer(input_definition, gwf_ic_param_definitions)
103  case ('NPF')
104  call set_param_pointer(input_definition, gwf_npf_param_definitions)
105  case ('RCH')
106  call set_param_pointer(input_definition, gwf_rch_param_definitions)
107  case ('RCHA')
108  call set_param_pointer(input_definition, gwf_rcha_param_definitions)
109  case ('RIV')
110  call set_param_pointer(input_definition, gwf_riv_param_definitions)
111  case ('RIVG')
112  call set_param_pointer(input_definition, gwf_rivg_param_definitions)
113  case ('STO')
114  call set_param_pointer(input_definition, gwf_sto_param_definitions)
115  case ('VSC')
116  call set_param_pointer(input_definition, gwf_vsc_param_definitions)
117  case ('WEL')
118  call set_param_pointer(input_definition, gwf_wel_param_definitions)
119  case ('WELG')
120  call set_param_pointer(input_definition, gwf_welg_param_definitions)
121  case default
122  end select
123  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 52 of file IdmGwfDfnSelector.f90.

53  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
54  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
55  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_param_pointer()

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

Definition at line 46 of file IdmGwfDfnSelector.f90.

47  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
48  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
49  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_subpkg_pointer()

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

Definition at line 58 of file IdmGwfDfnSelector.f90.

59  character(len=16), dimension(:), pointer :: subpkg_list
60  character(len=16), dimension(:), target :: subpkg_list_target
61  subpkg_list => subpkg_list_target
Here is the caller graph for this function: