![]() |
MODFLOW 6 version 6.9.0.dev0
USGS Modular Hydrologic Model
|


Public Member Functions | |
| procedure | disv1d_load (this) |
| procedure | dis_df (this) |
| Define the discretization. | |
| procedure | dis_da (this) |
| procedure | get_dis_type (this, dis_type) |
| Get the discretization type (DIS, DIS2D, DISV, DISV1D, DISU). | |
| procedure | get_dis_enum (this) |
| Get the discretization type enumeration. | |
| procedure | get_flow_width (this, n, m, idx_conn, width_n, width_m) |
| @ brief Calculate the flow width between two cells | |
| procedure, public | record_array (this, darray, iout, iprint, idataun, aname, cdatafmp, nvaluesp, nwidthp, editdesc, dinact) |
| Record a double precision array. | |
| procedure, public | record_srcdst_list_header (this, text, textmodel, textpackage, dstmodel, dstpackage, naux, auxtxt, ibdchn, nlist, iout) |
| Record list header using ubdsv06. | |
| procedure | allocate_scalars (this, name_model, input_mempath) |
| Allocate scalar variables. | |
| procedure | allocate_arrays (this) |
| procedure | source_options (this) |
| Copy options from IDM into package. | |
| procedure | source_dimensions (this) |
| Copy dimensions from IDM into package. | |
| procedure | source_griddata (this) |
| procedure | source_vertices (this) |
| Copy vertex information from input data context to model context. | |
| procedure | source_cell1d (this) |
| Copy cell1d information from input data context to model context. | |
| procedure | log_options (this, found) |
| Write user options to list file. | |
| procedure | log_dimensions (this, found) |
| Write dimensions to list file. | |
| procedure | log_griddata (this, found) |
| Write griddata found to list file. | |
| procedure | define_cellverts (this, icell1d, ncvert, icvert) |
| Construct the iavert and javert integer vectors which are compressed sparse row index arrays that relate the vertices to reaches. | |
| procedure | grid_finalize (this) |
| Finalize grid construction. | |
| procedure | create_connections (this) |
| procedure | write_grb (this, icelltype) |
| Write binary grid file. | |
| procedure | get_nodenumber_idx1 (this, nodeu, icheck) |
| Return a nodenumber from the user specified node number with an option to perform a check. This subroutine can be overridden by child classes to perform mapping to a model node number. | |
| procedure | nodeu_to_string (this, nodeu, str) |
| procedure | nodeu_from_string (this, lloc, istart, istop, in, iout, line, flag_string, allow_zero) |
| nodeu_from_string – Receive a string and convert the string to a user nodenumber. The model is unstructured; just read user nodenumber. If flag_string argument is present and true, the first token in string is allowed to be a string (e.g. boundary name). In this case, if a string is encountered, return value as -2. | |
| procedure | connection_normal (this, noden, nodem, ihc, xcomp, ycomp, zcomp, ipos) |
| Get normal vector components between the cell and a given neighbor. | |
| procedure | connection_vector (this, noden, nodem, nozee, satn, satm, ihc, xcomp, ycomp, zcomp, conlen) |
| Get unit vector components between the cell and a given neighbor. | |
| procedure | dis_df (this) |
| Define the discretization. | |
| procedure | dis_ac (this, moffset, sparse) |
| Add connections to sparse cell connectivity matrix. | |
| procedure | dis_mc (this, moffset, idxglo, matrix_sln) |
| Map cell connections in the numerical solution coefficient matrix. | |
| procedure | dis_ar (this, icelltype) |
| Allocate and setup variables, and write binary grid file. | |
| procedure | dis_da (this) |
| Deallocate variables. | |
| generic | get_nodenumber (this, nodeu, icheck) |
| generic | get_nodenumber (this, k, j, icheck) |
| generic | get_nodenumber (this, k, i, j, icheck) |
| procedure | get_nodenumber_idx1 (this, nodeu, icheck) |
| procedure | get_nodenumber_idx2 (this, k, j, icheck) |
| procedure | get_nodenumber_idx3 (this, k, i, j, icheck) |
| procedure | get_nodeuser (this, noder) |
| Convert a reduced nodenumber to a user node number. | |
| procedure | nodeu_to_string (this, nodeu, str) |
| Convert a user nodenumber to a string (nodenumber), (k,j), or (k,i,j). | |
| procedure | nodeu_to_array (this, nodeu, arr) |
| Convert a user nodenumber to an array (nodenumber), (k,j), or (k,i,j). | |
| procedure | nodeu_from_string (this, lloc, istart, istop, in, iout, line, flag_string, allow_zero) |
| Convert a string to a user nodenumber. | |
| procedure | nodeu_from_cellid (this, cellid, inunit, iout, flag_string, allow_zero) |
| Convert a cellid string to a user nodenumber. | |
| procedure | noder_from_string (this, lloc, istart, istop, in, iout, line, flag_string) |
| Convert a string to a reduced nodenumber. | |
| procedure | noder_from_cellid (this, cellid, inunit, iout, flag_string, allow_zero) |
| Convert cellid string to reduced nodenumber. | |
| procedure | connection_normal (this, noden, nodem, ihc, xcomp, ycomp, zcomp, ipos) |
| Get normal vector components between the cell and a given neighbor. The normal points outward from the shared face between noden and nodem. | |
| procedure | connection_vector (this, noden, nodem, nozee, satn, satm, ihc, xcomp, ycomp, zcomp, conlen) |
| Get unit vector components between the cell and a given neighbor. Saturation must be provided to compute cell center vertical coordinates. Also return the straight-line connection length. | |
| procedure | get_dis_type (this, dis_type) |
| Get the discretization type (DIS, DISV, or DISU). | |
| procedure | get_dis_enum (this) |
| Get the discretization type enumeration. | |
| procedure | supports_layers (this) |
| Indicates whether the grid discretization supports layers. | |
| procedure | allocate_scalars (this, name_model, input_mempath) |
| Allocate and initialize scalar variables. | |
| procedure | allocate_arrays (this) |
| Allocate and initialize arrays. | |
| procedure | get_ncpl (this) |
| Return number of cells per layer. This is nodes for a DISU grid, as there are no layers. | |
| procedure | get_cell_volume (this, n, x) |
| Return volume of cell n based on x value passed. | |
| procedure | get_polyverts (this, ic, polyverts, closed) |
| Get a 2D array of cell polygon vertices, in clockwise order starting with the lower left corner. | |
| procedure | get_npolyverts (this, ic, closed) |
| Get the number of cell polygon vertices. | |
| procedure | get_max_npolyverts (this, closed) |
| Get the maximum number of cell polygon vertices. | |
| procedure | write_grb (this, icelltype) |
| Write a binary grid file. | |
| procedure | read_int_array (this, line, lloc, istart, istop, iout, in, iarray, aname) |
| Read an integer array. | |
| procedure | read_dbl_array (this, line, lloc, istart, istop, iout, in, darray, aname) |
| Read a double precision array. | |
| generic, public | read_grid_array (this, line, lloc, istart, istop, iout, in, iarray, aname) |
| Read an integer array. | |
| generic, public | read_grid_array (this, line, lloc, istart, istop, iout, in, darray, aname) |
| Read a double precision array. | |
| procedure, public | read_layer_array (this, nodelist, darray, ncolbnd, maxbnd, icolbnd, aname, inunit, iout) |
| Read a 2d double array into col icolbnd of darray. | |
| procedure | fill_int_array (this, ibuff1, ibuff2) |
| Fill an integer array. | |
| procedure | fill_dbl_array (this, buff1, buff2) |
| Fill a double precision array. | |
| generic, public | fill_grid_array (this, ibuff1, ibuff2) |
| Fill an integer array. | |
| generic, public | fill_grid_array (this, buff1, buff2) |
| Fill a double precision array. | |
| procedure, public | read_list (this, line_reader, in, iout, iprpak, nlist, inamedbound, iauxmultcol, nodelist, rlist, auxvar, auxname, boundname, label, pkgname, tsmanager, iscloc, indxconvertflux) |
| Read a list using the list reader. | |
| procedure, public | record_array (this, darray, iout, iprint, idataun, aname, cdatafmp, nvaluesp, nwidthp, editdesc, dinact) |
| Record a double precision array. | |
| procedure, public | record_connection_array (this, flowja, ibinun, iout) |
| Record a connection-based double precision array. | |
| procedure, public | noder_to_string (this, noder, str) |
| Convert reduced node number to string (nodenumber), (k,j) or (k,i,j). | |
| procedure, public | noder_to_array (this, noder, arr) |
| Convert reduced node number to array (nodenumber), (k,j) or (k,i,j). | |
| procedure, public | record_srcdst_list_header (this, text, textmodel, textpackage, dstmodel, dstpackage, naux, auxtxt, ibdchn, nlist, iout) |
| Record list header for imeth=6. | |
| generic, public | record_mf6_list_entry (this, ibdchn, noder, noder2, q, naux, aux, olconv, olconv2) |
| Record list header. | |
| procedure, public | nlarray_to_nodelist (this, darray, nodelist, maxbnd, nbound, aname) |
| Convert an integer array to nodelist. | |
| procedure, public | highest_active (this, n, ibound) |
| Find the first highest active cell beneath cell n. | |
| procedure, public | highest_saturated (this, n, sat) |
| Find the first saturated cell beneath cell n. | |
| procedure, public | get_area (this, node) |
| Return the cell area for the given node. | |
| procedure, public | get_area_factor (this, node, idx_conn) |
| @ brief Calculate the area factor for the cell connection | |
| procedure, public | get_flow_width (this, n, m, idx_conn, width_n, width_m) |
| @ brief Calculate the flow width between two cells | |
| procedure, public | is_3d (this) |
| return true if grid is three dimensional | |
| procedure, public | is_2d (this) |
| return true if grid is two dimensional | |
| procedure, public | is_1d (this) |
| return true if grid is one dimensional | |
Public Attributes | |
| integer(i4b), pointer | nvert => null() |
| number of x,y vertices | |
| real(dp), dimension(:), pointer, contiguous | length => null() |
| length of each reach (of size nodesuser) | |
| real(dp), dimension(:), pointer, contiguous | width => null() |
| reach width | |
| real(dp), dimension(:), pointer, contiguous | bottom => null() |
| reach bottom elevation | |
| integer(i4b), dimension(:), pointer, contiguous | idomain => null() |
| idomain (of size nodesuser) | |
| real(dp), dimension(:, :), pointer, contiguous | vertices => null() |
| cell vertices stored as 2d array with columns of x, y | |
| real(dp), dimension(:, :), pointer, contiguous | cellxy => null() |
| reach midpoints stored as 2d array with columns of x, y | |
| real(dp), dimension(:), pointer, contiguous | fdc => null() |
| fdc stored as array | |
| integer(i4b), dimension(:), pointer, contiguous | iavert => null() |
| cell vertex pointer ia array | |
| integer(i4b), dimension(:), pointer, contiguous | javert => null() |
| cell vertex pointer ja array | |
| character(len=lenmempath) | memorypath |
| path for memory allocation | |
| character(len=lenmempath) | input_mempath = '' |
| input context mempath | |
| character(len=lenmodelname), pointer | name_model => null() |
| name of the model | |
| character(len=linelength), pointer | input_fname => null() |
| input file name | |
| character(len=linelength), pointer | output_fname => null() |
| output file name | |
| integer(i4b), pointer | inunit => null() |
| unit number for input file | |
| integer(i4b), pointer | iout => null() |
| unit number for output file | |
| integer(i4b), pointer | nodes => null() |
| number of nodes in solution | |
| integer(i4b), pointer | nodesuser => null() |
| number of user nodes (same as nodes for disu grid) | |
| integer(i4b), pointer | nja => null() |
| number of connections plus number of nodes | |
| integer(i4b), pointer | njas => null() |
| (nja-nodes)/2 | |
| integer(i4b), pointer | lenuni => null() |
| length unit | |
| integer(i4b), pointer | ndim => null() |
| number of spatial model dimensions (1 for disu grid) | |
| integer(i4b), pointer | icondir => null() |
| flag indicating if grid has enough info to calculate connection vectors | |
| integer(i4b), pointer | nogrb => null() |
| don't write binary grid file | |
| real(dp), dimension(:), pointer, contiguous | xc => null() |
| x-coordinate of the cell center | |
| real(dp), dimension(:), pointer, contiguous | yc => null() |
| y-coordinate of the cell center | |
| real(dp), pointer | yorigin => null() |
| y-position of the lower-left grid corner (default is 0.) | |
| real(dp), pointer | xorigin => null() |
| x-position of the lower-left grid corner (default is 0.) | |
| real(dp), pointer | angrot => null() |
| counter-clockwise rotation angle of the lower-left corner (default is 0.0) | |
| integer(i4b), dimension(:), pointer, contiguous | mshape => null() |
| shape of the model; (nodes) for DisBaseType | |
| real(dp), dimension(:), pointer, contiguous | top => null() |
| (size:nodes) cell top elevation | |
| real(dp), dimension(:), pointer, contiguous | bot => null() |
| (size:nodes) cell bottom elevation | |
| real(dp), dimension(:), pointer, contiguous | area => null() |
| (size:nodes) cell area, in plan view | |
| type(connectionstype), pointer | con => null() |
| connections object | |
| type(blockparsertype) | parser |
| object to read blocks | |
| real(dp), dimension(:), pointer, contiguous | dbuff => null() |
| helper double array of size nodesuser | |
| integer(i4b), dimension(:), pointer, contiguous | ibuff => null() |
| helper int array of size nodesuser | |
| integer(i4b), dimension(:), pointer, contiguous | nodereduced => null() |
| (size:nodesuser)contains reduced nodenumber (size 0 if not reduced); -1 means vertical pass through, 0 is idomain = 0 | |
| integer(i4b), dimension(:), pointer, contiguous | nodeuser => null() |
| (size:nodes) given a reduced nodenumber, provide the user nodenumber (size 0 if not reduced) | |
Private Member Functions | |
| procedure, private | record_srcdst_list_entry (this, ibdchn, noder, noder2, q, naux, aux, olconv, olconv2) |
| Record list header. | |
Definition at line 22 of file Disv1d.f90.
|
inherited |
Definition at line 93 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::allocate_arrays | ( | class(disv1dtype) | this | ) |
Definition at line 44 of file Disv1d.f90.
|
inherited |
Definition at line 92 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::allocate_scalars | ( | class(disv1dtype) | this, |
| character(len=*), intent(in) | name_model, | ||
| character(len=*), intent(in) | input_mempath ) |
Definition at line 43 of file Disv1d.f90.
|
inherited |
| [in] | noden | cell (reduced nn) |
| [in] | nodem | neighbor (reduced nn) |
| [in] | ihc | horizontal connection flag |
Definition at line 87 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::connection_normal | ( | class(disv1dtype) | this, |
| integer(i4b), intent(in) | noden, | ||
| integer(i4b), intent(in) | nodem, | ||
| integer(i4b), intent(in) | ihc, | ||
| real(dp), intent(inout) | xcomp, | ||
| real(dp), intent(inout) | ycomp, | ||
| real(dp), intent(inout) | zcomp, | ||
| integer(i4b), intent(in) | ipos ) |
The normal points outward from the shared face between noden and nodem.
| [in] | noden | cell (reduced nn) |
| [in] | nodem | neighbor (reduced nn) |
| [in] | ihc | horizontal connection flag (not used) |
| [in,out] | xcomp | x component of outward normal vector |
| [in,out] | ycomp | y component of outward normal vector |
| [in,out] | zcomp | z component of outward normal vector |
| [in] | ipos | connection position |
Definition at line 61 of file Disv1d.f90.
|
inherited |
| [in] | noden | cell (reduced nn) |
| [in] | nodem | neighbor (reduced nn) |
| [in] | ihc | horizontal connection flag |
Definition at line 88 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::connection_vector | ( | class(disv1dtype) | this, |
| integer(i4b), intent(in) | noden, | ||
| integer(i4b), intent(in) | nodem, | ||
| logical, intent(in) | nozee, | ||
| real(dp), intent(in) | satn, | ||
| real(dp), intent(in) | satm, | ||
| integer(i4b), intent(in) | ihc, | ||
| real(dp), intent(inout) | xcomp, | ||
| real(dp), intent(inout) | ycomp, | ||
| real(dp), intent(inout) | zcomp, | ||
| real(dp), intent(inout) | conlen ) |
Saturation must be provided to compute cell center vertical coordinates. Also return the straight-line connection length.
| [in] | noden | cell (reduced nn) |
| [in] | nodem | neighbor (reduced nn) |
| [in] | nozee | do not use z in calculations |
| [in] | satn | not used for disv1d |
| [in] | satm | not used for disv1d |
| [in] | ihc | horizontal connection flag |
| [in,out] | xcomp | x component of connection vector |
| [in,out] | ycomp | y component of connection vector |
| [in,out] | zcomp | z component of connection vector |
| [in,out] | conlen | calculated straight-line distance between cell centers |
Definition at line 62 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::create_connections | ( | class(disv1dtype) | this | ) |
Definition at line 56 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::define_cellverts | ( | class(disv1dtype) | this, |
| integer(i4b), dimension(:), intent(in), pointer, contiguous | icell1d, | ||
| integer(i4b), dimension(:), intent(in), pointer, contiguous | ncvert, | ||
| integer(i4b), dimension(:), intent(in), pointer, contiguous | icvert ) |
Definition at line 53 of file Disv1d.f90.
|
inherited |
Definition at line 63 of file DiscretizationBase.f90.
|
inherited |
Definition at line 65 of file DiscretizationBase.f90.
|
inherited |
Definition at line 66 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::dis_da | ( | class(disv1dtype) | this | ) |
Definition at line 36 of file Disv1d.f90.
|
inherited |
Definition at line 62 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::dis_df | ( | class(disv1dtype) | this | ) |
Definition at line 35 of file Disv1d.f90.
|
inherited |
Definition at line 64 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::disv1d_load | ( | class(disv1dtype) | this | ) |
Definition at line 34 of file Disv1d.f90.
|
inherited |
Definition at line 106 of file DiscretizationBase.f90.
|
inherited |
Definition at line 107 of file DiscretizationBase.f90.
|
inherited |
|
inherited |
Definition at line 105 of file DiscretizationBase.f90.
|
inherited |
| [in] | node | reduced node number |
Definition at line 120 of file DiscretizationBase.f90.
|
inherited |
Function calculates the area factor for the cell connection. The sum of all area factors for all cell connections to overlying or underlying cells cells will be 1.
TODO: confirm that this works for cells that are only partially covered by overlying or underlying cells.
| [in] | node | cell node number |
| [in] | idx_conn | connection index |
Definition at line 121 of file DiscretizationBase.f90.
|
inherited |
Definition at line 95 of file DiscretizationBase.f90.
|
inherited |
Definition at line 90 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::get_dis_enum | ( | class(disv1dtype), intent(in) | this | ) |
Definition at line 38 of file Disv1d.f90.
|
inherited |
Definition at line 89 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::get_dis_type | ( | class(disv1dtype), intent(in) | this, |
| character(len=*), intent(out) | dis_type ) |
Definition at line 37 of file Disv1d.f90.
|
inherited |
This should only be called for connections with IHC > 0. Routine is needed, so it can be overridden by the linear network discretization, which allows for a separate flow
| [in] | n | cell node number |
| [in] | m | cell node number |
| [in] | idx_conn | connection index |
| [out] | width_n | flow width for cell n |
| [out] | width_m | flow width for cell m |
Definition at line 122 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::get_flow_width | ( | class(disv1dtype) | this, |
| integer(i4b), intent(in) | n, | ||
| integer(i4b), intent(in) | m, | ||
| integer(i4b), intent(in) | idx_conn, | ||
| real(dp), intent(out) | width_n, | ||
| real(dp), intent(out) | width_m ) |
This should only be called for connections with IHC > 0. Routine is needed, so it can be overridden by the linear network discretization, which allows for a separate flow
| [in] | n | cell node number |
| [in] | m | cell node number |
| [in] | idx_conn | connection index |
| [out] | width_n | flow width for cell n |
| [out] | width_m | flow width for cell m |
Definition at line 39 of file Disv1d.f90.
|
inherited |
| [in] | closed | whether to close the polygon, duplicating a vertex |
Definition at line 98 of file DiscretizationBase.f90.
|
inherited |
Definition at line 94 of file DiscretizationBase.f90.
|
inherited |
Definition at line 74 of file DiscretizationBase.f90.
|
inherited |
Definition at line 74 of file DiscretizationBase.f90.
|
inherited |
|
inherited |
Definition at line 77 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::get_nodenumber_idx1 | ( | class(disv1dtype), intent(in) | this, |
| integer(i4b), intent(in) | nodeu, | ||
| integer(i4b), intent(in) | icheck ) |
Definition at line 58 of file Disv1d.f90.
|
inherited |
Definition at line 78 of file DiscretizationBase.f90.
|
inherited |
Definition at line 79 of file DiscretizationBase.f90.
|
inherited |
Definition at line 80 of file DiscretizationBase.f90.
|
inherited |
| [in] | ic | cell number (reduced) |
| [in] | closed | whether to close the polygon, duplicating a vertex |
Definition at line 97 of file DiscretizationBase.f90.
|
inherited |
| [in] | ic | cell number (reduced) |
| [out] | polyverts | polygon vertices (column-major indexing) |
| [in] | closed | whether to close the polygon, duplicating a vertex |
Definition at line 96 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::grid_finalize | ( | class(disv1dtype) | this | ) |
Definition at line 54 of file Disv1d.f90.
|
inherited |
Definition at line 118 of file DiscretizationBase.f90.
|
inherited |
Definition at line 119 of file DiscretizationBase.f90.
|
inherited |
Definition at line 125 of file DiscretizationBase.f90.
|
inherited |
Definition at line 124 of file DiscretizationBase.f90.
|
inherited |
Definition at line 123 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::log_dimensions | ( | class(disv1dtype) | this, |
| type(disfoundtype), intent(in) | found ) |
Definition at line 51 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::log_griddata | ( | class(disv1dtype) | this, |
| type(disfoundtype), intent(in) | found ) |
Definition at line 52 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::log_options | ( | class(disv1dtype) | this, |
| type(disfoundtype), intent(in) | found ) |
Definition at line 50 of file Disv1d.f90.
|
inherited |
For DIS/DISV, the array is layer number, for DISU it's node number.
Definition at line 117 of file DiscretizationBase.f90.
|
inherited |
If flag_string argument is present and true, the first token in string is allowed to be a string (e.g. boundary name). In this case, if a string is encountered, return value as -2. If allow_zero argument is present and true, if all indices equal zero, the result can be zero. If allow_zero is false, a zero in any index is an error.
Definition at line 86 of file DiscretizationBase.f90.
|
inherited |
If the model is unstructured; just read user nodenumber. If flag_string argument is present and true, the first token in string is allowed to be a string (e.g. boundary name). In this case, if a string is encountered, return value as -2.
Definition at line 85 of file DiscretizationBase.f90.
|
inherited |
Definition at line 113 of file DiscretizationBase.f90.
|
inherited |
Definition at line 112 of file DiscretizationBase.f90.
|
inherited |
If flag_string is present and true, the first token may be non-numeric (e.g. boundary name). In this case, return -2.
If allow_zero is present and true, and all indices are zero, the result can be zero. If allow_zero is false, a zero in any index is an error.
Definition at line 84 of file DiscretizationBase.f90.
|
inherited |
If DIS or DISV, read indices. If DISU, read user node number directly. If flag_string is present and true, the first token may be non-numeric (e.g. boundary name). In this case, return -2.
Definition at line 83 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::nodeu_from_string | ( | class(disv1dtype) | this, |
| integer(i4b), intent(inout) | lloc, | ||
| integer(i4b), intent(inout) | istart, | ||
| integer(i4b), intent(inout) | istop, | ||
| integer(i4b), intent(in) | in, | ||
| integer(i4b), intent(in) | iout, | ||
| character(len=*), intent(inout) | line, | ||
| logical, intent(in), optional | flag_string, | ||
| logical, intent(in), optional | allow_zero ) |
Definition at line 60 of file Disv1d.f90.
|
inherited |
Definition at line 82 of file DiscretizationBase.f90.
|
inherited |
Definition at line 81 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::nodeu_to_string | ( | class(disv1dtype) | this, |
| integer(i4b), intent(in) | nodeu, | ||
| character(len=*), intent(inout) | str ) |
Definition at line 59 of file Disv1d.f90.
|
inherited |
Definition at line 102 of file DiscretizationBase.f90.
|
inherited |
Definition at line 103 of file DiscretizationBase.f90.
|
inherited |
|
inherited |
Definition at line 101 of file DiscretizationBase.f90.
|
inherited |
For cells that are outside of the active domain, do not copy the array value into darray.
Definition at line 104 of file DiscretizationBase.f90.
|
inherited |
Convert user node numbers to reduced numbers. Terminate if any nodenumbers are within an inactive domain. Set up time series and multiply by iauxmultcol if it exists. Write the list to iout if iprpak is set.
Definition at line 108 of file DiscretizationBase.f90.
|
inherited |
The array is written to a formatted or unformatted external file depending on the arguments.
| [in,out] | darray | double precision array to record |
| [in] | iout | ascii output unit number |
| [in] | iprint | whether to print the array |
| [in] | idataun | binary output unit number |
| [in] | aname | text descriptor |
| [in] | cdatafmp | write format |
| [in] | nvaluesp | values per line |
| [in] | nwidthp | number width |
| [in] | editdesc | format type (I, G, F, S, E) |
| [in] | dinact | double precision value for cells excluded from model domain |
Definition at line 110 of file DiscretizationBase.f90.
| procedure, public disv1dmodule::disv1dtype::record_array | ( | class(disv1dtype), intent(inout) | this, |
| real(dp), dimension(:), intent(inout), pointer, contiguous | darray, | ||
| integer(i4b), intent(in) | iout, | ||
| integer(i4b), intent(in) | iprint, | ||
| integer(i4b), intent(in) | idataun, | ||
| character(len=*), intent(in) | aname, | ||
| character(len=*), intent(in) | cdatafmp, | ||
| integer(i4b), intent(in) | nvaluesp, | ||
| integer(i4b), intent(in) | nwidthp, | ||
| character(len=*), intent(in) | editdesc, | ||
| real(dp), intent(in) | dinact ) |
Record a double precision array. The array will be printed to an external file and/or written to an unformatted external file depending on the argument specifications.
| [in,out] | darray | double precision array to record |
| [in] | iout | unit number for ascii output |
| [in] | iprint | flag indicating whether or not to print the array |
| [in] | idataun | unit number to which the array will be written in binary |
| [in] | aname | text descriptor of the array |
| [in] | nvaluesp | number of values per line for printing |
| [in] | nwidthp | width of the number for printing |
| [in] | editdesc | format type (I, G, F, S, E) |
| [in] | dinact | double precision value to use for cells that are excluded from model domain |
Definition at line 40 of file Disv1d.f90.
|
inherited |
Definition at line 111 of file DiscretizationBase.f90.
|
inherited |
|
privateinherited |
Definition at line 115 of file DiscretizationBase.f90.
|
inherited |
Definition at line 114 of file DiscretizationBase.f90.
| procedure, public disv1dmodule::disv1dtype::record_srcdst_list_header | ( | class(disv1dtype) | this, |
| character(len=16), intent(in) | text, | ||
| character(len=16), intent(in) | textmodel, | ||
| character(len=16), intent(in) | textpackage, | ||
| character(len=16), intent(in) | dstmodel, | ||
| character(len=16), intent(in) | dstpackage, | ||
| integer(i4b), intent(in) | naux, | ||
| character(len=16), dimension(:), intent(in) | auxtxt, | ||
| integer(i4b), intent(in) | ibdchn, | ||
| integer(i4b), intent(in) | nlist, | ||
| integer(i4b), intent(in) | iout ) |
Definition at line 41 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::source_cell1d | ( | class(disv1dtype) | this | ) |
Definition at line 49 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::source_dimensions | ( | class(disv1dtype) | this | ) |
Definition at line 46 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::source_griddata | ( | class(disv1dtype) | this | ) |
Definition at line 47 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::source_options | ( | class(disv1dtype) | this | ) |
Definition at line 45 of file Disv1d.f90.
| procedure disv1dmodule::disv1dtype::source_vertices | ( | class(disv1dtype) | this | ) |
Definition at line 48 of file Disv1d.f90.
|
inherited |
Definition at line 91 of file DiscretizationBase.f90.
|
inherited |
Definition at line 99 of file DiscretizationBase.f90.
| procedure disv1dmodule::disv1dtype::write_grb | ( | class(disv1dtype) | this, |
| integer(i4b), dimension(:), intent(in) | icelltype ) |
Definition at line 57 of file Disv1d.f90.
|
inherited |
Definition at line 50 of file DiscretizationBase.f90.
|
inherited |
Definition at line 54 of file DiscretizationBase.f90.
|
inherited |
Definition at line 53 of file DiscretizationBase.f90.
| real(dp), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::bottom => null() |
Definition at line 26 of file Disv1d.f90.
| real(dp), dimension(:, :), pointer, contiguous disv1dmodule::disv1dtype::cellxy => null() |
Definition at line 29 of file Disv1d.f90.
|
inherited |
Definition at line 55 of file DiscretizationBase.f90.
|
inherited |
Definition at line 57 of file DiscretizationBase.f90.
| real(dp), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::fdc => null() |
Definition at line 30 of file Disv1d.f90.
| integer(i4b), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::iavert => null() |
Definition at line 31 of file Disv1d.f90.
|
inherited |
Definition at line 58 of file DiscretizationBase.f90.
|
inherited |
Definition at line 44 of file DiscretizationBase.f90.
| integer(i4b), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::idomain => null() |
Definition at line 27 of file Disv1d.f90.
|
inherited |
Definition at line 34 of file DiscretizationBase.f90.
|
inherited |
Definition at line 32 of file DiscretizationBase.f90.
|
inherited |
Definition at line 36 of file DiscretizationBase.f90.
|
inherited |
Definition at line 37 of file DiscretizationBase.f90.
| integer(i4b), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::javert => null() |
Definition at line 32 of file Disv1d.f90.
| real(dp), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::length => null() |
Definition at line 24 of file Disv1d.f90.
|
inherited |
Definition at line 42 of file DiscretizationBase.f90.
|
inherited |
Definition at line 31 of file DiscretizationBase.f90.
|
inherited |
Definition at line 51 of file DiscretizationBase.f90.
|
inherited |
Definition at line 33 of file DiscretizationBase.f90.
|
inherited |
Definition at line 43 of file DiscretizationBase.f90.
|
inherited |
Definition at line 40 of file DiscretizationBase.f90.
|
inherited |
Definition at line 41 of file DiscretizationBase.f90.
|
inherited |
Definition at line 59 of file DiscretizationBase.f90.
|
inherited |
Definition at line 38 of file DiscretizationBase.f90.
|
inherited |
Definition at line 39 of file DiscretizationBase.f90.
|
inherited |
Definition at line 60 of file DiscretizationBase.f90.
|
inherited |
Definition at line 45 of file DiscretizationBase.f90.
| integer(i4b), pointer disv1dmodule::disv1dtype::nvert => null() |
Definition at line 23 of file Disv1d.f90.
|
inherited |
Definition at line 35 of file DiscretizationBase.f90.
|
inherited |
Definition at line 56 of file DiscretizationBase.f90.
|
inherited |
Definition at line 52 of file DiscretizationBase.f90.
| real(dp), dimension(:, :), pointer, contiguous disv1dmodule::disv1dtype::vertices => null() |
Definition at line 28 of file Disv1d.f90.
| real(dp), dimension(:), pointer, contiguous disv1dmodule::disv1dtype::width => null() |
Definition at line 25 of file Disv1d.f90.
|
inherited |
Definition at line 46 of file DiscretizationBase.f90.
|
inherited |
Definition at line 49 of file DiscretizationBase.f90.
|
inherited |
Definition at line 47 of file DiscretizationBase.f90.
|
inherited |
Definition at line 48 of file DiscretizationBase.f90.