MODFLOW 6  version 6.7.0.dev2
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)
 
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 66 of file IdmPrtDfnSelector.f90.

67  character(len=*), intent(in) :: subcomponent
68  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
69  nullify (input_definition)
70  select case (subcomponent)
71  case ('NAM')
72  call set_param_pointer(input_definition, prt_nam_aggregate_definitions)
73  case ('DIS')
74  call set_param_pointer(input_definition, prt_dis_aggregate_definitions)
75  case ('DISV')
76  call set_param_pointer(input_definition, prt_disv_aggregate_definitions)
77  case ('FMI')
78  call set_param_pointer(input_definition, prt_fmi_aggregate_definitions)
79  case ('MIP')
80  call set_param_pointer(input_definition, prt_mip_aggregate_definitions)
81  case ('PRP')
82  call set_param_pointer(input_definition, prt_prp_aggregate_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:

◆ prt_block_definitions()

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

Definition at line 88 of file IdmPrtDfnSelector.f90.

89  character(len=*), intent(in) :: subcomponent
90  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
91  nullify (input_definition)
92  select case (subcomponent)
93  case ('NAM')
94  call set_block_pointer(input_definition, prt_nam_block_definitions)
95  case ('DIS')
96  call set_block_pointer(input_definition, prt_dis_block_definitions)
97  case ('DISV')
98  call set_block_pointer(input_definition, prt_disv_block_definitions)
99  case ('FMI')
100  call set_block_pointer(input_definition, prt_fmi_block_definitions)
101  case ('MIP')
102  call set_block_pointer(input_definition, prt_mip_block_definitions)
103  case ('PRP')
104  call set_block_pointer(input_definition, prt_prp_block_definitions)
105  case default
106  end select
107  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 155 of file IdmPrtDfnSelector.f90.

156  character(len=*), intent(in) :: subcomponent
157  logical :: integrated
158  integrated = .false.
159  select case (subcomponent)
160  case ('NAM')
161  integrated = .true.
162  case ('DIS')
163  integrated = .true.
164  case ('DISV')
165  integrated = .true.
166  case ('FMI')
167  integrated = .true.
168  case ('MIP')
169  integrated = .true.
170  case ('PRP')
171  integrated = .true.
172  case default
173  end select
174  return
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 110 of file IdmPrtDfnSelector.f90.

111  character(len=*), intent(in) :: subcomponent
112  logical :: multi_package
113  select case (subcomponent)
114  case ('NAM')
115  multi_package = prt_nam_multi_package
116  case ('DIS')
117  multi_package = prt_dis_multi_package
118  case ('DISV')
119  multi_package = prt_disv_multi_package
120  case ('FMI')
121  multi_package = prt_fmi_multi_package
122  case ('MIP')
123  multi_package = prt_mip_multi_package
124  case ('PRP')
125  multi_package = prt_prp_multi_package
126  case default
127  call store_error('Idm selector subcomponent not found; '//&
128  &'component="PRT"'//&
129  &', subcomponent="'//trim(subcomponent)//'".', .true.)
130  end select
131  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 134 of file IdmPrtDfnSelector.f90.

135  character(len=*), intent(in) :: subcomponent
136  character(len=16), dimension(:), pointer :: subpackages
137  select case (subcomponent)
138  case ('NAM')
139  call set_subpkg_pointer(subpackages, prt_nam_subpackages)
140  case ('DIS')
141  call set_subpkg_pointer(subpackages, prt_dis_subpackages)
142  case ('DISV')
143  call set_subpkg_pointer(subpackages, prt_disv_subpackages)
144  case ('FMI')
145  call set_subpkg_pointer(subpackages, prt_fmi_subpackages)
146  case ('MIP')
147  call set_subpkg_pointer(subpackages, prt_mip_subpackages)
148  case ('PRP')
149  call set_subpkg_pointer(subpackages, prt_prp_subpackages)
150  case default
151  end select
152  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 44 of file IdmPrtDfnSelector.f90.

45  character(len=*), intent(in) :: subcomponent
46  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
47  nullify (input_definition)
48  select case (subcomponent)
49  case ('NAM')
50  call set_param_pointer(input_definition, prt_nam_param_definitions)
51  case ('DIS')
52  call set_param_pointer(input_definition, prt_dis_param_definitions)
53  case ('DISV')
54  call set_param_pointer(input_definition, prt_disv_param_definitions)
55  case ('FMI')
56  call set_param_pointer(input_definition, prt_fmi_param_definitions)
57  case ('MIP')
58  call set_param_pointer(input_definition, prt_mip_param_definitions)
59  case ('PRP')
60  call set_param_pointer(input_definition, prt_prp_param_definitions)
61  case default
62  end select
63  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 32 of file IdmPrtDfnSelector.f90.

33  type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
34  type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
35  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 26 of file IdmPrtDfnSelector.f90.

27  type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
28  type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
29  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 38 of file IdmPrtDfnSelector.f90.

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