scale_atm_dyn_dgm_driver_base.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!> module FElib / Fluid dyn solver / Atmosphere / driver (base)
!!
!! @par Description
!!      Driver module for dynamical core based on DGM 
!!
!! @author Yuta Kawai, Team SCALE
!<
!-------------------------------------------------------------------------------
#include "scaleFElib.h"
module scale_atm_dyn_dgm_driver_base
  !-----------------------------------------------------------------------------
  !
  !++ Used modules
  !
  use scale_precision
  use scale_io
  use scale_prc
  use scale_prof
 
  use scale_timeint_rk, only: timeint_rk
  use scale_mesh_base3d, only: meshbase3d
  use scale_localmesh_base, only: localmeshbase
  use scale_localmesh_3d, only: localmesh3d
  use scale_element_base, only: elementbase3d
 
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public type & procedure
  !
  type, public :: atmdyndgmdriver_base
    integer :: progvar_num                   !< Number of prognostic variables
    type(timeint_rk), allocatable :: tint(:) !< Objects with temporal scheme
  end type atmdyndgmdriver_base
 
  type, extends(atmdyndgmdriver_base), public :: atmdyndgmdriver_base3d
  end type atmdyndgmdriver_base3d
 
  public :: atmdyndgmdriver_base3d_init
  public :: atmdyndgmdriver_base3d_final
 
  !-----------------------------------------------------------------------------
  !
  !++ Public procedures
  !
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  
  !-----------------------------------------------------------------------------
  !
  !++ Private procedures & variables
  !
  !-------------------
 
  private :: atmdyndgmdriver_base_init
  private :: atmdyndgmdriver_base_final
 
contains
  subroutine atmdyndgmdriver_base_init( this, &
    PRGVAR_NUM, LOCAL_MESH_NUM )
    implicit none
 
    class(AtmDynDGMDriver_base), intent(inout) :: this
    integer, intent(in) :: PRGVAR_NUM
    integer, intent(in) :: LOCAL_MESH_NUM
    !-----------------------------------------------------------------------------
 
    this%PROGVAR_NUM = prgvar_num
    allocate( this%tint(local_mesh_num) )
 
    return
  end subroutine atmdyndgmdriver_base_init
 
  subroutine atmdyndgmdriver_base_final( this  )
    implicit none
 
    class(AtmDynDGMDriver_base), intent(inout) :: this
    !-----------------------------------------------------------------------------
 
    deallocate( this%tint )
 
    return
  end subroutine atmdyndgmdriver_base_final
 
!-- 3D
 
  subroutine atmdyndgmdriver_base3d_init( this, &
    prgvar_num,                                 &
    tint_type, dtsec,                           &
    mesh )
    implicit none
 
    class(atmdyndgmdriver_base3d), intent(inout) :: this
    integer, intent(in) :: prgvar_num 
    character(len=*), intent(in) :: tint_type
    real(dp), intent(in) :: dtsec
    class(meshbase3d), intent(in), target :: mesh
 
    class(localmesh3d), pointer :: lcmesh
    integer :: n
    !-----------------------------------------------------------------------------
 
    call atmdyndgmdriver_base_init( this, prgvar_num, mesh%LOCAL_MESH_NUM )
 
    do n = 1, mesh%LOCAL_MESH_NUM
      lcmesh => mesh%lcmesh_list(n)
 
      call this%tint(n)%Init( tint_type, dtsec, prgvar_num, 2, &
        (/ lcmesh%refElem%Np, lcmesh%NeA /) )
    end do
 
    return
  end subroutine atmdyndgmdriver_base3d_init
 
  subroutine atmdyndgmdriver_base3d_final( this )
    implicit none
 
    class(atmdyndgmdriver_base3d), intent(inout) :: this
 
    integer :: n
    !-----------------------------------------------------------------------------
 
    do n = 1, size(this%tint)
      call this%tint(n)%Final()
    end do
    call atmdyndgmdriver_base_final( this )   
 
    return
  end subroutine atmdyndgmdriver_base3d_final
 
end module scale_atm_dyn_dgm_driver_base