MODFLOW 6  version 6.6.0.dev0
USGS Modular Hydrologic Model
Private Member Functions | List of all members
ncarrayreadermodule::netcdf_array_load Interface Reference
Collaboration diagram for ncarrayreadermodule::netcdf_array_load:
Collaboration graph

Private Member Functions

subroutine nc_array_load_int1d (int1d, mshape, idt, mf6_input, nc_vars, input_fname, iout, kper)
 Load NetCDF integer 1D array. More...
 
subroutine nc_array_load_int2d (int2d, mshape, idt, mf6_input, nc_vars, input_fname, iout)
 Load NetCDF integer 2D array. More...
 
subroutine nc_array_load_int3d (int3d, mshape, idt, mf6_input, nc_vars, input_fname, iout)
 Load NetCDF integer 3D array. More...
 
subroutine nc_array_load_dbl1d (dbl1d, mshape, idt, mf6_input, nc_vars, input_fname, iout, kper, iaux)
 Load NetCDF double 1D array. More...
 
subroutine nc_array_load_dbl2d (dbl2d, mshape, idt, mf6_input, nc_vars, input_fname, iout)
 Load NetCDF double 2D array. More...
 
subroutine nc_array_load_dbl3d (dbl3d, mshape, idt, mf6_input, nc_vars, input_fname, iout)
 Load NetCDF double 3D array. More...
 

Detailed Description

Definition at line 25 of file NCArrayReader.f90.

Member Function/Subroutine Documentation

