MODFLOW 6  version 6.6.0.dev0
USGS Modular Hydrologic Model
Private Member Functions | Private Attributes | List of all members
gwtdspmodule::gwtdsptype Type Reference
Inheritance diagram for gwtdspmodule::gwtdsptype:
Inheritance graph
Collaboration diagram for gwtdspmodule::gwtdsptype:
Collaboration graph

Private Member Functions

procedure dsp_df
 
procedure dsp_ac
 
procedure dsp_mc
 
procedure dsp_ar
 
procedure dsp_ad
 
procedure dsp_fc
 
procedure dsp_cq
 
procedure dsp_da
 
procedure allocate_scalars
 
procedure allocate_arrays
 
procedure, private source_options
 
procedure, private source_griddata
 
procedure, private log_options
 
procedure, private log_griddata
 
procedure, private calcdispellipse
 
procedure, private calcdispcoef
 
procedure set_names
 
procedure da
 
procedure read_check_ionper
 
procedure get_block_data
 

Private Attributes

integer(i4b), dimension(:), pointer, contiguous ibound => null()
 
type(tspfmitype), pointer fmi => null()
 
real(dp), dimension(:), pointer, contiguous thetam => null()
 
real(dp), dimension(:), pointer, contiguous diffc => null()
 
real(dp), dimension(:), pointer, contiguous alh => null()
 
real(dp), dimension(:), pointer, contiguous alv => null()
 
real(dp), dimension(:), pointer, contiguous ath1 => null()
 
real(dp), dimension(:), pointer, contiguous ath2 => null()
 
real(dp), dimension(:), pointer, contiguous atv => null()
 
integer(i4b), pointer idiffc => null()
 
integer(i4b), pointer idisp => null()
 
integer(i4b), pointer ialh => null()
 
integer(i4b), pointer ialv => null()
 
integer(i4b), pointer iath1 => null()
 
integer(i4b), pointer iath2 => null()
 
integer(i4b), pointer iatv => null()
 
integer(i4b), pointer ixt3doff => null()
 
integer(i4b), pointer ixt3drhs => null()
 
integer(i4b), pointer ixt3d => null()
 
type(xt3dtype), pointer xt3d => null()
 
real(dp), dimension(:), pointer, contiguous dispcoef => null()
 
integer(i4b), pointer id22 => null()
 
integer(i4b), pointer id33 => null()
 
real(dp), dimension(:), pointer, contiguous d11 => null()
 
real(dp), dimension(:), pointer, contiguous d22 => null()
 
real(dp), dimension(:), pointer, contiguous d33 => null()
 
real(dp), dimension(:), pointer, contiguous angle1 => null()
 
real(dp), dimension(:), pointer, contiguous angle2 => null()
 
real(dp), dimension(:), pointer, contiguous angle3 => null()
 
integer(i4b), pointer iangle1 => null()
 
integer(i4b), pointer iangle2 => null()
 
integer(i4b), pointer iangle3 => null()
 
character(len=lenmodelname) name_model = ''
 the name of the model that contains this package More...
 
character(len=lenpackagename) packname = ''
 name of the package More...
 
character(len=lenmempath) memorypath = ''
 the location in the memory manager where the variables are stored More...
 
character(len=lenmempath) memorypathmodel = ''
 the location in the memory manager where the variables of the parent model are stored More...
 
character(len=lenmempath) input_mempath = ''
 input context mempath More...
 
character(len=linelength), pointer input_fname => null()
 input file name More...
 
character(len=lenftype) filtyp = ''
 file type (CHD, DRN, RIV, etc.) More...
 
character(len=lenftype), pointer package_type => null()
 package type (same as filtyp) stored in memory manager More...
 
integer(i4b), pointer id => null()
 consecutive package number in model More...
 
integer(i4b), pointer inunit => null()
 unit number for input file More...
 
integer(i4b), pointer iout => null()
 unit number for writing package output More...
 
integer(i4b), pointer inewton => null()
 newton flag More...
 
integer(i4b), pointer iasym => null()
 package causes matrix asymmetry More...
 
integer(i4b), pointer iprpak => null()
 integer flag to echo input More...
 
integer(i4b), pointer iprflow => null()
 flag to print simulated flows More...
 
integer(i4b), pointer ipakcb => null()
 output flows (-1, 0, 1) - save_flows More...
 
integer(i4b), pointer ionper => null()
 stress period for next data More...
 
integer(i4b), pointer lastonper => null()
 last value of ionper (for checking) More...
 
type(blockparsertype) parser
 parser object for reading blocks of information More...
 
class(disbasetype), pointer dis => null()
 model discretization object More...
 

Detailed Description

Definition at line 17 of file gwt-dsp.f90.

Member Function/Subroutine Documentation

◆ allocate_arrays()

procedure gwtdspmodule::gwtdsptype::allocate_arrays
private

Definition at line 63 of file gwt-dsp.f90.

◆ allocate_scalars()

procedure gwtdspmodule::gwtdsptype::allocate_scalars
private

Definition at line 62 of file gwt-dsp.f90.

◆ calcdispcoef()

procedure, private gwtdspmodule::gwtdsptype::calcdispcoef
private

Definition at line 69 of file gwt-dsp.f90.

◆ calcdispellipse()

procedure, private gwtdspmodule::gwtdsptype::calcdispellipse
private

Definition at line 68 of file gwt-dsp.f90.

◆ da()

procedure numericalpackagemodule::numericalpackagetype::da
privateinherited

Definition at line 55 of file NumericalPackage.f90.

◆ dsp_ac()

procedure gwtdspmodule::gwtdsptype::dsp_ac
private

Definition at line 55 of file gwt-dsp.f90.

◆ dsp_ad()

procedure gwtdspmodule::gwtdsptype::dsp_ad
private

Definition at line 58 of file gwt-dsp.f90.

◆ dsp_ar()

procedure gwtdspmodule::gwtdsptype::dsp_ar
private

Definition at line 57 of file gwt-dsp.f90.

◆ dsp_cq()

procedure gwtdspmodule::gwtdsptype::dsp_cq
private

Definition at line 60 of file gwt-dsp.f90.

◆ dsp_da()

procedure gwtdspmodule::gwtdsptype::dsp_da
private

Definition at line 61 of file gwt-dsp.f90.

◆ dsp_df()

procedure gwtdspmodule::gwtdsptype::dsp_df
private

Definition at line 54 of file gwt-dsp.f90.

◆ dsp_fc()

procedure gwtdspmodule::gwtdsptype::dsp_fc
private

Definition at line 59 of file gwt-dsp.f90.

◆ dsp_mc()

procedure gwtdspmodule::gwtdsptype::dsp_mc
private

Definition at line 56 of file gwt-dsp.f90.

◆ get_block_data()

procedure numericalpackagemodule::numericalpackagetype::get_block_data
privateinherited

Definition at line 57 of file NumericalPackage.f90.

◆ log_griddata()

procedure, private gwtdspmodule::gwtdsptype::log_griddata
private

Definition at line 67 of file gwt-dsp.f90.

◆ log_options()

procedure, private gwtdspmodule::gwtdsptype::log_options
private

Definition at line 66 of file gwt-dsp.f90.

◆ read_check_ionper()

procedure numericalpackagemodule::numericalpackagetype::read_check_ionper
privateinherited

Definition at line 56 of file NumericalPackage.f90.

◆ set_names()

procedure numericalpackagemodule::numericalpackagetype::set_names
privateinherited

Definition at line 53 of file NumericalPackage.f90.

◆ source_griddata()

procedure, private gwtdspmodule::gwtdsptype::source_griddata
private

Definition at line 65 of file gwt-dsp.f90.

◆ source_options()

procedure, private gwtdspmodule::gwtdsptype::source_options
private

Definition at line 64 of file gwt-dsp.f90.

Member Data Documentation

◆ alh

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::alh => null()
private

Definition at line 23 of file gwt-dsp.f90.

23  real(DP), dimension(:), pointer, contiguous :: alh => null() ! longitudinal horizontal dispersivity

◆ alv

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::alv => null()
private

Definition at line 24 of file gwt-dsp.f90.

24  real(DP), dimension(:), pointer, contiguous :: alv => null() ! longitudinal vertical dispersivity

◆ angle1

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::angle1 => null()
private

Definition at line 45 of file gwt-dsp.f90.

45  real(DP), dimension(:), pointer, contiguous :: angle1 => null() ! rotation angle 1

◆ angle2

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::angle2 => null()
private

Definition at line 46 of file gwt-dsp.f90.

46  real(DP), dimension(:), pointer, contiguous :: angle2 => null() ! rotation angle 2

◆ angle3

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::angle3 => null()
private

Definition at line 47 of file gwt-dsp.f90.

47  real(DP), dimension(:), pointer, contiguous :: angle3 => null() ! rotation angle 3

◆ ath1

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::ath1 => null()
private

Definition at line 25 of file gwt-dsp.f90.

25  real(DP), dimension(:), pointer, contiguous :: ath1 => null() ! transverse horizontal dispersivity

◆ ath2

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::ath2 => null()
private

Definition at line 26 of file gwt-dsp.f90.

26  real(DP), dimension(:), pointer, contiguous :: ath2 => null() ! transverse horizontal dispersivity

◆ atv

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::atv => null()
private

Definition at line 27 of file gwt-dsp.f90.

27  real(DP), dimension(:), pointer, contiguous :: atv => null() ! transverse vertical dispersivity

◆ d11

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::d11 => null()
private

Definition at line 42 of file gwt-dsp.f90.

42  real(DP), dimension(:), pointer, contiguous :: d11 => null() ! dispersion coefficient

◆ d22

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::d22 => null()
private

Definition at line 43 of file gwt-dsp.f90.

43  real(DP), dimension(:), pointer, contiguous :: d22 => null() ! dispersion coefficient

◆ d33

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::d33 => null()
private

Definition at line 44 of file gwt-dsp.f90.

44  real(DP), dimension(:), pointer, contiguous :: d33 => null() ! dispersion coefficient

◆ diffc

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::diffc => null()
private

Definition at line 22 of file gwt-dsp.f90.

22  real(DP), dimension(:), pointer, contiguous :: diffc => null() ! molecular diffusion coefficient for each cell

◆ dis

class(disbasetype), pointer numericalpackagemodule::numericalpackagetype::dis => null()
privateinherited

Definition at line 50 of file NumericalPackage.f90.

50  class(DisBaseType), pointer :: dis => null() !< model discretization object

◆ dispcoef

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::dispcoef => null()
private

Definition at line 39 of file gwt-dsp.f90.

39  real(DP), dimension(:), pointer, contiguous :: dispcoef => null() ! disp coefficient (only if xt3d not active)

◆ filtyp

character(len=lenftype) numericalpackagemodule::numericalpackagetype::filtyp = ''
privateinherited

Definition at line 33 of file NumericalPackage.f90.

33  character(len=LENFTYPE) :: filtyp = '' !< file type (CHD, DRN, RIV, etc.)

◆ fmi

type(tspfmitype), pointer gwtdspmodule::gwtdsptype::fmi => null()
private

Definition at line 20 of file gwt-dsp.f90.

20  type(TspFmiType), pointer :: fmi => null() ! pointer to GWT fmi object

◆ ialh

integer(i4b), pointer gwtdspmodule::gwtdsptype::ialh => null()
private

Definition at line 30 of file gwt-dsp.f90.

30  integer(I4B), pointer :: ialh => null() ! longitudinal horizontal dispersivity data flag

◆ ialv

integer(i4b), pointer gwtdspmodule::gwtdsptype::ialv => null()
private

Definition at line 31 of file gwt-dsp.f90.

31  integer(I4B), pointer :: ialv => null() ! longitudinal vertical dispersivity data flag

◆ iangle1

integer(i4b), pointer gwtdspmodule::gwtdsptype::iangle1 => null()
private

Definition at line 48 of file gwt-dsp.f90.

48  integer(I4B), pointer :: iangle1 => null() ! flag indicating angle1 is available

◆ iangle2

integer(i4b), pointer gwtdspmodule::gwtdsptype::iangle2 => null()
private

Definition at line 49 of file gwt-dsp.f90.

49  integer(I4B), pointer :: iangle2 => null() ! flag indicating angle2 is available

◆ iangle3

integer(i4b), pointer gwtdspmodule::gwtdsptype::iangle3 => null()
private

Definition at line 50 of file gwt-dsp.f90.

50  integer(I4B), pointer :: iangle3 => null() ! flag indicating angle3 is available

◆ iasym

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::iasym => null()
privateinherited

Definition at line 41 of file NumericalPackage.f90.

41  integer(I4B), pointer :: iasym => null() !< package causes matrix asymmetry

◆ iath1

integer(i4b), pointer gwtdspmodule::gwtdsptype::iath1 => null()
private

Definition at line 32 of file gwt-dsp.f90.

32  integer(I4B), pointer :: iath1 => null() ! transverse horizontal dispersivity data flag

◆ iath2

integer(i4b), pointer gwtdspmodule::gwtdsptype::iath2 => null()
private

Definition at line 33 of file gwt-dsp.f90.

33  integer(I4B), pointer :: iath2 => null() ! transverse horizontal dispersivity data flag

◆ iatv

integer(i4b), pointer gwtdspmodule::gwtdsptype::iatv => null()
private

Definition at line 34 of file gwt-dsp.f90.

34  integer(I4B), pointer :: iatv => null() ! transverse vertical dispersivity data flag

◆ ibound

integer(i4b), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::ibound => null()
private

Definition at line 19 of file gwt-dsp.f90.

19  integer(I4B), dimension(:), pointer, contiguous :: ibound => null() ! pointer to GWT model ibound

◆ id

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::id => null()
privateinherited

Definition at line 37 of file NumericalPackage.f90.

37  integer(I4B), pointer :: id => null() !< consecutive package number in model

◆ id22

integer(i4b), pointer gwtdspmodule::gwtdsptype::id22 => null()
private

Definition at line 40 of file gwt-dsp.f90.

40  integer(I4B), pointer :: id22 => null() ! flag indicating d22 is available

◆ id33

integer(i4b), pointer gwtdspmodule::gwtdsptype::id33 => null()
private

Definition at line 41 of file gwt-dsp.f90.

41  integer(I4B), pointer :: id33 => null() ! flag indicating d33 is available

◆ idiffc

integer(i4b), pointer gwtdspmodule::gwtdsptype::idiffc => null()
private

Definition at line 28 of file gwt-dsp.f90.

28  integer(I4B), pointer :: idiffc => null() ! flag indicating diffusion is active

◆ idisp

integer(i4b), pointer gwtdspmodule::gwtdsptype::idisp => null()
private

Definition at line 29 of file gwt-dsp.f90.

29  integer(I4B), pointer :: idisp => null() ! flag indicating mechanical dispersion is active

◆ inewton

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::inewton => null()
privateinherited

Definition at line 40 of file NumericalPackage.f90.

40  integer(I4B), pointer :: inewton => null() !< newton flag

◆ input_fname

character(len=linelength), pointer numericalpackagemodule::numericalpackagetype::input_fname => null()
privateinherited

Definition at line 32 of file NumericalPackage.f90.

32  character(len=LINELENGTH), pointer :: input_fname => null() !< input file name

◆ input_mempath

character(len=lenmempath) numericalpackagemodule::numericalpackagetype::input_mempath = ''
privateinherited

Definition at line 31 of file NumericalPackage.f90.

31  character(len=LENMEMPATH) :: input_mempath = '' !< input context mempath

◆ inunit

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::inunit => null()
privateinherited

Definition at line 38 of file NumericalPackage.f90.

38  integer(I4B), pointer :: inunit => null() !< unit number for input file

◆ ionper

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::ionper => null()
privateinherited

Definition at line 45 of file NumericalPackage.f90.

45  integer(I4B), pointer :: ionper => null() !< stress period for next data

◆ iout

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::iout => null()
privateinherited

Definition at line 39 of file NumericalPackage.f90.

39  integer(I4B), pointer :: iout => null() !< unit number for writing package output

◆ ipakcb

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::ipakcb => null()
privateinherited

Definition at line 44 of file NumericalPackage.f90.

44  integer(I4B), pointer :: ipakcb => null() !< output flows (-1, 0, 1) - save_flows

◆ iprflow

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::iprflow => null()
privateinherited

Definition at line 43 of file NumericalPackage.f90.

43  integer(I4B), pointer :: iprflow => null() !< flag to print simulated flows

◆ iprpak

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::iprpak => null()
privateinherited

Definition at line 42 of file NumericalPackage.f90.

42  integer(I4B), pointer :: iprpak => null() !< integer flag to echo input

◆ ixt3d

integer(i4b), pointer gwtdspmodule::gwtdsptype::ixt3d => null()
private

Definition at line 37 of file gwt-dsp.f90.

37  integer(I4B), pointer :: ixt3d => null() ! flag indicating xt3d is active

◆ ixt3doff

integer(i4b), pointer gwtdspmodule::gwtdsptype::ixt3doff => null()
private

Definition at line 35 of file gwt-dsp.f90.

35  integer(I4B), pointer :: ixt3doff => null() ! xt3d off flag, xt3d is set inactive if 1

◆ ixt3drhs

integer(i4b), pointer gwtdspmodule::gwtdsptype::ixt3drhs => null()
private

Definition at line 36 of file gwt-dsp.f90.

36  integer(I4B), pointer :: ixt3drhs => null() ! xt3d rhs flag, xt3d rhs is set active if 1

◆ lastonper

integer(i4b), pointer numericalpackagemodule::numericalpackagetype::lastonper => null()
privateinherited

Definition at line 46 of file NumericalPackage.f90.

46  integer(I4B), pointer :: lastonper => null() !< last value of ionper (for checking)

◆ memorypath

character(len=lenmempath) numericalpackagemodule::numericalpackagetype::memorypath = ''
privateinherited

Definition at line 28 of file NumericalPackage.f90.

28  character(len=LENMEMPATH) :: memoryPath = '' !< the location in the memory manager where the variables are stored

◆ memorypathmodel

character(len=lenmempath) numericalpackagemodule::numericalpackagetype::memorypathmodel = ''
privateinherited

Definition at line 29 of file NumericalPackage.f90.

29  character(len=LENMEMPATH) :: memoryPathModel = '' !< the location in the memory manager where the variables

◆ name_model

character(len=lenmodelname) numericalpackagemodule::numericalpackagetype::name_model = ''
privateinherited

Definition at line 26 of file NumericalPackage.f90.

26  character(len=LENMODELNAME) :: name_model = '' !< the name of the model that contains this package

◆ package_type

character(len=lenftype), pointer numericalpackagemodule::numericalpackagetype::package_type => null()
privateinherited

Definition at line 34 of file NumericalPackage.f90.

34  character(len=LENFTYPE), pointer :: package_type => null() !< package type (same as filtyp) stored in memory manager

◆ packname

character(len=lenpackagename) numericalpackagemodule::numericalpackagetype::packname = ''
privateinherited

Definition at line 27 of file NumericalPackage.f90.

27  character(len=LENPACKAGENAME) :: packName = '' !< name of the package

◆ parser

type(blockparsertype) numericalpackagemodule::numericalpackagetype::parser
privateinherited

Definition at line 49 of file NumericalPackage.f90.

49  type(BlockParserType) :: parser !< parser object for reading blocks of information

◆ thetam

real(dp), dimension(:), pointer, contiguous gwtdspmodule::gwtdsptype::thetam => null()
private

Definition at line 21 of file gwt-dsp.f90.

21  real(DP), dimension(:), pointer, contiguous :: thetam => null() ! pointer to GWT storage porosity (voids per aquifer volume)

◆ xt3d

type(xt3dtype), pointer gwtdspmodule::gwtdsptype::xt3d => null()
private

Definition at line 38 of file gwt-dsp.f90.

38  type(Xt3dType), pointer :: xt3d => null() ! xt3d object
The documentation for this type was generated from the following file: