MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmswfdfnselectormodule 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 swf_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public swf_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public swf_block_definitions (subcomponent)
 
logical function, public swf_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public swf_idm_subpackages (subcomponent)
 
logical function, public swf_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ set_block_pointer()

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

Definition at line 38 of file IdmSwfDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 32 of file IdmSwfDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 44 of file IdmSwfDfnSelector.f90.

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

◆ swf_aggregate_definitions()

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

Definition at line 84 of file IdmSwfDfnSelector.f90.

85  character(len=*), intent(in) :: subcomponent
86  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
87  nullify (input_definition)
88  select case (subcomponent)
89  case ('NAM')
90  call set_param_pointer(input_definition, swf_nam_aggregate_definitions)
91  case ('DISV1D')
92  call set_param_pointer(input_definition, swf_disv1d_aggregate_definitions)
93  case ('DIS2D')
94  call set_param_pointer(input_definition, swf_dis2d_aggregate_definitions)
95  case ('DISV2D')
96  call set_param_pointer(input_definition, swf_disv2d_aggregate_definitions)
97  case ('CXS')
98  call set_param_pointer(input_definition, swf_cxs_aggregate_definitions)
99  case ('DFW')
100  call set_param_pointer(input_definition, swf_dfw_aggregate_definitions)
101  case ('IC')
102  call set_param_pointer(input_definition, swf_ic_aggregate_definitions)
103  case ('CDB')
104  call set_param_pointer(input_definition, swf_cdb_aggregate_definitions)
105  case ('CHD')
106  call set_param_pointer(input_definition, swf_chd_aggregate_definitions)
107  case ('FLW')
108  call set_param_pointer(input_definition, swf_flw_aggregate_definitions)
109  case ('STO')
110  call set_param_pointer(input_definition, swf_sto_aggregate_definitions)
111  case ('ZDG')
112  call set_param_pointer(input_definition, swf_zdg_aggregate_definitions)
113  case default
114  end select
115  return
Here is the call graph for this function:

◆ swf_block_definitions()

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

Definition at line 118 of file IdmSwfDfnSelector.f90.

119  character(len=*), intent(in) :: subcomponent
120  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
121  nullify (input_definition)
122  select case (subcomponent)
123  case ('NAM')
124  call set_block_pointer(input_definition, swf_nam_block_definitions)
125  case ('DISV1D')
126  call set_block_pointer(input_definition, swf_disv1d_block_definitions)
127  case ('DIS2D')
128  call set_block_pointer(input_definition, swf_dis2d_block_definitions)
129  case ('DISV2D')
130  call set_block_pointer(input_definition, swf_disv2d_block_definitions)
131  case ('CXS')
132  call set_block_pointer(input_definition, swf_cxs_block_definitions)
133  case ('DFW')
134  call set_block_pointer(input_definition, swf_dfw_block_definitions)
135  case ('IC')
136  call set_block_pointer(input_definition, swf_ic_block_definitions)
137  case ('CDB')
138  call set_block_pointer(input_definition, swf_cdb_block_definitions)
139  case ('CHD')
140  call set_block_pointer(input_definition, swf_chd_block_definitions)
141  case ('FLW')
142  call set_block_pointer(input_definition, swf_flw_block_definitions)
143  case ('STO')
144  call set_block_pointer(input_definition, swf_sto_block_definitions)
145  case ('ZDG')
146  call set_block_pointer(input_definition, swf_zdg_block_definitions)
147  case default
148  end select
149  return
Here is the call graph for this function:

◆ swf_idm_integrated()

logical function, public idmswfdfnselectormodule::swf_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 221 of file IdmSwfDfnSelector.f90.

222  character(len=*), intent(in) :: subcomponent
223  logical :: integrated
224  integrated = .false.
225  select case (subcomponent)
226  case ('NAM')
227  integrated = .true.
228  case ('DISV1D')
229  integrated = .true.
230  case ('DIS2D')
231  integrated = .true.
232  case ('DISV2D')
233  integrated = .true.
234  case ('CXS')
235  integrated = .true.
236  case ('DFW')
237  integrated = .true.
238  case ('IC')
239  integrated = .true.
240  case ('CDB')
241  integrated = .true.
242  case ('CHD')
243  integrated = .true.
244  case ('FLW')
245  integrated = .true.
246  case ('STO')
247  integrated = .true.
248  case ('ZDG')
249  integrated = .true.
250  case default
251  end select
252  return

◆ swf_idm_multi_package()

