MODFLOW 6  version 6.7.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)
 
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 69 of file IdmGwtDfnSelector.f90.

70  character(len=*), intent(in) :: subcomponent
71  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
72  nullify (input_definition)
73  select case (subcomponent)
74  case ('NAM')
75  call set_param_pointer(input_definition, gwt_nam_aggregate_definitions)
76  case ('DIS')
77  call set_param_pointer(input_definition, gwt_dis_aggregate_definitions)
78  case ('DISU')
79  call set_param_pointer(input_definition, gwt_disu_aggregate_definitions)
80  case ('DISV')
81  call set_param_pointer(input_definition, gwt_disv_aggregate_definitions)
82  case ('DSP')
83  call set_param_pointer(input_definition, gwt_dsp_aggregate_definitions)
84  case ('CNC')
85  call set_param_pointer(input_definition, gwt_cnc_aggregate_definitions)
86  case ('IC')
87  call set_param_pointer(input_definition, gwt_ic_aggregate_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:

◆ gwt_block_definitions()

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

Definition at line 93 of file IdmGwtDfnSelector.f90.

94  character(len=*), intent(in) :: subcomponent
95  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
96  nullify (input_definition)
97  select case (subcomponent)
98  case ('NAM')
99  call set_block_pointer(input_definition, gwt_nam_block_definitions)
100  case ('DIS')
101  call set_block_pointer(input_definition, gwt_dis_block_definitions)
102  case ('DISU')
103  call set_block_pointer(input_definition, gwt_disu_block_definitions)
104  case ('DISV')
105  call set_block_pointer(input_definition, gwt_disv_block_definitions)
106  case ('DSP')
107  call set_block_pointer(input_definition, gwt_dsp_block_definitions)
108  case ('CNC')
109  call set_block_pointer(input_definition, gwt_cnc_block_definitions)
110  case ('IC')
111  call set_block_pointer(input_definition, gwt_ic_block_definitions)
112  case default
113  end select
114  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 166 of file IdmGwtDfnSelector.f90.

167  character(len=*), intent(in) :: subcomponent
168  logical :: integrated
169  integrated = .false.
170  select case (subcomponent)
171  case ('NAM')
172  integrated = .true.
173  case ('DIS')
174  integrated = .true.
175  case ('DISU')
176  integrated = .true.
177  case ('DISV')
178  integrated = .true.
179  case ('DSP')
180  integrated = .true.
181  case ('CNC')
182  integrated = .true.
183  case ('IC')
184  integrated = .true.
185  case default
186  end select
187  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 117 of file IdmGwtDfnSelector.f90.

118  character(len=*), intent(in) :: subcomponent
119  logical :: multi_package
120  select case (subcomponent)
121  case ('NAM')
122  multi_package = gwt_nam_multi_package
123  case ('DIS')
124  multi_package = gwt_dis_multi_package
125  case ('DISU')
126  multi_package = gwt_disu_multi_package
127  case ('DISV')
128  multi_package = gwt_disv_multi_package
129  case ('DSP')
130  multi_package = gwt_dsp_multi_package
131  case ('CNC')
132  multi_package = gwt_cnc_multi_package
133  case ('IC')
134  multi_package = gwt_ic_multi_package
135  case default
136  call store_error('Idm selector subcomponent not found; '//&
137  &'component="GWT"'//&
138  &', subcomponent="'//trim(subcomponent)//'".', .true.)
139  end select
140  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 143 of file IdmGwtDfnSelector.f90.

144  character(len=*), intent(in) :: subcomponent
145  character(len=16), dimension(:), pointer :: subpackages
146  select case (subcomponent)
147  case ('NAM')
148  call set_subpkg_pointer(subpackages, gwt_nam_subpackages)
149  case ('DIS')
150  call set_subpkg_pointer(subpackages, gwt_dis_subpackages)
151  case ('DISU')
152  call set_subpkg_pointer(subpackages, gwt_disu_subpackages)
153  case ('DISV')
154  call set_subpkg_pointer(subpackages, gwt_disv_subpackages)
155  case ('DSP')
156  call set_subpkg_pointer(subpackages, gwt_dsp_subpackages)
157  case ('CNC')
158  call set_subpkg_pointer(subpackages, gwt_cnc_subpackages)
159  case ('IC')
160  call set_subpkg_pointer(subpackages, gwt_ic_subpackages)
161  case default
162  end select
163  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 45 of file IdmGwtDfnSelector.f90.

46  character(len=*), intent(in) :: subcomponent
47  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
48  nullify (input_definition)
49  select case (subcomponent)
50  case ('NAM')
51  call set_param_pointer(input_definition, gwt_nam_param_definitions)
52  case ('DIS')
53  call set_param_pointer(input_definition, gwt_dis_param_definitions)
54  case ('DISU')
55  call set_param_pointer(input_definition, gwt_disu_param_definitions)
56  case ('DISV')
57  call set_param_pointer(input_definition, gwt_disv_param_definitions)
58  case ('DSP')
59  call set_param_pointer(input_definition, gwt_dsp_param_definitions)
60  case ('CNC')
61  call set_param_pointer(input_definition, gwt_cnc_param_definitions)
62  case ('IC')
63  call set_param_pointer(input_definition, gwt_ic_param_definitions)
64  case default
65  end select
66  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 33 of file IdmGwtDfnSelector.f90.

34  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
35  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
36  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 27 of file IdmGwtDfnSelector.f90.

28  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
29  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
30  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 39 of file IdmGwtDfnSelector.f90.

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