MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
Functions/Subroutines
idmgwedfnselectormodule 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 gwe_param_definitions (subcomponent)
 
type(inputparamdefinitiontype) function, dimension(:), pointer, public gwe_aggregate_definitions (subcomponent)
 
type(inputblockdefinitiontype) function, dimension(:), pointer, public gwe_block_definitions (subcomponent)
 
logical function, public gwe_idm_multi_package (subcomponent)
 
character(len=16) function, dimension(:), pointer, public gwe_idm_subpackages (subcomponent)
 
logical function, public gwe_idm_integrated (subcomponent)
 

Function/Subroutine Documentation

◆ gwe_aggregate_definitions()

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

Definition at line 69 of file IdmGweDfnSelector.f90.

70  character(len=*), intent(in) :: subcomponent
71  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
72  nullify (input_definition)
73  select case (subcomponent)
74  case ('NAM')
75  call set_param_pointer(input_definition, gwe_nam_aggregate_definitions)
76  case ('IC')
77  call set_param_pointer(input_definition, gwe_ic_aggregate_definitions)
78  case ('CTP')
79  call set_param_pointer(input_definition, gwe_ctp_aggregate_definitions)
80  case ('CND')
81  call set_param_pointer(input_definition, gwe_cnd_aggregate_definitions)
82  case ('DISV')
83  call set_param_pointer(input_definition, gwe_disv_aggregate_definitions)
84  case ('DISU')
85  call set_param_pointer(input_definition, gwe_disu_aggregate_definitions)
86  case ('DIS')
87  call set_param_pointer(input_definition, gwe_dis_aggregate_definitions)
88  case default
89  end select
90  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_block_definitions()

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

Definition at line 93 of file IdmGweDfnSelector.f90.

94  character(len=*), intent(in) :: subcomponent
95  type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
96  nullify (input_definition)
97  select case (subcomponent)
98  case ('NAM')
99  call set_block_pointer(input_definition, gwe_nam_block_definitions)
100  case ('IC')
101  call set_block_pointer(input_definition, gwe_ic_block_definitions)
102  case ('CTP')
103  call set_block_pointer(input_definition, gwe_ctp_block_definitions)
104  case ('CND')
105  call set_block_pointer(input_definition, gwe_cnd_block_definitions)
106  case ('DISV')
107  call set_block_pointer(input_definition, gwe_disv_block_definitions)
108  case ('DISU')
109  call set_block_pointer(input_definition, gwe_disu_block_definitions)
110  case ('DIS')
111  call set_block_pointer(input_definition, gwe_dis_block_definitions)
112  case default
113  end select
114  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_idm_integrated()

logical function, public idmgwedfnselectormodule::gwe_idm_integrated ( character(len=*), intent(in)  subcomponent)

Definition at line 166 of file IdmGweDfnSelector.f90.

167  character(len=*), intent(in) :: subcomponent
168  logical :: integrated
169  integrated = .false.
170  select case (subcomponent)
171  case ('NAM')
172  integrated = .true.
173  case ('IC')
174  integrated = .true.
175  case ('CTP')
176  integrated = .true.
177  case ('CND')
178  integrated = .true.
179  case ('DISV')
180  integrated = .true.
181  case ('DISU')
182  integrated = .true.
183  case ('DIS')
184  integrated = .true.
185  case default
186  end select
187  return
Here is the caller graph for this function:

◆ gwe_idm_multi_package()

logical function, public idmgwedfnselectormodule::gwe_idm_multi_package ( character(len=*), intent(in)  subcomponent)

Definition at line 117 of file IdmGweDfnSelector.f90.

118  character(len=*), intent(in) :: subcomponent
119  logical :: multi_package
120  select case (subcomponent)
121  case ('NAM')
122  multi_package = gwe_nam_multi_package
123  case ('IC')
124  multi_package = gwe_ic_multi_package
125  case ('CTP')
126  multi_package = gwe_ctp_multi_package
127  case ('CND')
128  multi_package = gwe_cnd_multi_package
129  case ('DISV')
130  multi_package = gwe_disv_multi_package
131  case ('DISU')
132  multi_package = gwe_disu_multi_package
133  case ('DIS')
134  multi_package = gwe_dis_multi_package
135  case default
136  call store_error('Idm selector subcomponent not found; '//&
137  &'component="GWE"'//&
138  &', subcomponent="'//trim(subcomponent)//'".', .true.)
139  end select
140  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_idm_subpackages()

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

Definition at line 143 of file IdmGweDfnSelector.f90.

144  character(len=*), intent(in) :: subcomponent
145  character(len=16), dimension(:), pointer :: subpackages
146  select case (subcomponent)
147  case ('NAM')
148  call set_subpkg_pointer(subpackages, gwe_nam_subpackages)
149  case ('IC')
150  call set_subpkg_pointer(subpackages, gwe_ic_subpackages)
151  case ('CTP')
152  call set_subpkg_pointer(subpackages, gwe_ctp_subpackages)
153  case ('CND')
154  call set_subpkg_pointer(subpackages, gwe_cnd_subpackages)
155  case ('DISV')
156  call set_subpkg_pointer(subpackages, gwe_disv_subpackages)
157  case ('DISU')
158  call set_subpkg_pointer(subpackages, gwe_disu_subpackages)
159  case ('DIS')
160  call set_subpkg_pointer(subpackages, gwe_dis_subpackages)
161  case default
162  end select
163  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ gwe_param_definitions()

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

Definition at line 45 of file IdmGweDfnSelector.f90.

46  character(len=*), intent(in) :: subcomponent
47  type(InputParamDefinitionType), dimension(:), pointer :: input_definition
48  nullify (input_definition)
49  select case (subcomponent)
50  case ('NAM')
51  call set_param_pointer(input_definition, gwe_nam_param_definitions)
52  case ('IC')
53  call set_param_pointer(input_definition, gwe_ic_param_definitions)
54  case ('CTP')
55  call set_param_pointer(input_definition, gwe_ctp_param_definitions)
56  case ('CND')
57  call set_param_pointer(input_definition, gwe_cnd_param_definitions)
58  case ('DISV')
59  call set_param_pointer(input_definition, gwe_disv_param_definitions)
60  case ('DISU')
61  call set_param_pointer(input_definition, gwe_disu_param_definitions)
62  case ('DIS')
63  call set_param_pointer(input_definition, gwe_dis_param_definitions)
64  case default
65  end select
66  return
Here is the call graph for this function:
Here is the caller graph for this function:

◆ set_block_pointer()

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

Definition at line 33 of file IdmGweDfnSelector.f90.

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

◆ set_param_pointer()

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

Definition at line 27 of file IdmGweDfnSelector.f90.

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

◆ set_subpkg_pointer()

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

Definition at line 39 of file IdmGweDfnSelector.f90.

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