◆ nc_array_load_dbl1d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_dbl1d ( real(dp), dimension(:), intent(in), pointer, contiguous  dbl1d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout,
integer(i4b), intent(in), optional  kper,
integer(i4b), intent(in), optional  iaux 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 149 of file NCArrayReader.f90.

151  real(DP), dimension(:), pointer, contiguous, intent(in) :: dbl1d
152  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
153  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
154  type(ModflowInputType), intent(in) :: mf6_input
155  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
156  character(len=*), intent(in) :: input_fname
157  integer(I4B), intent(in) :: iout
158  integer(I4B), optional, intent(in) :: kper
159  integer(I4B), optional, intent(in) :: iaux
160  ! -- local
161  integer(I4B) :: varid
162  logical(LGP) :: layered
163  !
164  if (present(kper)) then
165  layered = (kper > 0 .and. is_layered(nc_vars%grid))
166  else
167  layered = (idt%layered .and. is_layered(nc_vars%grid))
168  end if
169  !
170  if (layered) then
171  if (present(kper)) then
172  call load_double1d_layered_spd(dbl1d, mf6_input, mshape, idt, nc_vars, &
173  kper, input_fname, iaux)
174  else
175  call load_double1d_layered(dbl1d, mf6_input, mshape, idt, nc_vars, &
176  input_fname)
177  end if
178  else
179  if (present(kper)) then
180  call load_double1d_spd(dbl1d, mf6_input, mshape, idt, nc_vars, &
181  kper, input_fname, iaux)
182  else
183  varid = nc_vars%varid(idt%mf6varname)
184  call load_double1d_type(dbl1d, mf6_input, mshape, idt, nc_vars, &
185  varid, input_fname)
186  end if
187  end if
188  !
189  ! -- return
190  return
Here is the call graph for this function:

◆ nc_array_load_dbl2d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_dbl2d ( real(dp), dimension(:, :), intent(in), pointer, contiguous  dbl2d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 195 of file NCArrayReader.f90.

197  real(DP), dimension(:, :), pointer, contiguous, intent(in) :: dbl2d
198  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
199  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
200  type(ModflowInputType), intent(in) :: mf6_input
201  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
202  character(len=*), intent(in) :: input_fname
203  integer(I4B), intent(in) :: iout
204  ! -- local
205  integer(I4B) :: varid
206  logical(LGP) :: layered
207  !
208  layered = (idt%layered .and. is_layered(nc_vars%grid))
209  !
210  if (layered) then
211  call load_double2d_layered(dbl2d, mf6_input, mshape, idt, nc_vars, &
212  input_fname)
213  else
214  varid = nc_vars%varid(idt%mf6varname)
215  call load_double2d_type(dbl2d, mf6_input, mshape, idt, nc_vars, &
216  varid, input_fname)
217  end if
218  !
219  ! -- return
220  return
Here is the call graph for this function:

◆ nc_array_load_dbl3d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_dbl3d ( real(dp), dimension(:, :, :), intent(in), pointer, contiguous  dbl3d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 225 of file NCArrayReader.f90.

227  real(DP), dimension(:, :, :), pointer, contiguous, intent(in) :: dbl3d
228  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
229  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
230  type(ModflowInputType), intent(in) :: mf6_input
231  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
232  character(len=*), intent(in) :: input_fname
233  integer(I4B), intent(in) :: iout
234  ! -- local
235  integer(I4B) :: varid
236  logical(LGP) :: layered
237  !
238  layered = (idt%layered .and. is_layered(nc_vars%grid))
239  !
240  if (layered) then
241  call load_double3d_layered(dbl3d, mf6_input, mshape, idt, nc_vars, &
242  input_fname)
243  else
244  varid = nc_vars%varid(idt%mf6varname)
245  call load_double3d_type(dbl3d, mf6_input, mshape, idt, nc_vars, &
246  varid, input_fname)
247  end if
248  !
249  ! -- return
250  return
Here is the call graph for this function:

◆ nc_array_load_int1d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_int1d ( integer(i4b), dimension(:), intent(in), pointer, contiguous  int1d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout,
integer(i4b), intent(in), optional  kper 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 54 of file NCArrayReader.f90.

56  integer(I4B), dimension(:), pointer, contiguous, intent(in) :: int1d
57  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
58  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
59  type(ModflowInputType), intent(in) :: mf6_input
60  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
61  character(len=*), intent(in) :: input_fname
62  integer(I4B), intent(in) :: iout
63  integer(I4B), optional, intent(in) :: kper
64  ! -- local
65  integer(I4B) :: varid
66  logical(LGP) :: layered
67  !
68  layered = (idt%layered .and. is_layered(nc_vars%grid))
69  !
70  if (layered) then
71  call load_integer1d_layered(int1d, mf6_input, mshape, idt, nc_vars, &
72  input_fname)
73  else
74  if (present(kper)) then
75  varid = nc_vars%varid(idt%mf6varname, period=kper)
76  else
77  varid = nc_vars%varid(idt%mf6varname)
78  end if
79  call load_integer1d_type(int1d, mf6_input, mshape, idt, nc_vars, &
80  varid, input_fname)
81  end if
82  !
83  ! -- return
84  return
Here is the call graph for this function:

◆ nc_array_load_int2d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_int2d ( integer(i4b), dimension(:, :), intent(in), pointer, contiguous  int2d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 89 of file NCArrayReader.f90.

91  integer(I4B), dimension(:, :), pointer, contiguous, intent(in) :: int2d
92  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
93  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
94  type(ModflowInputType), intent(in) :: mf6_input
95  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
96  character(len=*), intent(in) :: input_fname
97  integer(I4B), intent(in) :: iout
98  ! -- local
99  integer(I4B) :: varid
100  logical(LGP) :: layered
101  !
102  layered = (idt%layered .and. is_layered(nc_vars%grid))
103  !
104  if (layered) then
105  call load_integer2d_layered(int2d, mf6_input, mshape, idt, nc_vars, &
106  input_fname)
107  else
108  varid = nc_vars%varid(idt%mf6varname)
109  call load_integer2d_type(int2d, mf6_input, mshape, idt, nc_vars, &
110  varid, input_fname)
111  end if
112  !
113  ! -- return
114  return
Here is the call graph for this function:

◆ nc_array_load_int3d()

subroutine ncarrayreadermodule::netcdf_array_load::nc_array_load_int3d ( integer(i4b), dimension(:, :, :), intent(in), pointer, contiguous  int3d,
integer(i4b), dimension(:), intent(in), pointer, contiguous  mshape,
type(inputparamdefinitiontype), intent(in)  idt,
type(modflowinputtype), intent(in)  mf6_input,
type(ncpackagevarstype), intent(in), pointer  nc_vars,
character(len=*), intent(in)  input_fname,
integer(i4b), intent(in)  iout 
)
private
Parameters
[in]mshapemodel shape
[in]idtinput data type object describing this record

Definition at line 119 of file NCArrayReader.f90.

121  integer(I4B), dimension(:, :, :), pointer, contiguous, intent(in) :: int3d
122  integer(I4B), dimension(:), contiguous, pointer, intent(in) :: mshape !< model shape
123  type(InputParamDefinitionType), intent(in) :: idt !< input data type object describing this record
124  type(ModflowInputType), intent(in) :: mf6_input
125  type(NCPackageVarsType), pointer, intent(in) :: nc_vars
126  character(len=*), intent(in) :: input_fname
127  integer(I4B), intent(in) :: iout
128  ! -- local
129  integer(I4B) :: varid
130  logical(LGP) :: layered
131  !
132  layered = (idt%layered .and. is_layered(nc_vars%grid))
133  !
134  if (layered) then
135  call load_integer3d_layered(int3d, mf6_input, mshape, idt, nc_vars, &
136  input_fname)
137  else
138  varid = nc_vars%varid(idt%mf6varname)
139  call load_integer3d_type(int3d, mf6_input, mshape, idt, nc_vars, &
140  varid, input_fname)
141  end if
142  !
143  ! -- return
144  return
Here is the call graph for this function:
The documentation for this interface was generated from the following file: