MODFLOW 6  version 6.9.0.dev0
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)
 
logical function, public gwf_idm_is_advanced (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 136 of file IdmGwfDfnSelector.f90.

137  character(len=*), intent(in) :: subcomponent
138  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
139  nullify (input_definition)
140  select case (subcomponent)
141  case ('NAM')
142  call set_param_pointer(input_definition, gwf_nam_aggregate_definitions)
143  case ('API')
144  call set_param_pointer(input_definition, gwf_api_aggregate_definitions)
145  case ('BUY')
146  call set_param_pointer(input_definition, gwf_buy_aggregate_definitions)
147  case ('CHD')
148  call set_param_pointer(input_definition, gwf_chd_aggregate_definitions)
149  case ('CHDG')
150  call set_param_pointer(input_definition, gwf_chdg_aggregate_definitions)
151  case ('CSUB')
152  call set_param_pointer(input_definition, gwf_csub_aggregate_definitions)
153  case ('DIS')
154  call set_param_pointer(input_definition, gwf_dis_aggregate_definitions)
155  case ('DISU')
156  call set_param_pointer(input_definition, gwf_disu_aggregate_definitions)
157  case ('DISV')
158  call set_param_pointer(input_definition, gwf_disv_aggregate_definitions)
159  case ('DRN')
160  call set_param_pointer(input_definition, gwf_drn_aggregate_definitions)
161  case ('DRNG')
162  call set_param_pointer(input_definition, gwf_drng_aggregate_definitions)
163  case ('EVT')
164  call set_param_pointer(input_definition, gwf_evt_aggregate_definitions)
165  case ('EVTA')
166  call set_param_pointer(input_definition, gwf_evta_aggregate_definitions)
167  case ('GHB')
168  call set_param_pointer(input_definition, gwf_ghb_aggregate_definitions)
169  case ('GHBG')
170  call set_param_pointer(input_definition, gwf_ghbg_aggregate_definitions)
171  case ('HFB')
172  call set_param_pointer(input_definition, gwf_hfb_aggregate_definitions)
173  case ('IC')
174  call set_param_pointer(input_definition, gwf_ic_aggregate_definitions)
175  case ('MAW')
176  call set_param_pointer(input_definition, gwf_maw_aggregate_definitions)
177  case ('NPF')
178  call set_param_pointer(input_definition, gwf_npf_aggregate_definitions)
179  case ('OC')
180  call set_param_pointer(input_definition, gwf_oc_aggregate_definitions)
181  case ('RCH')
182  call set_param_pointer(input_definition, gwf_rch_aggregate_definitions)
183  case ('RCHA')
184  call set_param_pointer(input_definition, gwf_rcha_aggregate_definitions)
185  case ('RIV')
186  call set_param_pointer(input_definition, gwf_riv_aggregate_definitions)
187  case ('RIVG')
188  call set_param_pointer(input_definition, gwf_rivg_aggregate_definitions)
189  case ('SFR')
190  call set_param_pointer(input_definition, gwf_sfr_aggregate_definitions)
191  case ('STO')
192  call set_param_pointer(input_definition, gwf_sto_aggregate_definitions)
193  case ('VSC')
194  call set_param_pointer(input_definition, gwf_vsc_aggregate_definitions)
195  case ('WEL')
196  call set_param_pointer(input_definition, gwf_wel_aggregate_definitions)
197  case ('WELG')
198  call set_param_pointer(input_definition, gwf_welg_aggregate_definitions)
199  case default
200  end select
201  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 204 of file IdmGwfDfnSelector.f90.

205  character(len=*), intent(in) :: subcomponent
206  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
207  nullify (input_definition)
208  select case (subcomponent)
209  case ('NAM')
210  call set_block_pointer(input_definition, gwf_nam_block_definitions)
211  case ('API')
212  call set_block_pointer(input_definition, gwf_api_block_definitions)
213  case ('BUY')
214  call set_block_pointer(input_definition, gwf_buy_block_definitions)
215  case ('CHD')
216  call set_block_pointer(input_definition, gwf_chd_block_definitions)
217  case ('CHDG')
218  call set_block_pointer(input_definition, gwf_chdg_block_definitions)
219  case ('CSUB')
220  call set_block_pointer(input_definition, gwf_csub_block_definitions)
221  case ('DIS')
222  call set_block_pointer(input_definition, gwf_dis_block_definitions)
223  case ('DISU')
224  call set_block_pointer(input_definition, gwf_disu_block_definitions)
225  case ('DISV')
226  call set_block_pointer(input_definition, gwf_disv_block_definitions)
227  case ('DRN')
228  call set_block_pointer(input_definition, gwf_drn_block_definitions)
229  case ('DRNG')
230  call set_block_pointer(input_definition, gwf_drng_block_definitions)
231  case ('EVT')
232  call set_block_pointer(input_definition, gwf_evt_block_definitions)
233  case ('EVTA')
234  call set_block_pointer(input_definition, gwf_evta_block_definitions)
235  case ('GHB')
236  call set_block_pointer(input_definition, gwf_ghb_block_definitions)
237  case ('GHBG')
238  call set_block_pointer(input_definition, gwf_ghbg_block_definitions)
239  case ('HFB')
240  call set_block_pointer(input_definition, gwf_hfb_block_definitions)
241  case ('IC')
242  call set_block_pointer(input_definition, gwf_ic_block_definitions)
243  case ('MAW')
244  call set_block_pointer(input_definition, gwf_maw_block_definitions)
245  case ('NPF')
246  call set_block_pointer(input_definition, gwf_npf_block_definitions)
247  case ('OC')
248  call set_block_pointer(input_definition, gwf_oc_block_definitions)
249  case ('RCH')
250  call set_block_pointer(input_definition, gwf_rch_block_definitions)
251  case ('RCHA')
252  call set_block_pointer(input_definition, gwf_rcha_block_definitions)
253  case ('RIV')
254  call set_block_pointer(input_definition, gwf_riv_block_definitions)
255  case ('RIVG')
256  call set_block_pointer(input_definition, gwf_rivg_block_definitions)
257  case ('SFR')
258  call set_block_pointer(input_definition, gwf_sfr_block_definitions)
259  case ('STO')
260  call set_block_pointer(input_definition, gwf_sto_block_definitions)
261  case ('VSC')
262  call set_block_pointer(input_definition, gwf_vsc_block_definitions)
263  case ('WEL')
264  call set_block_pointer(input_definition, gwf_wel_block_definitions)
265  case ('WELG')
266  call set_block_pointer(input_definition, gwf_welg_block_definitions)
267  case default
268  end select
269  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 479 of file IdmGwfDfnSelector.f90.

480  character(len=*), intent(in) :: subcomponent
481  logical :: integrated
482  integrated = .false.
483  select case (subcomponent)
484  case ('NAM')
485  integrated = .true.
486  case ('API')
487  integrated = .true.
488  case ('BUY')
489  integrated = .true.
490  case ('CHD')
491  integrated = .true.
492  case ('CHDG')
493  integrated = .true.
494  case ('CSUB')
495  integrated = .true.
496  case ('DIS')
497  integrated = .true.
498  case ('DISU')
499  integrated = .true.
500  case ('DISV')
501  integrated = .true.
502  case ('DRN')
503  integrated = .true.
504  case ('DRNG')
505  integrated = .true.
506  case ('EVT')
507  integrated = .true.
508  case ('EVTA')
509  integrated = .true.
510  case ('GHB')
511  integrated = .true.
512  case ('GHBG')
513  integrated = .true.
514  case ('HFB')
515  integrated = .true.
516  case ('IC')
517  integrated = .true.
518  case ('MAW')
519  integrated = .true.
520  case ('NPF')
521  integrated = .true.
522  case ('OC')
523  integrated = .true.
524  case ('RCH')
525  integrated = .true.
526  case ('RCHA')
527  integrated = .true.
528  case ('RIV')
529  integrated = .true.
530  case ('RIVG')
531  integrated = .true.
532  case ('SFR')
533  integrated = .true.
534  case ('STO')
535  integrated = .true.
536  case ('VSC')
537  integrated = .true.
538  case ('WEL')
539  integrated = .true.
540  case ('WELG')
541  integrated = .true.
542  case default
543  end select
544  return
Here is the caller graph for this function:

◆ gwf_idm_is_advanced()

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

Definition at line 342 of file IdmGwfDfnSelector.f90.

343  character(len=*), intent(in) :: subcomponent
344  logical :: is_advanced
345  select case (subcomponent)
346  case ('NAM')
347  is_advanced = gwf_nam_is_advanced
348  case ('API')
349  is_advanced = gwf_api_is_advanced
350  case ('BUY')
351  is_advanced = gwf_buy_is_advanced
352  case ('CHD')
353  is_advanced = gwf_chd_is_advanced
354  case ('CHDG')
355  is_advanced = gwf_chdg_is_advanced
356  case ('CSUB')
357  is_advanced = gwf_csub_is_advanced
358  case ('DIS')
359  is_advanced = gwf_dis_is_advanced
360  case ('DISU')
361  is_advanced = gwf_disu_is_advanced
362  case ('DISV')
363  is_advanced = gwf_disv_is_advanced
364  case ('DRN')
365  is_advanced = gwf_drn_is_advanced
366  case ('DRNG')
367  is_advanced = gwf_drng_is_advanced
368  case ('EVT')
369  is_advanced = gwf_evt_is_advanced
370  case ('EVTA')
371  is_advanced = gwf_evta_is_advanced
372  case ('GHB')
373  is_advanced = gwf_ghb_is_advanced
374  case ('GHBG')
375  is_advanced = gwf_ghbg_is_advanced
376  case ('HFB')
377  is_advanced = gwf_hfb_is_advanced
378  case ('IC')
379  is_advanced = gwf_ic_is_advanced
380  case ('MAW')
381  is_advanced = gwf_maw_is_advanced
382  case ('NPF')
383  is_advanced = gwf_npf_is_advanced
384  case ('OC')
385  is_advanced = gwf_oc_is_advanced
386  case ('RCH')
387  is_advanced = gwf_rch_is_advanced
388  case ('RCHA')
389  is_advanced = gwf_rcha_is_advanced
390  case ('RIV')
391  is_advanced = gwf_riv_is_advanced
392  case ('RIVG')
393  is_advanced = gwf_rivg_is_advanced
394  case ('SFR')
395  is_advanced = gwf_sfr_is_advanced
396  case ('STO')
397  is_advanced = gwf_sto_is_advanced
398  case ('VSC')
399  is_advanced = gwf_vsc_is_advanced
400  case ('WEL')
401  is_advanced = gwf_wel_is_advanced
402  case ('WELG')
403  is_advanced = gwf_welg_is_advanced
404  case default
405  call store_error('Idm selector subcomponent not found; '//&
406  &'component="GWF"'//&
407  &', subcomponent="'//trim(subcomponent)//'".', .true.)
408  end select
409  return
Here is the call graph for this function:
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 272 of file IdmGwfDfnSelector.f90.

273  character(len=*), intent(in) :: subcomponent
274  logical :: multi_package
275  select case (subcomponent)
276  case ('NAM')
277  multi_package = gwf_nam_multi_package
278  case ('API')
279  multi_package = gwf_api_multi_package
280  case ('BUY')
281  multi_package = gwf_buy_multi_package
282  case ('CHD')
283  multi_package = gwf_chd_multi_package
284  case ('CHDG')
285  multi_package = gwf_chdg_multi_package
286  case ('CSUB')
287  multi_package = gwf_csub_multi_package
288  case ('DIS')
289  multi_package = gwf_dis_multi_package
290  case ('DISU')
291  multi_package = gwf_disu_multi_package
292  case ('DISV')
293  multi_package = gwf_disv_multi_package
294  case ('DRN')
295  multi_package = gwf_drn_multi_package
296  case ('DRNG')
297  multi_package = gwf_drng_multi_package
298  case ('EVT')
299  multi_package = gwf_evt_multi_package
300  case ('EVTA')
301  multi_package = gwf_evta_multi_package
302  case ('GHB')
303  multi_package = gwf_ghb_multi_package
304  case ('GHBG')
305  multi_package = gwf_ghbg_multi_package
306  case ('HFB')
307  multi_package = gwf_hfb_multi_package
308  case ('IC')
309  multi_package = gwf_ic_multi_package
310  case ('MAW')
311  multi_package = gwf_maw_multi_package
312  case ('NPF')
313  multi_package = gwf_npf_multi_package
314  case ('OC')
315  multi_package = gwf_oc_multi_package
316  case ('RCH')
317  multi_package = gwf_rch_multi_package
318  case ('RCHA')
319  multi_package = gwf_rcha_multi_package
320  case ('RIV')
321  multi_package = gwf_riv_multi_package
322  case ('RIVG')
323  multi_package = gwf_rivg_multi_package
324  case ('SFR')
325  multi_package = gwf_sfr_multi_package
326  case ('STO')
327  multi_package = gwf_sto_multi_package
328  case ('VSC')
329  multi_package = gwf_vsc_multi_package
330  case ('WEL')
331  multi_package = gwf_wel_multi_package
332  case ('WELG')
333  multi_package = gwf_welg_multi_package
334  case default
335  call store_error('Idm selector subcomponent not found; '//&
336  &'component="GWF"'//&
337  &', subcomponent="'//trim(subcomponent)//'".', .true.)
338  end select
339  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 412 of file IdmGwfDfnSelector.f90.

413  character(len=*), intent(in) :: subcomponent
414  character(len=16), dimension(:), pointer :: subpackages
415  select case (subcomponent)
416  case ('NAM')
417  call set_subpkg_pointer(subpackages, gwf_nam_subpackages)
418  case ('API')
419  call set_subpkg_pointer(subpackages, gwf_api_subpackages)
420  case ('BUY')
421  call set_subpkg_pointer(subpackages, gwf_buy_subpackages)
422  case ('CHD')
423  call set_subpkg_pointer(subpackages, gwf_chd_subpackages)
424  case ('CHDG')
425  call set_subpkg_pointer(subpackages, gwf_chdg_subpackages)
426  case ('CSUB')
427  call set_subpkg_pointer(subpackages, gwf_csub_subpackages)
428  case ('DIS')
429  call set_subpkg_pointer(subpackages, gwf_dis_subpackages)
430  case ('DISU')
431  call set_subpkg_pointer(subpackages, gwf_disu_subpackages)
432  case ('DISV')
433  call set_subpkg_pointer(subpackages, gwf_disv_subpackages)
434  case ('DRN')
435  call set_subpkg_pointer(subpackages, gwf_drn_subpackages)
436  case ('DRNG')
437  call set_subpkg_pointer(subpackages, gwf_drng_subpackages)
438  case ('EVT')
439  call set_subpkg_pointer(subpackages, gwf_evt_subpackages)
440  case ('EVTA')
441  call set_subpkg_pointer(subpackages, gwf_evta_subpackages)
442  case ('GHB')
443  call set_subpkg_pointer(subpackages, gwf_ghb_subpackages)
444  case ('GHBG')
445  call set_subpkg_pointer(subpackages, gwf_ghbg_subpackages)
446  case ('HFB')
447  call set_subpkg_pointer(subpackages, gwf_hfb_subpackages)
448  case ('IC')
449  call set_subpkg_pointer(subpackages, gwf_ic_subpackages)
450  case ('MAW')
451  call set_subpkg_pointer(subpackages, gwf_maw_subpackages)
452  case ('NPF')
453  call set_subpkg_pointer(subpackages, gwf_npf_subpackages)
454  case ('OC')
455  call set_subpkg_pointer(subpackages, gwf_oc_subpackages)
456  case ('RCH')
457  call set_subpkg_pointer(subpackages, gwf_rch_subpackages)
458  case ('RCHA')
459  call set_subpkg_pointer(subpackages, gwf_rcha_subpackages)
460  case ('RIV')
461  call set_subpkg_pointer(subpackages, gwf_riv_subpackages)
462  case ('RIVG')
463  call set_subpkg_pointer(subpackages, gwf_rivg_subpackages)
464  case ('SFR')
465  call set_subpkg_pointer(subpackages, gwf_sfr_subpackages)
466  case ('STO')
467  call set_subpkg_pointer(subpackages, gwf_sto_subpackages)
468  case ('VSC')
469  call set_subpkg_pointer(subpackages, gwf_vsc_subpackages)
470  case ('WEL')
471  call set_subpkg_pointer(subpackages, gwf_wel_subpackages)
472  case ('WELG')
473  call set_subpkg_pointer(subpackages, gwf_welg_subpackages)
474  case default
475  end select
476  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 68 of file IdmGwfDfnSelector.f90.

69  character(len=*), intent(in) :: subcomponent
70  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
71  nullify (input_definition)
72  select case (subcomponent)
73  case ('NAM')
74  call set_param_pointer(input_definition, gwf_nam_param_definitions)
75  case ('API')
76  call set_param_pointer(input_definition, gwf_api_param_definitions)
77  case ('BUY')
78  call set_param_pointer(input_definition, gwf_buy_param_definitions)
79  case ('CHD')
80  call set_param_pointer(input_definition, gwf_chd_param_definitions)
81  case ('CHDG')
82  call set_param_pointer(input_definition, gwf_chdg_param_definitions)
83  case ('CSUB')
84  call set_param_pointer(input_definition, gwf_csub_param_definitions)
85  case ('DIS')
86  call set_param_pointer(input_definition, gwf_dis_param_definitions)
87  case ('DISU')
88  call set_param_pointer(input_definition, gwf_disu_param_definitions)
89  case ('DISV')
90  call set_param_pointer(input_definition, gwf_disv_param_definitions)
91  case ('DRN')
92  call set_param_pointer(input_definition, gwf_drn_param_definitions)
93  case ('DRNG')
94  call set_param_pointer(input_definition, gwf_drng_param_definitions)
95  case ('EVT')
96  call set_param_pointer(input_definition, gwf_evt_param_definitions)
97  case ('EVTA')
98  call set_param_pointer(input_definition, gwf_evta_param_definitions)
99  case ('GHB')
100  call set_param_pointer(input_definition, gwf_ghb_param_definitions)
101  case ('GHBG')
102  call set_param_pointer(input_definition, gwf_ghbg_param_definitions)
103  case ('HFB')
104  call set_param_pointer(input_definition, gwf_hfb_param_definitions)
105  case ('IC')
106  call set_param_pointer(input_definition, gwf_ic_param_definitions)
107  case ('MAW')
108  call set_param_pointer(input_definition, gwf_maw_param_definitions)
109  case ('NPF')
110  call set_param_pointer(input_definition, gwf_npf_param_definitions)
111  case ('OC')
112  call set_param_pointer(input_definition, gwf_oc_param_definitions)
113  case ('RCH')
114  call set_param_pointer(input_definition, gwf_rch_param_definitions)
115  case ('RCHA')
116  call set_param_pointer(input_definition, gwf_rcha_param_definitions)
117  case ('RIV')
118  call set_param_pointer(input_definition, gwf_riv_param_definitions)
119  case ('RIVG')
120  call set_param_pointer(input_definition, gwf_rivg_param_definitions)
121  case ('SFR')
122  call set_param_pointer(input_definition, gwf_sfr_param_definitions)
123  case ('STO')
124  call set_param_pointer(input_definition, gwf_sto_param_definitions)
125  case ('VSC')
126  call set_param_pointer(input_definition, gwf_vsc_param_definitions)
127  case ('WEL')
128  call set_param_pointer(input_definition, gwf_wel_param_definitions)
129  case ('WELG')
130  call set_param_pointer(input_definition, gwf_welg_param_definitions)
131  case default
132  end select
133  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 56 of file IdmGwfDfnSelector.f90.

57  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
58  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
59  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 50 of file IdmGwfDfnSelector.f90.

51  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
52  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
53  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 62 of file IdmGwfDfnSelector.f90.

63  character(len=16), dimension(:), pointer :: subpkg_list
64  character(len=16), dimension(:), target :: subpkg_list_target
65  subpkg_list => subpkg_list_target
Here is the caller graph for this function: