MODFLOW 6  version 6.7.0.dev3
USGS Modular Hydrologic Model
Functions/Subroutines
idmchfdfnselectormodule 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 chf_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public chf_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public chf_block_definitions (subcomponent)
 
logical function, public chf_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public chf_idm_subpackages (subcomponent)
 
logical function, public chf_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ chf_aggregate_definitions()

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

Definition at line 87 of file IdmChfDfnSelector.f90.

88  character(len=*), intent(in) :: subcomponent
89  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
90  nullify (input_definition)
91  select case (subcomponent)
92  case ('NAM')
93  call set_param_pointer(input_definition, chf_nam_aggregate_definitions)
94  case ('DISV1D')
95  call set_param_pointer(input_definition, chf_disv1d_aggregate_definitions)
96  case ('CXS')
97  call set_param_pointer(input_definition, chf_cxs_aggregate_definitions)
98  case ('DFW')
99  call set_param_pointer(input_definition, chf_dfw_aggregate_definitions)
100  case ('IC')
101  call set_param_pointer(input_definition, chf_ic_aggregate_definitions)
102  case ('OC')
103  call set_param_pointer(input_definition, chf_oc_aggregate_definitions)
104  case ('CDB')
105  call set_param_pointer(input_definition, chf_cdb_aggregate_definitions)
106  case ('CHD')
107  call set_param_pointer(input_definition, chf_chd_aggregate_definitions)
108  case ('FLW')
109  call set_param_pointer(input_definition, chf_flw_aggregate_definitions)
110  case ('PCP')
111  call set_param_pointer(input_definition, chf_pcp_aggregate_definitions)
112  case ('EVP')
113  call set_param_pointer(input_definition, chf_evp_aggregate_definitions)
114  case ('STO')
115  call set_param_pointer(input_definition, chf_sto_aggregate_definitions)
116  case ('ZDG')
117  call set_param_pointer(input_definition, chf_zdg_aggregate_definitions)
118  case default
119  end select
120  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ chf_block_definitions()

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

Definition at line 123 of file IdmChfDfnSelector.f90.

124  character(len=*), intent(in) :: subcomponent
125  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
126  nullify (input_definition)
127  select case (subcomponent)
128  case ('NAM')
129  call set_block_pointer(input_definition, chf_nam_block_definitions)
130  case ('DISV1D')
131  call set_block_pointer(input_definition, chf_disv1d_block_definitions)
132  case ('CXS')
133  call set_block_pointer(input_definition, chf_cxs_block_definitions)
134  case ('DFW')
135  call set_block_pointer(input_definition, chf_dfw_block_definitions)
136  case ('IC')
137  call set_block_pointer(input_definition, chf_ic_block_definitions)
138  case ('OC')
139  call set_block_pointer(input_definition, chf_oc_block_definitions)
140  case ('CDB')
141  call set_block_pointer(input_definition, chf_cdb_block_definitions)
142  case ('CHD')
143  call set_block_pointer(input_definition, chf_chd_block_definitions)
144  case ('FLW')
145  call set_block_pointer(input_definition, chf_flw_block_definitions)
146  case ('PCP')
147  call set_block_pointer(input_definition, chf_pcp_block_definitions)
148  case ('EVP')
149  call set_block_pointer(input_definition, chf_evp_block_definitions)
150  case ('STO')
151  call set_block_pointer(input_definition, chf_sto_block_definitions)
152  case ('ZDG')
153  call set_block_pointer(input_definition, chf_zdg_block_definitions)
154  case default
155  end select
156  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ chf_idm_integrated()

logical function, public idmchfdfnselectormodule::chf_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 232 of file IdmChfDfnSelector.f90.

233  character(len=*), intent(in) :: subcomponent
234  logical :: integrated
235  integrated = .false.
236  select case (subcomponent)
237  case ('NAM')
238  integrated = .true.
239  case ('DISV1D')
240  integrated = .true.
241  case ('CXS')
242  integrated = .true.
243  case ('DFW')
244  integrated = .true.
245  case ('IC')
246  integrated = .true.
247  case ('OC')
248  integrated = .true.
249  case ('CDB')
250  integrated = .true.
251  case ('CHD')
252  integrated = .true.
253  case ('FLW')
254  integrated = .true.
255  case ('PCP')
256  integrated = .true.
257  case ('EVP')
258  integrated = .true.
259  case ('STO')
260  integrated = .true.
261  case ('ZDG')
262  integrated = .true.
263  case default
264  end select
265  return
Here is the caller graph for this function:

◆ chf_idm_multi_package()

