MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
GwfNpfOptions.f90
Go to the documentation of this file.
2  use kindmodule, only: i4b, dp
3  use constantsmodule, only: done
4 
5  implicit none
6  private
7 
8  !> Data structure and helper methods for passing NPF options
9  !! into npf_df, as an alternative to reading those from file
10  !<
11  type, public :: gwfnpfoptionstype
12  integer(I4B) :: icellavg !< same as npf variable
13  integer(I4B) :: ithickstrt !< same as npf variable
14  integer(I4B) :: iperched !< same as npf variable
15  integer(I4B) :: ivarcv !< same as npf variable
16  integer(I4B) :: idewatcv !< same as npf variable
17  integer(I4B) :: irewet !< same as npf variable
18  real(dp) :: wetfct !< same as npf variable
19  integer(I4B) :: iwetit !< same as npf variable
20  integer(I4B) :: ihdwet !< same as npf variable
21  contains
22  procedure, pass(this) :: construct
23  procedure, pass(this) :: destroy
24  end type gwfnpfoptionstype
25 
26 contains
27 
28  !> @brief construct the input options, set variables to their defaults
29  !<
30  subroutine construct(this)
31  class(gwfnpfoptionstype), intent(inout) :: this !< the NPF options, as in the input OPTIONS block
32 
33  this%icellavg = 0
34  this%ithickstrt = 0
35  this%iperched = 0
36  this%ivarcv = 0
37  this%idewatcv = 0
38  this%irewet = 0
39  this%wetfct = done
40  this%iwetit = 1
41  this%ihdwet = 0
42 
43  end subroutine construct
44 
45  !> @brief cleans up
46  !<
47  subroutine destroy(this)
48  class(gwfnpfoptionstype), intent(inout) :: this !< the NPF options, as in the input OPTIONS block
49 
50  ! nothing to be done here for now...
51 
52  end subroutine destroy
53 
54 end module gwfnpfoptionsmodule
This module contains simulation constants.
Definition: Constants.f90:9
real(dp), parameter done
real constant 1
Definition: Constants.f90:75
subroutine destroy(this)
cleans up
subroutine construct(this)
construct the input options, set variables to their defaults
This module defines variable data types.
Definition: kind.f90:8
Data structure and helper methods for passing NPF options into npf_df, as an alternative to reading t...