MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmolfdfnselectormodule 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 olf_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public olf_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public olf_block_definitions (subcomponent)
 
logical function, public olf_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public olf_idm_subpackages (subcomponent)
 
logical function, public olf_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ olf_aggregate_definitions()

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

Definition at line 78 of file IdmOlfDfnSelector.f90.

79  character(len=*), intent(in) :: subcomponent
80  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
81  nullify (input_definition)
82  select case (subcomponent)
83  case ('NAM')
84  call set_param_pointer(input_definition, olf_nam_aggregate_definitions)
85  case ('DIS2D')
86  call set_param_pointer(input_definition, olf_dis2d_aggregate_definitions)
87  case ('DISV2D')
88  call set_param_pointer(input_definition, olf_disv2d_aggregate_definitions)
89  case ('DFW')
90  call set_param_pointer(input_definition, olf_dfw_aggregate_definitions)
91  case ('IC')
92  call set_param_pointer(input_definition, olf_ic_aggregate_definitions)
93  case ('CDB')
94  call set_param_pointer(input_definition, olf_cdb_aggregate_definitions)
95  case ('CHD')
96  call set_param_pointer(input_definition, olf_chd_aggregate_definitions)
97  case ('FLW')
98  call set_param_pointer(input_definition, olf_flw_aggregate_definitions)
99  case ('STO')
100  call set_param_pointer(input_definition, olf_sto_aggregate_definitions)
101  case ('ZDG')
102  call set_param_pointer(input_definition, olf_zdg_aggregate_definitions)
103  case default
104  end select
105  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ olf_block_definitions()

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

Definition at line 108 of file IdmOlfDfnSelector.f90.

109  character(len=*), intent(in) :: subcomponent
110  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
111  nullify (input_definition)
112  select case (subcomponent)
113  case ('NAM')
114  call set_block_pointer(input_definition, olf_nam_block_definitions)
115  case ('DIS2D')
116  call set_block_pointer(input_definition, olf_dis2d_block_definitions)
117  case ('DISV2D')
118  call set_block_pointer(input_definition, olf_disv2d_block_definitions)
119  case ('DFW')
120  call set_block_pointer(input_definition, olf_dfw_block_definitions)
121  case ('IC')
122  call set_block_pointer(input_definition, olf_ic_block_definitions)
123  case ('CDB')
124  call set_block_pointer(input_definition, olf_cdb_block_definitions)
125  case ('CHD')
126  call set_block_pointer(input_definition, olf_chd_block_definitions)
127  case ('FLW')
128  call set_block_pointer(input_definition, olf_flw_block_definitions)
129  case ('STO')
130  call set_block_pointer(input_definition, olf_sto_block_definitions)
131  case ('ZDG')
132  call set_block_pointer(input_definition, olf_zdg_block_definitions)
133  case default
134  end select
135  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ olf_idm_integrated()

logical function, public idmolfdfnselectormodule::olf_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 199 of file IdmOlfDfnSelector.f90.

200  character(len=*), intent(in) :: subcomponent
201  logical :: integrated
202  integrated = .false.
203  select case (subcomponent)
204  case ('NAM')
205  integrated = .true.
206  case ('DIS2D')
207  integrated = .true.
208  case ('DISV2D')
209  integrated = .true.
210  case ('DFW')
211  integrated = .true.
212  case ('IC')
213  integrated = .true.
214  case ('CDB')
215  integrated = .true.
216  case ('CHD')
217  integrated = .true.
218  case ('FLW')
219  integrated = .true.
220  case ('STO')
221  integrated = .true.
222  case ('ZDG')
223  integrated = .true.
224  case default
225  end select
226  return
Here is the caller graph for this function:

◆ olf_idm_multi_package()

logical function, public idmolfdfnselectormodule::olf_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 138 of file IdmOlfDfnSelector.f90.

139  character(len=*), intent(in) :: subcomponent
140  logical :: multi_package
141  select case (subcomponent)
142  case ('NAM')
143  multi_package = olf_nam_multi_package
144  case ('DIS2D')
145  multi_package = olf_dis2d_multi_package
146  case ('DISV2D')
147  multi_package = olf_disv2d_multi_package
148  case ('DFW')
149  multi_package = olf_dfw_multi_package
150  case ('IC')
151  multi_package = olf_ic_multi_package
152  case ('CDB')
153  multi_package = olf_cdb_multi_package
154  case ('CHD')
155  multi_package = olf_chd_multi_package
156  case ('FLW')
157  multi_package = olf_flw_multi_package
158  case ('STO')
159  multi_package = olf_sto_multi_package
160  case ('ZDG')
161  multi_package = olf_zdg_multi_package
162  case default
163  call store_error('Idm selector subcomponent not found; '//&
164  &'component="OLF"'//&
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:

◆ olf_idm_subpackages()

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

Definition at line 170 of file IdmOlfDfnSelector.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, olf_nam_subpackages)
176  case ('DIS2D')
177  call set_subpkg_pointer(subpackages, olf_dis2d_subpackages)
178  case ('DISV2D')
179  call set_subpkg_pointer(subpackages, olf_disv2d_subpackages)
180  case ('DFW')
181  call set_subpkg_pointer(subpackages, olf_dfw_subpackages)
182  case ('IC')
183  call set_subpkg_pointer(subpackages, olf_ic_subpackages)
184  case ('CDB')
185  call set_subpkg_pointer(subpackages, olf_cdb_subpackages)
186  case ('CHD')
187  call set_subpkg_pointer(subpackages, olf_chd_subpackages)
188  case ('FLW')
189  call set_subpkg_pointer(subpackages, olf_flw_subpackages)
190  case ('STO')
191  call set_subpkg_pointer(subpackages, olf_sto_subpackages)
192  case ('ZDG')
193  call set_subpkg_pointer(subpackages, olf_zdg_subpackages)
194  case default
195  end select
196  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ olf_param_definitions()

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

Definition at line 48 of file IdmOlfDfnSelector.f90.

49  character(len=*), intent(in) :: subcomponent
50  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
51  nullify (input_definition)
52  select case (subcomponent)
53  case ('NAM')
54  call set_param_pointer(input_definition, olf_nam_param_definitions)
55  case ('DIS2D')
56  call set_param_pointer(input_definition, olf_dis2d_param_definitions)
57  case ('DISV2D')
58  call set_param_pointer(input_definition, olf_disv2d_param_definitions)
59  case ('DFW')
60  call set_param_pointer(input_definition, olf_dfw_param_definitions)
61  case ('IC')
62  call set_param_pointer(input_definition, olf_ic_param_definitions)
63  case ('CDB')
64  call set_param_pointer(input_definition, olf_cdb_param_definitions)
65  case ('CHD')
66  call set_param_pointer(input_definition, olf_chd_param_definitions)
67  case ('FLW')
68  call set_param_pointer(input_definition, olf_flw_param_definitions)
69  case ('STO')
70  call set_param_pointer(input_definition, olf_sto_param_definitions)
71  case ('ZDG')
72  call set_param_pointer(input_definition, olf_zdg_param_definitions)
73  case default
74  end select
75  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 36 of file IdmOlfDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 30 of file IdmOlfDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 42 of file IdmOlfDfnSelector.f90.

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