logical function, public idmchfdfnselectormodule::chf_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 159 of file IdmChfDfnSelector.f90.

160  character(len=*), intent(in) :: subcomponent
161  logical :: multi_package
162  select case (subcomponent)
163  case ('NAM')
164  multi_package = chf_nam_multi_package
165  case ('DISV1D')
166  multi_package = chf_disv1d_multi_package
167  case ('CXS')
168  multi_package = chf_cxs_multi_package
169  case ('DFW')
170  multi_package = chf_dfw_multi_package
171  case ('IC')
172  multi_package = chf_ic_multi_package
173  case ('OC')
174  multi_package = chf_oc_multi_package
175  case ('CDB')
176  multi_package = chf_cdb_multi_package
177  case ('CHD')
178  multi_package = chf_chd_multi_package
179  case ('FLW')
180  multi_package = chf_flw_multi_package
181  case ('PCP')
182  multi_package = chf_pcp_multi_package
183  case ('EVP')
184  multi_package = chf_evp_multi_package
185  case ('STO')
186  multi_package = chf_sto_multi_package
187  case ('ZDG')
188  multi_package = chf_zdg_multi_package
189  case default
190  call store_error('Idm selector subcomponent not found; '//&
191  &'component="CHF"'//&
192  &', subcomponent="'//trim(subcomponent)//'".', .true.)
193  end select
194  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ chf_idm_subpackages()

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

Definition at line 197 of file IdmChfDfnSelector.f90.

198  character(len=*), intent(in) :: subcomponent
199  character(len=16), dimension(:), pointer :: subpackages
200  select case (subcomponent)
201  case ('NAM')
202  call set_subpkg_pointer(subpackages, chf_nam_subpackages)
203  case ('DISV1D')
204  call set_subpkg_pointer(subpackages, chf_disv1d_subpackages)
205  case ('CXS')
206  call set_subpkg_pointer(subpackages, chf_cxs_subpackages)
207  case ('DFW')
208  call set_subpkg_pointer(subpackages, chf_dfw_subpackages)
209  case ('IC')
210  call set_subpkg_pointer(subpackages, chf_ic_subpackages)
211  case ('OC')
212  call set_subpkg_pointer(subpackages, chf_oc_subpackages)
213  case ('CDB')
214  call set_subpkg_pointer(subpackages, chf_cdb_subpackages)
215  case ('CHD')
216  call set_subpkg_pointer(subpackages, chf_chd_subpackages)
217  case ('FLW')
218  call set_subpkg_pointer(subpackages, chf_flw_subpackages)
219  case ('PCP')
220  call set_subpkg_pointer(subpackages, chf_pcp_subpackages)
221  case ('EVP')
222  call set_subpkg_pointer(subpackages, chf_evp_subpackages)
223  case ('STO')
224  call set_subpkg_pointer(subpackages, chf_sto_subpackages)
225  case ('ZDG')
226  call set_subpkg_pointer(subpackages, chf_zdg_subpackages)
227  case default
228  end select
229  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ chf_param_definitions()

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

Definition at line 51 of file IdmChfDfnSelector.f90.

52  character(len=*), intent(in) :: subcomponent
53  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
54  nullify (input_definition)
55  select case (subcomponent)
56  case ('NAM')
57  call set_param_pointer(input_definition, chf_nam_param_definitions)
58  case ('DISV1D')
59  call set_param_pointer(input_definition, chf_disv1d_param_definitions)
60  case ('CXS')
61  call set_param_pointer(input_definition, chf_cxs_param_definitions)
62  case ('DFW')
63  call set_param_pointer(input_definition, chf_dfw_param_definitions)
64  case ('IC')
65  call set_param_pointer(input_definition, chf_ic_param_definitions)
66  case ('OC')
67  call set_param_pointer(input_definition, chf_oc_param_definitions)
68  case ('CDB')
69  call set_param_pointer(input_definition, chf_cdb_param_definitions)
70  case ('CHD')
71  call set_param_pointer(input_definition, chf_chd_param_definitions)
72  case ('FLW')
73  call set_param_pointer(input_definition, chf_flw_param_definitions)
74  case ('PCP')
75  call set_param_pointer(input_definition, chf_pcp_param_definitions)
76  case ('EVP')
77  call set_param_pointer(input_definition, chf_evp_param_definitions)
78  case ('STO')
79  call set_param_pointer(input_definition, chf_sto_param_definitions)
80  case ('ZDG')
81  call set_param_pointer(input_definition, chf_zdg_param_definitions)
82  case default
83  end select
84  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 39 of file IdmChfDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 33 of file IdmChfDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 45 of file IdmChfDfnSelector.f90.

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