MODFLOW 6  version 6.9.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmprtdfnselectormodule 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 prt_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public prt_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public prt_block_definitions (subcomponent)
 
logical function, public prt_idm_multi_package (subcomponent)
 
logical function, public prt_idm_is_advanced (subcomponent)
 
character(len=16) function, dimension(:), pointer, public prt_idm_subpackages (subcomponent)
 
logical function, public prt_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ prt_aggregate_definitions()

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

Definition at line 70 of file IdmPrtDfnSelector.f90.

71  character(len=*), intent(in) :: subcomponent
72  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
73  nullify (input_definition)
74  select case (subcomponent)
75  case ('NAM')
76  call set_param_pointer(input_definition, prt_nam_aggregate_definitions)
77  case ('DIS')
78  call set_param_pointer(input_definition, prt_dis_aggregate_definitions)
79  case ('DISV')
80  call set_param_pointer(input_definition, prt_disv_aggregate_definitions)
81  case ('FMI')
82  call set_param_pointer(input_definition, prt_fmi_aggregate_definitions)
83  case ('MIP')
84  call set_param_pointer(input_definition, prt_mip_aggregate_definitions)
85  case ('OC')
86  call set_param_pointer(input_definition, prt_oc_aggregate_definitions)
87  case ('PRP')
88  call set_param_pointer(input_definition, prt_prp_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:

◆ prt_block_definitions()

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

Definition at line 94 of file IdmPrtDfnSelector.f90.

95  character(len=*), intent(in) :: subcomponent
96  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
97  nullify (input_definition)
98  select case (subcomponent)
99  case ('NAM')
100  call set_block_pointer(input_definition, prt_nam_block_definitions)
101  case ('DIS')
102  call set_block_pointer(input_definition, prt_dis_block_definitions)
103  case ('DISV')
104  call set_block_pointer(input_definition, prt_disv_block_definitions)
105  case ('FMI')
106  call set_block_pointer(input_definition, prt_fmi_block_definitions)
107  case ('MIP')
108  call set_block_pointer(input_definition, prt_mip_block_definitions)
109  case ('OC')
110  call set_block_pointer(input_definition, prt_oc_block_definitions)
111  case ('PRP')
112  call set_block_pointer(input_definition, prt_prp_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:

◆ prt_idm_integrated()

logical function, public idmprtdfnselectormodule::prt_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 193 of file IdmPrtDfnSelector.f90.

194  character(len=*), intent(in) :: subcomponent
195  logical :: integrated
196  integrated = .false.
197  select case (subcomponent)
198  case ('NAM')
199  integrated = .true.
200  case ('DIS')
201  integrated = .true.
202  case ('DISV')
203  integrated = .true.
204  case ('FMI')
205  integrated = .true.
206  case ('MIP')
207  integrated = .true.
208  case ('OC')
209  integrated = .true.
210  case ('PRP')
211  integrated = .true.
212  case default
213  end select
214  return
Here is the caller graph for this function:

◆ prt_idm_is_advanced()

logical function, public idmprtdfnselectormodule::prt_idm_is_advanced ( character(len=*), intent(in)  subcomponent)

Definition at line 144 of file IdmPrtDfnSelector.f90.

145  character(len=*), intent(in) :: subcomponent
146  logical :: is_advanced
147  select case (subcomponent)
148  case ('NAM')
149  is_advanced = prt_nam_is_advanced
150  case ('DIS')
151  is_advanced = prt_dis_is_advanced
152  case ('DISV')
153  is_advanced = prt_disv_is_advanced
154  case ('FMI')
155  is_advanced = prt_fmi_is_advanced
156  case ('MIP')
157  is_advanced = prt_mip_is_advanced
158  case ('OC')
159  is_advanced = prt_oc_is_advanced
160  case ('PRP')
161  is_advanced = prt_prp_is_advanced
162  case default
163  call store_error('Idm selector subcomponent not found; '//&
164  &'component="PRT"'//&
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:

◆ prt_idm_multi_package()

logical function, public idmprtdfnselectormodule::prt_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 118 of file IdmPrtDfnSelector.f90.

119  character(len=*), intent(in) :: subcomponent
120  logical :: multi_package
121  select case (subcomponent)
122  case ('NAM')
123  multi_package = prt_nam_multi_package
124  case ('DIS')
125  multi_package = prt_dis_multi_package
126  case ('DISV')
127  multi_package = prt_disv_multi_package
128  case ('FMI')
129  multi_package = prt_fmi_multi_package
130  case ('MIP')
131  multi_package = prt_mip_multi_package
132  case ('OC')
133  multi_package = prt_oc_multi_package
134  case ('PRP')
135  multi_package = prt_prp_multi_package
136  case default
137  call store_error('Idm selector subcomponent not found; '//&
138  &'component="PRT"'//&
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:

◆ prt_idm_subpackages()

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

Definition at line 170 of file IdmPrtDfnSelector.f90.

171  character(len=*), intent(in) :: subcomponent
172  character(len=16), dimension(:), pointer :: subpackages
173  select case (subcomponent)
174  case ('NAM')
175  call set_subpkg_pointer(subpackages, prt_nam_subpackages)
176  case ('DIS')
177  call set_subpkg_pointer(subpackages, prt_dis_subpackages)
178  case ('DISV')
179  call set_subpkg_pointer(subpackages, prt_disv_subpackages)
180  case ('FMI')
181  call set_subpkg_pointer(subpackages, prt_fmi_subpackages)
182  case ('MIP')
183  call set_subpkg_pointer(subpackages, prt_mip_subpackages)
184  case ('OC')
185  call set_subpkg_pointer(subpackages, prt_oc_subpackages)
186  case ('PRP')
187  call set_subpkg_pointer(subpackages, prt_prp_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:

◆ prt_param_definitions()

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

Definition at line 46 of file IdmPrtDfnSelector.f90.

47  character(len=*), intent(in) :: subcomponent
48  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
49  nullify (input_definition)
50  select case (subcomponent)
51  case ('NAM')
52  call set_param_pointer(input_definition, prt_nam_param_definitions)
53  case ('DIS')
54  call set_param_pointer(input_definition, prt_dis_param_definitions)
55  case ('DISV')
56  call set_param_pointer(input_definition, prt_disv_param_definitions)
57  case ('FMI')
58  call set_param_pointer(input_definition, prt_fmi_param_definitions)
59  case ('MIP')
60  call set_param_pointer(input_definition, prt_mip_param_definitions)
61  case ('OC')
62  call set_param_pointer(input_definition, prt_oc_param_definitions)
63  case ('PRP')
64  call set_param_pointer(input_definition, prt_prp_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:

◆ set_block_pointer()

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

Definition at line 34 of file IdmPrtDfnSelector.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 idmprtdfnselectormodule::set_param_pointer ( type(inputparamdefinitiontype), dimension(:), pointer  input_dfn,
type(inputparamdefinitiontype), dimension(:), target  input_dfn_target 
)
private

Definition at line 28 of file IdmPrtDfnSelector.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 idmprtdfnselectormodule::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 IdmPrtDfnSelector.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: