scale_localmesh_1d.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
#include "scaleFElib.h"
module scale_localmesh_1d
 
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_localmesh_base, only: &
    localmeshbase, localmeshbase_init, localmeshbase_final
  use scale_element_base, only: elementbase, elementbase1d
 
  !-----------------------------------------------------------------------------
  implicit none
  private
 
  !-----------------------------------------------------------------------------
  !
  !++ Public type & procedure
  ! 
  type, extends(localmeshbase), public :: localmesh1d
 
    type(elementbase1d), pointer :: refelem1d
    real(rp) :: xmin, xmax 
  end type localmesh1d
 
  public :: localmesh1d_init, localmesh1d_final
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
 
contains
!OCL SERIAL
  subroutine localmesh1d_init( this, &
    lcdomID, refElem, myrank )
    
    implicit none
 
    type(localmesh1d), intent(inout) :: this
    integer, intent(in) :: lcdomid
    class(elementbase1d), intent(in), target :: refelem
    integer, intent(in), optional :: myrank
    !-------------------------------------------------
 
    this%refElem1D => refelem
    call localmeshbase_init(this, lcdomid, refelem, 1, myrank)
 
    return
  end subroutine localmesh1d_init
 
!OCL SERIAL
  subroutine localmesh1d_final( this, is_generated )
    implicit none
 
    type(localmesh1d), intent(inout) :: this
    logical, intent(in) :: is_generated
    !-------------------------------------------------
 
    call localmeshbase_final( this, is_generated )
 
    return
  end subroutine localmesh1d_final
  
end module scale_localmesh_1d