scale_atmos_dyn_tstep_large Module Reference

module Atmosphere / Dynamical scheme More...

Functions/Subroutines
subroutine, public	atmos_dyn_tstep_large_setup (Tstep_large_type, DENS, MOMZ, MOMX, MOMY, RHOT, QTRC, PROG, mflx_hi)
	Register. More...

Variables
procedure(large), pointer, public	atmos_dyn_tstep_large => NULL()

Detailed Description

module Atmosphere / Dynamical scheme

Description

Dynamical scheme selecter for dynamical large time step

Author

Team SCALE

History

• 2016-04-18 (S.Nishizawa) [new]

Function/Subroutine Documentation

atmos_dyn_tstep_large_setup()

subroutine, public scale_atmos_dyn_tstep_large::atmos_dyn_tstep_large_setup	(	character(len=*), intent(in)	Tstep_large_type,
		real(rp), dimension(ka,ia,ja), intent(inout)	DENS,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMZ,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMX,
		real(rp), dimension(ka,ia,ja), intent(inout)	MOMY,
		real(rp), dimension(ka,ia,ja), intent(inout)	RHOT,
		real(rp), dimension(ka,ia,ja,qa), intent(inout)	QTRC,
		real(rp), dimension(ka,ia,ja,va), intent(inout)	PROG,
		real(rp), dimension(ka,ia,ja,3), intent(inout)	mflx_hi
	)

Register.

Definition at line 197 of file scale_atmos_dyn_tstep_large.F90.

References atmos_dyn_tstep_large, scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), and scale_process::prc_mpistop().

Referenced by scale_atmos_dyn::atmos_dyn_setup().

    use scale_precision
    use scale_grid_index
    use scale_index
    use scale_process, only: &
       prc_mpistop
    use scale_atmos_dyn_tstep_large_fvm_heve, only: &
       atmos_dyn_tstep_large_fvm_heve_setup, &
       atmos_dyn_tstep_large_fvm_heve
    implicit none
    character(len=*), intent(in) :: Tstep_large_type
    real(RP), intent(inout) :: DENS(KA,IA,JA)
    real(RP), intent(inout) :: MOMZ(KA,IA,JA)
    real(RP), intent(inout) :: MOMX(KA,IA,JA)
    real(RP), intent(inout) :: MOMY(KA,IA,JA)
    real(RP), intent(inout) :: RHOT(KA,IA,JA)
    real(RP), intent(inout) :: QTRC(KA,IA,JA,QA)
    real(RP), intent(inout) :: PROG(KA,IA,JA,VA)
    real(RP), intent(inout) :: mflx_hi(KA,IA,JA,3)

    !---------------------------------------------------------------------------

    select case( tstep_large_type )
    case( 'FVM-HEVE' )
       call atmos_dyn_tstep_large_fvm_heve_setup( &
            dens, momz, momx, momy, rhot, qtrc, prog, &
            mflx_hi )
       atmos_dyn_tstep_large => atmos_dyn_tstep_large_fvm_heve
    case default
       write(*,*) 'xxx ATMOS_DYN_Tstep_large_type is invalid: ', tstep_large_type
       call prc_mpistop
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

atmos_dyn_tstep_large

procedure(large), pointer, public scale_atmos_dyn_tstep_large::atmos_dyn_tstep_large => NULL()

Definition at line 174 of file scale_atmos_dyn_tstep_large.F90.

Referenced by scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), and atmos_dyn_tstep_large_setup().

  procedure(large), pointer :: ATMOS_DYN_Tstep_large => null()