MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmgwedfnselectormodule 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 gwe_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public gwe_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public gwe_block_definitions (subcomponent)
 
logical function, public gwe_idm_multi_package (subcomponent)
 
logical function, public gwe_idm_is_advanced (subcomponent)
 
character(len=16) function, dimension(:), pointer, public gwe_idm_subpackages (subcomponent)
 
logical function, public gwe_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ gwe_aggregate_definitions()

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

Definition at line 88 of file IdmGweDfnSelector.f90.

89  character(len=*), intent(in) :: subcomponent
90  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
91  nullify (input_definition)
92  select case (subcomponent)
93  case ('NAM')
94  call set_param_pointer(input_definition, gwe_nam_aggregate_definitions)
95  case ('ADV')
96  call set_param_pointer(input_definition, gwe_adv_aggregate_definitions)
97  case ('CTP')
98  call set_param_pointer(input_definition, gwe_ctp_aggregate_definitions)
99  case ('CND')
100  call set_param_pointer(input_definition, gwe_cnd_aggregate_definitions)
101  case ('DISV')
102  call set_param_pointer(input_definition, gwe_disv_aggregate_definitions)
103  case ('DISU')
104  call set_param_pointer(input_definition, gwe_disu_aggregate_definitions)
105  case ('DIS')
106  call set_param_pointer(input_definition, gwe_dis_aggregate_definitions)
107  case ('ESL')
108  call set_param_pointer(input_definition, gwe_esl_aggregate_definitions)
109  case ('EST')
110  call set_param_pointer(input_definition, gwe_est_aggregate_definitions)
111  case ('FMI')
112  call set_param_pointer(input_definition, gwe_fmi_aggregate_definitions)
113  case ('IC')
114  call set_param_pointer(input_definition, gwe_ic_aggregate_definitions)
115  case ('OC')
116  call set_param_pointer(input_definition, gwe_oc_aggregate_definitions)
117  case ('SSM')
118  call set_param_pointer(input_definition, gwe_ssm_aggregate_definitions)
119  case default
120  end select
121  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_block_definitions()

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

Definition at line 124 of file IdmGweDfnSelector.f90.

125  character(len=*), intent(in) :: subcomponent
126  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
127  nullify (input_definition)
128  select case (subcomponent)
129  case ('NAM')
130  call set_block_pointer(input_definition, gwe_nam_block_definitions)
131  case ('ADV')
132  call set_block_pointer(input_definition, gwe_adv_block_definitions)
133  case ('CTP')
134  call set_block_pointer(input_definition, gwe_ctp_block_definitions)
135  case ('CND')
136  call set_block_pointer(input_definition, gwe_cnd_block_definitions)
137  case ('DISV')
138  call set_block_pointer(input_definition, gwe_disv_block_definitions)
139  case ('DISU')
140  call set_block_pointer(input_definition, gwe_disu_block_definitions)
141  case ('DIS')
142  call set_block_pointer(input_definition, gwe_dis_block_definitions)
143  case ('ESL')
144  call set_block_pointer(input_definition, gwe_esl_block_definitions)
145  case ('EST')
146  call set_block_pointer(input_definition, gwe_est_block_definitions)
147  case ('FMI')
148  call set_block_pointer(input_definition, gwe_fmi_block_definitions)
149  case ('IC')
150  call set_block_pointer(input_definition, gwe_ic_block_definitions)
151  case ('OC')
152  call set_block_pointer(input_definition, gwe_oc_block_definitions)
153  case ('SSM')
154  call set_block_pointer(input_definition, gwe_ssm_block_definitions)
155  case default
156  end select
157  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_idm_integrated()

logical function, public idmgwedfnselectormodule::gwe_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 271 of file IdmGweDfnSelector.f90.

272  character(len=*), intent(in) :: subcomponent
273  logical :: integrated
274  integrated = .false.
275  select case (subcomponent)
276  case ('NAM')
277  integrated = .true.
278  case ('ADV')
279  integrated = .true.
280  case ('CTP')
281  integrated = .true.
282  case ('CND')
283  integrated = .true.
284  case ('DISV')
285  integrated = .true.
286  case ('DISU')
287  integrated = .true.
288  case ('DIS')
289  integrated = .true.
290  case ('ESL')
291  integrated = .true.
292  case ('EST')
293  integrated = .true.
294  case ('FMI')
295  integrated = .true.
296  case ('IC')
297  integrated = .true.
298  case ('OC')
299  integrated = .true.
300  case ('SSM')
301  integrated = .true.
302  case default
303  end select
304  return
Here is the caller graph for this function:

◆ gwe_idm_is_advanced()

logical function, public idmgwedfnselectormodule::gwe_idm_is_advanced ( character(len=*), intent(in)  subcomponent)

Definition at line 198 of file IdmGweDfnSelector.f90.

199  character(len=*), intent(in) :: subcomponent
200  logical :: is_advanced
201  select case (subcomponent)
202  case ('NAM')
203  is_advanced = gwe_nam_is_advanced
204  case ('ADV')
205  is_advanced = gwe_adv_is_advanced
206  case ('CTP')
207  is_advanced = gwe_ctp_is_advanced
208  case ('CND')
209  is_advanced = gwe_cnd_is_advanced
210  case ('DISV')
211  is_advanced = gwe_disv_is_advanced
212  case ('DISU')
213  is_advanced = gwe_disu_is_advanced
214  case ('DIS')
215  is_advanced = gwe_dis_is_advanced
216  case ('ESL')
217  is_advanced = gwe_esl_is_advanced
218  case ('EST')
219  is_advanced = gwe_est_is_advanced
220  case ('FMI')
221  is_advanced = gwe_fmi_is_advanced
222  case ('IC')
223  is_advanced = gwe_ic_is_advanced
224  case ('OC')
225  is_advanced = gwe_oc_is_advanced
226  case ('SSM')
227  is_advanced = gwe_ssm_is_advanced
228  case default
229  call store_error('Idm selector subcomponent not found; '//&
230  &'component="GWE"'//&
231  &', subcomponent="'//trim(subcomponent)//'".', .true.)
232  end select
233  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_idm_multi_package()

logical function, public idmgwedfnselectormodule::gwe_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 160 of file IdmGweDfnSelector.f90.

161  character(len=*), intent(in) :: subcomponent
162  logical :: multi_package
163  select case (subcomponent)
164  case ('NAM')
165  multi_package = gwe_nam_multi_package
166  case ('ADV')
167  multi_package = gwe_adv_multi_package
168  case ('CTP')
169  multi_package = gwe_ctp_multi_package
170  case ('CND')
171  multi_package = gwe_cnd_multi_package
172  case ('DISV')
173  multi_package = gwe_disv_multi_package
174  case ('DISU')
175  multi_package = gwe_disu_multi_package
176  case ('DIS')
177  multi_package = gwe_dis_multi_package
178  case ('ESL')
179  multi_package = gwe_esl_multi_package
180  case ('EST')
181  multi_package = gwe_est_multi_package
182  case ('FMI')
183  multi_package = gwe_fmi_multi_package
184  case ('IC')
185  multi_package = gwe_ic_multi_package
186  case ('OC')
187  multi_package = gwe_oc_multi_package
188  case ('SSM')
189  multi_package = gwe_ssm_multi_package
190  case default
191  call store_error('Idm selector subcomponent not found; '//&
192  &'component="GWE"'//&
193  &', subcomponent="'//trim(subcomponent)//'".', .true.)
194  end select
195  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_idm_subpackages()

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

Definition at line 236 of file IdmGweDfnSelector.f90.

237  character(len=*), intent(in) :: subcomponent
238  character(len=16), dimension(:), pointer :: subpackages
239  select case (subcomponent)
240  case ('NAM')
241  call set_subpkg_pointer(subpackages, gwe_nam_subpackages)
242  case ('ADV')
243  call set_subpkg_pointer(subpackages, gwe_adv_subpackages)
244  case ('CTP')
245  call set_subpkg_pointer(subpackages, gwe_ctp_subpackages)
246  case ('CND')
247  call set_subpkg_pointer(subpackages, gwe_cnd_subpackages)
248  case ('DISV')
249  call set_subpkg_pointer(subpackages, gwe_disv_subpackages)
250  case ('DISU')
251  call set_subpkg_pointer(subpackages, gwe_disu_subpackages)
252  case ('DIS')
253  call set_subpkg_pointer(subpackages, gwe_dis_subpackages)
254  case ('ESL')
255  call set_subpkg_pointer(subpackages, gwe_esl_subpackages)
256  case ('EST')
257  call set_subpkg_pointer(subpackages, gwe_est_subpackages)
258  case ('FMI')
259  call set_subpkg_pointer(subpackages, gwe_fmi_subpackages)
260  case ('IC')
261  call set_subpkg_pointer(subpackages, gwe_ic_subpackages)
262  case ('OC')
263  call set_subpkg_pointer(subpackages, gwe_oc_subpackages)
264  case ('SSM')
265  call set_subpkg_pointer(subpackages, gwe_ssm_subpackages)
266  case default
267  end select
268  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_param_definitions()

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

Definition at line 52 of file IdmGweDfnSelector.f90.

53  character(len=*), intent(in) :: subcomponent
54  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
55  nullify (input_definition)
56  select case (subcomponent)
57  case ('NAM')
58  call set_param_pointer(input_definition, gwe_nam_param_definitions)
59  case ('ADV')
60  call set_param_pointer(input_definition, gwe_adv_param_definitions)
61  case ('CTP')
62  call set_param_pointer(input_definition, gwe_ctp_param_definitions)
63  case ('CND')
64  call set_param_pointer(input_definition, gwe_cnd_param_definitions)
65  case ('DISV')
66  call set_param_pointer(input_definition, gwe_disv_param_definitions)
67  case ('DISU')
68  call set_param_pointer(input_definition, gwe_disu_param_definitions)
69  case ('DIS')
70  call set_param_pointer(input_definition, gwe_dis_param_definitions)
71  case ('ESL')
72  call set_param_pointer(input_definition, gwe_esl_param_definitions)
73  case ('EST')
74  call set_param_pointer(input_definition, gwe_est_param_definitions)
75  case ('FMI')
76  call set_param_pointer(input_definition, gwe_fmi_param_definitions)
77  case ('IC')
78  call set_param_pointer(input_definition, gwe_ic_param_definitions)
79  case ('OC')
80  call set_param_pointer(input_definition, gwe_oc_param_definitions)
81  case ('SSM')
82  call set_param_pointer(input_definition, gwe_ssm_param_definitions)
83  case default
84  end select
85  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 40 of file IdmGweDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 34 of file IdmGweDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 46 of file IdmGweDfnSelector.f90.

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