logical function, public idmswfdfnselectormodule::swf_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 152 of file IdmSwfDfnSelector.f90.

153  character(len=*), intent(in) :: subcomponent
154  logical :: multi_package
155  select case (subcomponent)
156  case ('NAM')
157  multi_package = swf_nam_multi_package
158  case ('DISV1D')
159  multi_package = swf_disv1d_multi_package
160  case ('DIS2D')
161  multi_package = swf_dis2d_multi_package
162  case ('DISV2D')
163  multi_package = swf_disv2d_multi_package
164  case ('CXS')
165  multi_package = swf_cxs_multi_package
166  case ('DFW')
167  multi_package = swf_dfw_multi_package
168  case ('IC')
169  multi_package = swf_ic_multi_package
170  case ('CDB')
171  multi_package = swf_cdb_multi_package
172  case ('CHD')
173  multi_package = swf_chd_multi_package
174  case ('FLW')
175  multi_package = swf_flw_multi_package
176  case ('STO')
177  multi_package = swf_sto_multi_package
178  case ('ZDG')
179  multi_package = swf_zdg_multi_package
180  case default
181  call store_error('Idm selector subcomponent not found; '//&
182  &'component="SWF"'//&
183  &', subcomponent="'//trim(subcomponent)//'".', .true.)
184  end select
185  return
Here is the call graph for this function:

◆ swf_idm_subpackages()

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

Definition at line 188 of file IdmSwfDfnSelector.f90.

189  character(len=*), intent(in) :: subcomponent
190  character(len=16), dimension(:), pointer :: subpackages
191  select case (subcomponent)
192  case ('NAM')
193  call set_subpkg_pointer(subpackages, swf_nam_subpackages)
194  case ('DISV1D')
195  call set_subpkg_pointer(subpackages, swf_disv1d_subpackages)
196  case ('DIS2D')
197  call set_subpkg_pointer(subpackages, swf_dis2d_subpackages)
198  case ('DISV2D')
199  call set_subpkg_pointer(subpackages, swf_disv2d_subpackages)
200  case ('CXS')
201  call set_subpkg_pointer(subpackages, swf_cxs_subpackages)
202  case ('DFW')
203  call set_subpkg_pointer(subpackages, swf_dfw_subpackages)
204  case ('IC')
205  call set_subpkg_pointer(subpackages, swf_ic_subpackages)
206  case ('CDB')
207  call set_subpkg_pointer(subpackages, swf_cdb_subpackages)
208  case ('CHD')
209  call set_subpkg_pointer(subpackages, swf_chd_subpackages)
210  case ('FLW')
211  call set_subpkg_pointer(subpackages, swf_flw_subpackages)
212  case ('STO')
213  call set_subpkg_pointer(subpackages, swf_sto_subpackages)
214  case ('ZDG')
215  call set_subpkg_pointer(subpackages, swf_zdg_subpackages)
216  case default
217  end select
218  return
Here is the call graph for this function:

◆ swf_param_definitions()

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

Definition at line 50 of file IdmSwfDfnSelector.f90.

51  character(len=*), intent(in) :: subcomponent
52  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
53  nullify (input_definition)
54  select case (subcomponent)
55  case ('NAM')
56  call set_param_pointer(input_definition, swf_nam_param_definitions)
57  case ('DISV1D')
58  call set_param_pointer(input_definition, swf_disv1d_param_definitions)
59  case ('DIS2D')
60  call set_param_pointer(input_definition, swf_dis2d_param_definitions)
61  case ('DISV2D')
62  call set_param_pointer(input_definition, swf_disv2d_param_definitions)
63  case ('CXS')
64  call set_param_pointer(input_definition, swf_cxs_param_definitions)
65  case ('DFW')
66  call set_param_pointer(input_definition, swf_dfw_param_definitions)
67  case ('IC')
68  call set_param_pointer(input_definition, swf_ic_param_definitions)
69  case ('CDB')
70  call set_param_pointer(input_definition, swf_cdb_param_definitions)
71  case ('CHD')
72  call set_param_pointer(input_definition, swf_chd_param_definitions)
73  case ('FLW')
74  call set_param_pointer(input_definition, swf_flw_param_definitions)
75  case ('STO')
76  call set_param_pointer(input_definition, swf_sto_param_definitions)
77  case ('ZDG')
78  call set_param_pointer(input_definition, swf_zdg_param_definitions)
79  case default
80  end select
81  return
Here is the call graph for this function: