MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmutldfnselectormodule 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 utl_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public utl_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public utl_block_definitions (subcomponent)
 
logical function, public utl_idm_multi_package (subcomponent)
 
logical function, public utl_idm_is_advanced (subcomponent)
 
character(len=16) function, dimension(:), pointer, public utl_idm_subpackages (subcomponent)
 
logical function, public utl_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ set_block_pointer()

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

Definition at line 34 of file IdmUtlDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 28 of file IdmUtlDfnSelector.f90.

29  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
30  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
31  input_dfn => input_dfn_target
Here is the caller graph for this function:

◆ set_subpkg_pointer()

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

Definition at line 40 of file IdmUtlDfnSelector.f90.

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

◆ utl_aggregate_definitions()

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

Definition at line 70 of file IdmUtlDfnSelector.f90.

71  character(len=*), intent(in) :: subcomponent
72  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
73  nullify (input_definition)
74  select case (subcomponent)
75  case ('HPC')
76  call set_param_pointer(input_definition, utl_hpc_aggregate_definitions)
77  case ('NCF')
78  call set_param_pointer(input_definition, utl_ncf_aggregate_definitions)
79  case ('SFRTAB')
80  call set_param_pointer(input_definition, utl_sfrtab_aggregate_definitions)
81  case ('TVK')
82  call set_param_pointer(input_definition, utl_tvk_aggregate_definitions)
83  case ('TVS')
84  call set_param_pointer(input_definition, utl_tvs_aggregate_definitions)
85  case ('SPC')
86  call set_param_pointer(input_definition, utl_spc_aggregate_definitions)
87  case ('SPCA')
88  call set_param_pointer(input_definition, utl_spca_aggregate_definitions)
89  case default
90  end select
91  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ utl_block_definitions()

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

Definition at line 94 of file IdmUtlDfnSelector.f90.

95  character(len=*), intent(in) :: subcomponent
96  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
97  nullify (input_definition)
98  select case (subcomponent)
99  case ('HPC')
100  call set_block_pointer(input_definition, utl_hpc_block_definitions)
101  case ('NCF')
102  call set_block_pointer(input_definition, utl_ncf_block_definitions)
103  case ('SFRTAB')
104  call set_block_pointer(input_definition, utl_sfrtab_block_definitions)
105  case ('TVK')
106  call set_block_pointer(input_definition, utl_tvk_block_definitions)
107  case ('TVS')
108  call set_block_pointer(input_definition, utl_tvs_block_definitions)
109  case ('SPC')
110  call set_block_pointer(input_definition, utl_spc_block_definitions)
111  case ('SPCA')
112  call set_block_pointer(input_definition, utl_spca_block_definitions)
113  case default
114  end select
115  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ utl_idm_integrated()

logical function, public idmutldfnselectormodule::utl_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 193 of file IdmUtlDfnSelector.f90.

194  character(len=*), intent(in) :: subcomponent
195  logical :: integrated
196  integrated = .false.
197  select case (subcomponent)
198  case ('HPC')
199  integrated = .true.
200  case ('NCF')
201  integrated = .true.
202  case ('SFRTAB')
203  integrated = .true.
204  case ('TVK')
205  integrated = .true.
206  case ('TVS')
207  integrated = .true.
208  case ('SPC')
209  integrated = .true.
210  case ('SPCA')
211  integrated = .true.
212  case default
213  end select
214  return
Here is the caller graph for this function:

◆ utl_idm_is_advanced()

logical function, public idmutldfnselectormodule::utl_idm_is_advanced ( character(len=*), intent(in)  subcomponent)

Definition at line 144 of file IdmUtlDfnSelector.f90.

145  character(len=*), intent(in) :: subcomponent
146  logical :: is_advanced
147  select case (subcomponent)
148  case ('HPC')
149  is_advanced = utl_hpc_is_advanced
150  case ('NCF')
151  is_advanced = utl_ncf_is_advanced
152  case ('SFRTAB')
153  is_advanced = utl_sfrtab_is_advanced
154  case ('TVK')
155  is_advanced = utl_tvk_is_advanced
156  case ('TVS')
157  is_advanced = utl_tvs_is_advanced
158  case ('SPC')
159  is_advanced = utl_spc_is_advanced
160  case ('SPCA')
161  is_advanced = utl_spca_is_advanced
162  case default
163  call store_error('Idm selector subcomponent not found; '//&
164  &'component="UTL"'//&
165  &', subcomponent="'//trim(subcomponent)//'".', .true.)
166  end select
167  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ utl_idm_multi_package()

logical function, public idmutldfnselectormodule::utl_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 118 of file IdmUtlDfnSelector.f90.

119  character(len=*), intent(in) :: subcomponent
120  logical :: multi_package
121  select case (subcomponent)
122  case ('HPC')
123  multi_package = utl_hpc_multi_package
124  case ('NCF')
125  multi_package = utl_ncf_multi_package
126  case ('SFRTAB')
127  multi_package = utl_sfrtab_multi_package
128  case ('TVK')
129  multi_package = utl_tvk_multi_package
130  case ('TVS')
131  multi_package = utl_tvs_multi_package
132  case ('SPC')
133  multi_package = utl_spc_multi_package
134  case ('SPCA')
135  multi_package = utl_spca_multi_package
136  case default
137  call store_error('Idm selector subcomponent not found; '//&
138  &'component="UTL"'//&
139  &', subcomponent="'//trim(subcomponent)//'".', .true.)
140  end select
141  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ utl_idm_subpackages()

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

Definition at line 170 of file IdmUtlDfnSelector.f90.

171  character(len=*), intent(in) :: subcomponent
172  character(len=16), dimension(:), pointer :: subpackages
173  select case (subcomponent)
174  case ('HPC')
175  call set_subpkg_pointer(subpackages, utl_hpc_subpackages)
176  case ('NCF')
177  call set_subpkg_pointer(subpackages, utl_ncf_subpackages)
178  case ('SFRTAB')
179  call set_subpkg_pointer(subpackages, utl_sfrtab_subpackages)
180  case ('TVK')
181  call set_subpkg_pointer(subpackages, utl_tvk_subpackages)
182  case ('TVS')
183  call set_subpkg_pointer(subpackages, utl_tvs_subpackages)
184  case ('SPC')
185  call set_subpkg_pointer(subpackages, utl_spc_subpackages)
186  case ('SPCA')
187  call set_subpkg_pointer(subpackages, utl_spca_subpackages)
188  case default
189  end select
190  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ utl_param_definitions()

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

Definition at line 46 of file IdmUtlDfnSelector.f90.

47  character(len=*), intent(in) :: subcomponent
48  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
49  nullify (input_definition)
50  select case (subcomponent)
51  case ('HPC')
52  call set_param_pointer(input_definition, utl_hpc_param_definitions)
53  case ('NCF')
54  call set_param_pointer(input_definition, utl_ncf_param_definitions)
55  case ('SFRTAB')
56  call set_param_pointer(input_definition, utl_sfrtab_param_definitions)
57  case ('TVK')
58  call set_param_pointer(input_definition, utl_tvk_param_definitions)
59  case ('TVS')
60  call set_param_pointer(input_definition, utl_tvs_param_definitions)
61  case ('SPC')
62  call set_param_pointer(input_definition, utl_spc_param_definitions)
63  case ('SPCA')
64  call set_param_pointer(input_definition, utl_spca_param_definitions)
65  case default
66  end select
67  return
Here is the call graph for this function:
Here is the caller graph for this function: