MODFLOW 6  version 6.7.0.dev0
USGS Modular Hydrologic Model
gwecndmodule::gwecndtype Type Reference
Inheritance diagram for gwecndmodule::gwecndtype:
Inheritance graph
Collaboration diagram for gwecndmodule::gwecndtype:
Collaboration graph

Private Member Functions

procedure cnd_df
 
procedure cnd_ac
 
procedure cnd_mc
 
procedure cnd_ar
 
procedure cnd_ad
 
procedure cnd_fc
 
procedure cnd_cq
 
procedure cnd_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()
 
type(gweinputdatatype), pointer gwecommon => null()
 pointer to shared gwe data used by multiple packages but set in est More...
 
real(dp), dimension(:), pointer, contiguous porosity => 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()
 
real(dp), dimension(:), pointer, contiguous ktw => null()
 
real(dp), dimension(:), pointer, contiguous kts => 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 iktw => null()
 
integer(i4b), pointer ikts => 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()
 
real(dp), pointer eqnsclfac => null()
 governing equation scale factor; =rhow*cpw for energy More...
 
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 18 of file gwe-cnd.f90.

Member Function/Subroutine Documentation

◆ allocate_arrays()

procedure gwecndmodule::gwecndtype::allocate_arrays
private

Definition at line 68 of file gwe-cnd.f90.

◆ allocate_scalars()

procedure gwecndmodule::gwecndtype::allocate_scalars
private

Definition at line 67 of file gwe-cnd.f90.

◆ calcdispcoef()

procedure, private gwecndmodule::gwecndtype::calcdispcoef
private

Definition at line 74 of file gwe-cnd.f90.

◆ calcdispellipse()

procedure, private gwecndmodule::gwecndtype::calcdispellipse
private

Definition at line 73 of file gwe-cnd.f90.

◆ cnd_ac()

procedure gwecndmodule::gwecndtype::cnd_ac
private

Definition at line 60 of file gwe-cnd.f90.

◆ cnd_ad()

procedure gwecndmodule::gwecndtype::cnd_ad
private

Definition at line 63 of file gwe-cnd.f90.

◆ cnd_ar()

procedure gwecndmodule::gwecndtype::cnd_ar
private

Definition at line 62 of file gwe-cnd.f90.

◆ cnd_cq()

procedure gwecndmodule::gwecndtype::cnd_cq
private

Definition at line 65 of file gwe-cnd.f90.

◆ cnd_da()

procedure gwecndmodule::gwecndtype::cnd_da
private

Definition at line 66 of file gwe-cnd.f90.

◆ cnd_df()

procedure gwecndmodule::gwecndtype::cnd_df
private

Definition at line 59 of file gwe-cnd.f90.

◆ cnd_fc()

procedure gwecndmodule::gwecndtype::cnd_fc
private

Definition at line 64 of file gwe-cnd.f90.

◆ cnd_mc()

procedure gwecndmodule::gwecndtype::cnd_mc
private

Definition at line 61 of file gwe-cnd.f90.

◆ da()

procedure numericalpackagemodule::numericalpackagetype::da
privateinherited

Definition at line 55 of file NumericalPackage.f90.

◆ get_block_data()

procedure numericalpackagemodule::numericalpackagetype::get_block_data
privateinherited

Definition at line 57 of file NumericalPackage.f90.

◆ log_griddata()

procedure, private gwecndmodule::gwecndtype::log_griddata
private

Definition at line 72 of file gwe-cnd.f90.

◆ log_options()

procedure, private gwecndmodule::gwecndtype::log_options
private

Definition at line 71 of file gwe-cnd.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 gwecndmodule::gwecndtype::source_griddata
private

Definition at line 70 of file gwe-cnd.f90.

◆ source_options()

procedure, private gwecndmodule::gwecndtype::source_options
private

Definition at line 69 of file gwe-cnd.f90.

Member Data Documentation

◆ alh

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::alh => null()
private

Definition at line 24 of file gwe-cnd.f90.

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

◆ alv

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::alv => null()
private

Definition at line 25 of file gwe-cnd.f90.

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

◆ angle1

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::angle1 => null()
private

Definition at line 49 of file gwe-cnd.f90.

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

◆ angle2

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::angle2 => null()
private

Definition at line 50 of file gwe-cnd.f90.

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

◆ angle3

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::angle3 => null()
private

Definition at line 51 of file gwe-cnd.f90.

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

◆ ath1

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::ath1 => null()
private

Definition at line 26 of file gwe-cnd.f90.

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

◆ ath2

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::ath2 => null()
private

Definition at line 27 of file gwe-cnd.f90.

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

◆ atv

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::atv => null()
private

Definition at line 28 of file gwe-cnd.f90.

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

◆ d11

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::d11 => null()
private

Definition at line 46 of file gwe-cnd.f90.

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

◆ d22

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::d22 => null()
private

Definition at line 47 of file gwe-cnd.f90.

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

◆ d33

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::d33 => null()
private

Definition at line 48 of file gwe-cnd.f90.

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

◆ 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 gwecndmodule::gwecndtype::dispcoef => null()
private

Definition at line 43 of file gwe-cnd.f90.

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

◆ eqnsclfac

real(dp), pointer gwecndmodule::gwecndtype::eqnsclfac => null()
private

Definition at line 55 of file gwe-cnd.f90.

55  real(DP), pointer :: eqnsclfac => null() !< governing equation scale factor; =rhow*cpw for energy

◆ 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 gwecndmodule::gwecndtype::fmi => null()
private

Definition at line 21 of file gwe-cnd.f90.

21  type(TspFmiType), pointer :: fmi => null() ! pointer to GWE fmi object

◆ gwecommon

type(gweinputdatatype), pointer gwecndmodule::gwecndtype::gwecommon => null()
private

Definition at line 22 of file gwe-cnd.f90.

22  type(GweInputDataType), pointer :: gwecommon => null() !< pointer to shared gwe data used by multiple packages but set in est

◆ ialh

integer(i4b), pointer gwecndmodule::gwecndtype::ialh => null()
private

Definition at line 32 of file gwe-cnd.f90.

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

◆ ialv

integer(i4b), pointer gwecndmodule::gwecndtype::ialv => null()
private

Definition at line 33 of file gwe-cnd.f90.

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

◆ iangle1

integer(i4b), pointer gwecndmodule::gwecndtype::iangle1 => null()
private

Definition at line 52 of file gwe-cnd.f90.

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

◆ iangle2

integer(i4b), pointer gwecndmodule::gwecndtype::iangle2 => null()
private

Definition at line 53 of file gwe-cnd.f90.

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

◆ iangle3

integer(i4b), pointer gwecndmodule::gwecndtype::iangle3 => null()
private

Definition at line 54 of file gwe-cnd.f90.

54  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 gwecndmodule::gwecndtype::iath1 => null()
private

Definition at line 34 of file gwe-cnd.f90.

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

◆ iath2

integer(i4b), pointer gwecndmodule::gwecndtype::iath2 => null()
private

Definition at line 35 of file gwe-cnd.f90.

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

◆ iatv

integer(i4b), pointer gwecndmodule::gwecndtype::iatv => null()
private

Definition at line 36 of file gwe-cnd.f90.

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

◆ ibound

integer(i4b), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::ibound => null()
private

Definition at line 20 of file gwe-cnd.f90.

20  integer(I4B), dimension(:), pointer, contiguous :: ibound => null() ! pointer to GWE 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 gwecndmodule::gwecndtype::id22 => null()
private

Definition at line 44 of file gwe-cnd.f90.

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

◆ id33

integer(i4b), pointer gwecndmodule::gwecndtype::id33 => null()
private

Definition at line 45 of file gwe-cnd.f90.

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

◆ idisp

integer(i4b), pointer gwecndmodule::gwecndtype::idisp => null()
private

Definition at line 31 of file gwe-cnd.f90.

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

◆ ikts

integer(i4b), pointer gwecndmodule::gwecndtype::ikts => null()
private

Definition at line 40 of file gwe-cnd.f90.

40  integer(I4B), pointer :: ikts => null() ! thermal conductivity of aquifer material data flag

◆ iktw

integer(i4b), pointer gwecndmodule::gwecndtype::iktw => null()
private

Definition at line 39 of file gwe-cnd.f90.

39  integer(I4B), pointer :: iktw => null() ! thermal conductivity of water data flag

◆ 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 gwecndmodule::gwecndtype::ixt3d => null()
private

Definition at line 41 of file gwe-cnd.f90.

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

◆ ixt3doff

integer(i4b), pointer gwecndmodule::gwecndtype::ixt3doff => null()
private

Definition at line 37 of file gwe-cnd.f90.

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

◆ ixt3drhs

integer(i4b), pointer gwecndmodule::gwecndtype::ixt3drhs => null()
private

Definition at line 38 of file gwe-cnd.f90.

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

◆ kts

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::kts => null()
private

Definition at line 30 of file gwe-cnd.f90.

30  real(DP), dimension(:), pointer, contiguous :: kts => null() ! thermal conductivity of aquifer material

◆ ktw

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::ktw => null()
private

Definition at line 29 of file gwe-cnd.f90.

29  real(DP), dimension(:), pointer, contiguous :: ktw => null() ! thermal conductivity of water

◆ 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

◆ porosity

real(dp), dimension(:), pointer, contiguous gwecndmodule::gwecndtype::porosity => null()
private

Definition at line 23 of file gwe-cnd.f90.

23  real(DP), dimension(:), pointer, contiguous :: porosity => null() ! pointer to GWE storage porosity

◆ xt3d

type(xt3dtype), pointer gwecndmodule::gwecndtype::xt3d => null()
private

Definition at line 42 of file gwe-cnd.f90.

42  type(Xt3dType), pointer :: xt3d => null() ! xt3d object

The documentation for this type was generated from the following file: