localcellextremamodule Module Reference

Data Types
interface	localcellextrematype
	Computes and caches local extrema for each cell and its connected neighbors. More...

Functions/Subroutines
type(localcellextrematype) function	constructor (dis)
subroutine	destructor (this)
subroutine	set_field (this, phi)
real(dp) function, pointer	get_min (this, n)
real(dp) function, pointer	get_max (this, n)
subroutine	compute_local_extrema (this, phi)
subroutine	find_local_extrema (this, n, phi, min_phi, max_phi)

Function/Subroutine Documentation

compute_local_extrema()

subroutine localcellextremamodule::compute_local_extrema ( class(localcellextrematype), target  this, real(dp), dimension(:), intent(in)  phi  )

private

Definition at line 94 of file LocalCellExtrema.f90.

    ! -- dummy
    class(LocalCellExtremaType), target :: this
    real(DP), intent(in), dimension(:) :: phi
    ! -- local
    integer(I4B) :: n
    real(DP) :: min_phi, max_phi
 
    do n = 1, this%dis%nodes
      call this%find_local_extrema(n, phi, min_phi, max_phi)
      this%min(n) = min_phi
      this%max(n) = max_phi
    end do

constructor()

type(localcellextrematype) function localcellextremamodule::constructor ( class(disbasetype), intent(in), pointer  dis )

private

Definition at line 46 of file LocalCellExtrema.f90.

    ! -- return
    type(LocalCellExtremaType) :: local_extrema
    ! -- dummy
    class(DisBaseType), pointer, intent(in) :: dis
 
    local_extrema%dis => dis
 
    allocate (local_extrema%min(dis%nodes))
    allocate (local_extrema%max(dis%nodes))

Here is the caller graph for this function:

destructor()

subroutine localcellextremamodule::destructor ( type(localcellextrematype), intent(inout)  this )

private

Definition at line 58 of file LocalCellExtrema.f90.

    ! -- dummy
    type(LocalCellExtremaType), intent(inout) :: this
 
    deallocate (this%min)
    deallocate (this%max)

Here is the caller graph for this function:

find_local_extrema()

subroutine localcellextremamodule::find_local_extrema ( class(localcellextrematype), target  this, integer(i4b), intent(in)  n, real(dp), dimension(:), intent(in)  phi, real(dp), intent(out)  min_phi, real(dp), intent(out)  max_phi  )

private

Definition at line 109 of file LocalCellExtrema.f90.

    ! -- dummy
    class(LocalCellExtremaType), target :: this
    integer(I4B), intent(in) :: n
    real(DP), intent(in), dimension(:) :: phi
    real(DP), intent(out) :: min_phi, max_phi
    ! -- local
    integer(I4B) :: ipos, m
 
    min_phi = phi(n)
    max_phi = phi(n)
    do ipos = this%dis%con%ia(n) + 1, this%dis%con%ia(n + 1) - 1
      m = this%dis%con%ja(ipos)
      min_phi = min(min_phi, phi(m))
      max_phi = max(max_phi, phi(m))
    end do

get_max()

real(dp) function, pointer localcellextremamodule::get_max ( class(localcellextrematype), target  this, integer(i4b), intent(in)  n  )

private

Definition at line 84 of file LocalCellExtrema.f90.

    ! -- dummy
    class(LocalCellExtremaType), target :: this
    integer(I4B), intent(in) :: n ! Node index
    !-- return
    real(DP), pointer :: max_val
 
    max_val => this%max(n)

get_min()

real(dp) function, pointer localcellextremamodule::get_min ( class(localcellextrematype), target  this, integer(i4b), intent(in)  n  )

private

Definition at line 74 of file LocalCellExtrema.f90.

    ! -- dummy
    class(LocalCellExtremaType), target :: this
    integer(I4B), intent(in) :: n ! Node index
    !-- return
    real(DP), pointer :: min_val
 
    min_val => this%min(n)

set_field()

subroutine localcellextremamodule::set_field ( class(localcellextrematype), target  this, real(dp), dimension(:), intent(in), pointer  phi  )

private

Definition at line 66 of file LocalCellExtrema.f90.

    ! -- dummy
    class(LocalCellExtremaType), target :: this
    real(DP), intent(in), dimension(:), pointer :: phi
 
    call this%compute_local_extrema(phi)