scale_atm_dyn_dgm_driver_base Module Reference

module FElib / Fluid dyn solver / Atmosphere / driver (base) More...

Data Types
type	atmdyndgmdriver_base
type	atmdyndgmdriver_base3d

Functions/Subroutines
subroutine, public	atmdyndgmdriver_base3d_init (this, prgvar_num, tint_type, dtsec, mesh)
subroutine, public	atmdyndgmdriver_base3d_final (this)

Detailed Description

module FElib / Fluid dyn solver / Atmosphere / driver (base)

Description

Driver module for dynamical core based on DGM

Author

Yuta Kawai, Team SCALE

Function/Subroutine Documentation

atmdyndgmdriver_base3d_init()

subroutine, public scale_atm_dyn_dgm_driver_base::atmdyndgmdriver_base3d_init	(	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 )

Definition at line 92 of file scale_atm_dyn_dgm_driver_base.F90.

    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

atmdyndgmdriver_base3d_final()

subroutine, public scale_atm_dyn_dgm_driver_base::atmdyndgmdriver_base3d_final

(

class(atmdyndgmdriver_base3d), intent(inout)

this

)

Definition at line 120 of file scale_atm_dyn_dgm_driver_base.F90.

    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