IGradient.f90

Go to the documentation of this file.

module igradient
  use kindmodule, only: dp, i4b
 
  implicit none
  private
 
  public :: igradienttype
 
  !> @brief Abstract interface for cell-based gradient computation.
  !!
  !! This module defines the abstract type `IGradientType`, which provides a deferred
  !! interface for computing the gradient of a scalar field at a given cell.
  !! Any concrete gradient implementation must extend this type and implement the `get` method.
  !<
  type, abstract :: igradienttype
  contains
    procedure(get_if), deferred :: get
    procedure(set_field_if), deferred :: set_field
  end type igradienttype
 
  abstract interface
 
    function get_if(this, n) result(grad_c)
      ! -- import
      import igradienttype
      import dp, i4b
      ! -- dummy
      class(igradienttype), target :: this
      integer(I4B), intent(in) :: n
      !-- return
      real(dp), dimension(3) :: grad_c
    end function
 
    subroutine set_field_if(this, phi)
      ! -- import
      import igradienttype
      import dp, i4b
      ! -- dummy
      class(igradienttype), target :: this
      real(DP), dimension(:), pointer, intent(in) :: phi
    end subroutine
 
  end interface
 
contains
 
end module igradient