basegeometrymodule Module Reference

Data Types
type	basegeometrytype

Functions/Subroutines
real(dp) function	area_sat (this)
real(dp) function	perimeter_sat (this)
real(dp) function	area_wet (this, depth)
real(dp) function	perimeter_wet (this, depth)
subroutine	set_attribute (this, line)
subroutine	print_attributes (this, iout)
	Print the attributes for this object. More...

Variables
integer(i4b), parameter	geonamelen = 20

Function/Subroutine Documentation

area_sat()

real(dp) function basegeometrymodule::area_sat ( class(basegeometrytype)  this )

private

Definition at line 28 of file BaseGeometry.f90.

    ! -- return
    real(DP) :: area_sat
    ! -- dummy
    class(BaseGeometryType) :: this
    !
    area_sat = 0.d0

area_wet()

real(dp) function basegeometrymodule::area_wet ( class(basegeometrytype)  this, real(dp), intent(in)  depth  )

private

Definition at line 46 of file BaseGeometry.f90.

    ! -- return
    real(DP) :: area_wet
    ! -- dummy
    class(BaseGeometryType) :: this
    real(DP), intent(in) :: depth
    !
    area_wet = 0.d0

perimeter_sat()

real(dp) function basegeometrymodule::perimeter_sat ( class(basegeometrytype)  this )

private

Definition at line 37 of file BaseGeometry.f90.

    ! -- return
    real(DP) :: perimeter_sat
    ! -- dummy
    class(BaseGeometryType) :: this
    !
    perimeter_sat = 0.d0

perimeter_wet()

real(dp) function basegeometrymodule::perimeter_wet ( class(basegeometrytype)  this, real(dp), intent(in)  depth  )

private

Definition at line 56 of file BaseGeometry.f90.

    ! -- return
    real(DP) :: perimeter_wet
    ! -- dummy
    class(BaseGeometryType) :: this
    real(DP), intent(in) :: depth
    !
    perimeter_wet = 0.d0

print_attributes()

subroutine basegeometrymodule::print_attributes ( class(basegeometrytype)  this, integer(i4b), intent(in)  iout  )

private

Definition at line 74 of file BaseGeometry.f90.

    ! -- dummy
    class(BaseGeometryType) :: this
    ! -- local
    integer(I4B), intent(in) :: iout
    ! -- formats
    character(len=*), parameter :: fmtid = "(4x,a,i0)"
    character(len=*), parameter :: fmtnm = "(4x,a,a)"
    !
    write (iout, fmtid) 'ID = ', this%id
    write (iout, fmtnm) 'NAME = ', trim(adjustl(this%name))
    write (iout, fmtnm) 'GEOMETRY TYPE = ', trim(adjustl(this%geo_type))

set_attribute()

subroutine basegeometrymodule::set_attribute ( class(basegeometrytype)  this, character(len=*), intent(inout)  line  )

private

Definition at line 66 of file BaseGeometry.f90.

    ! -- dummy
    class(BaseGeometryType) :: this
    character(len=*), intent(inout) :: line

Variable Documentation

geonamelen

integer(i4b), parameter basegeometrymodule::geonamelen = 20

private

Definition at line 9 of file BaseGeometry.f90.

  integer(I4B), parameter :: GEONAMELEN = 20