scale_atmos_dyn_tinteg_short Module Reference

module Atmosphere / Dynamics Temporal integration More...

Functions/Subroutines
subroutine, public	atmos_dyn_tinteg_short_setup (ATMOS_DYN_Tinteg_short_TYPE)
	Register. More...

Variables
procedure(short), pointer, public	atmos_dyn_tinteg_short => NULL()

Detailed Description

module Atmosphere / Dynamics Temporal integration

Description

Temporal integration scheme selecter for dynamical short time step

Author

Team SCALE

History

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

Function/Subroutine Documentation

atmos_dyn_tinteg_short_setup()

subroutine, public scale_atmos_dyn_tinteg_short::atmos_dyn_tinteg_short_setup

(

character(len=*), intent(in)

ATMOS_DYN_Tinteg_short_TYPE

)

Register.

Definition at line 132 of file scale_atmos_dyn_tinteg_short.F90.

References atmos_dyn_tinteg_short, scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3(), scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3_setup(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4_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
#define EXTM(pre, name, post) pre ## name ## post
#define NAME(pre, name, post) EXTM(pre, name, post)
#ifdef TINTEG_SHORT
    use name(scale_atmos_dyn_tinteg_short_, tinteg_short,), only: &
       name(atmos_dyn_rk_tinteg_short_, tinteg_short, _setup), &
       name(atmos_dyn_rk_tinteg_short_, tinteg_short,)
#else
    use scale_atmos_dyn_tinteg_short_rk3, only: &
       atmos_dyn_tinteg_short_rk3_setup, &
       atmos_dyn_tinteg_short_rk3
    use scale_atmos_dyn_tinteg_short_rk4, only: &
       atmos_dyn_tinteg_short_rk4_setup, &
       atmos_dyn_tinteg_short_rk4
#endif
    implicit none
    character(len=*), intent(in)  :: atmos_dyn_tinteg_short_type
    !---------------------------------------------------------------------------

#ifdef TINTEG_SHORT
    name(atmos_dyn_tinteg_short_, tinteg_short, _setup)( &
            atmos_dyn_tinteg_short_type )
    atmos_dyn_tinteg_short => name(atmos_dyn_tingeg_short_, tinteg_short,)
#else
    select case ( atmos_dyn_tinteg_short_type )
    case ( 'RK3', 'RK3WS2002' )
       call atmos_dyn_tinteg_short_rk3_setup( &
            atmos_dyn_tinteg_short_type )
       atmos_dyn_tinteg_short => atmos_dyn_tinteg_short_rk3
    case ( 'RK4' )
       call atmos_dyn_tinteg_short_rk4_setup( &
            atmos_dyn_tinteg_short_type )
       atmos_dyn_tinteg_short => atmos_dyn_tinteg_short_rk4
    case ( 'OFF', 'NONE' )
       ! do nothing
    case default
       write(*,*) 'xxx ATMOS_DYN_TINTEG_SHORT_TYPE is invalid: ', atmos_dyn_tinteg_short_type
       call prc_mpistop
    end select
#endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

atmos_dyn_tinteg_short

procedure(short), pointer, public scale_atmos_dyn_tinteg_short::atmos_dyn_tinteg_short => NULL()

Definition at line 111 of file scale_atmos_dyn_tinteg_short.F90.

Referenced by atmos_dyn_tinteg_short_setup(), and scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve().

  procedure(short), pointer :: atmos_dyn_tinteg_short => null()