scale_atmos_dyn_tinteg_large Module Reference

module Atmosphere / Dynamics Temporal integration More...

Functions/Subroutines
subroutine, public	atmos_dyn_tinteg_large_setup (ATMOS_DYN_Tinteg_large_TYPE)
	Register. More...

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

Detailed Description

module Atmosphere / Dynamics Temporal integration

Description

Temporal integration scheme selecter for dynamical large time step

Author

Team SCALE

History

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

Function/Subroutine Documentation

atmos_dyn_tinteg_large_setup()

subroutine, public scale_atmos_dyn_tinteg_large::atmos_dyn_tinteg_large_setup

(

character(len=*), intent(in)

ATMOS_DYN_Tinteg_large_TYPE

)

Register.

Definition at line 183 of file scale_atmos_dyn_tinteg_large.F90.

References atmos_dyn_tinteg_large, scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler(), scale_atmos_dyn_tinteg_large_euler::atmos_dyn_tinteg_large_euler_setup(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3_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_tinteg_large_euler, only: &
       atmos_dyn_tinteg_large_euler_setup, &
       atmos_dyn_tinteg_large_euler
    use scale_atmos_dyn_tinteg_large_rk3, only: &
       atmos_dyn_tinteg_large_rk3_setup, &
       atmos_dyn_tinteg_large_rk3
    implicit none

    character(len=*), intent(in)  :: ATMOS_DYN_Tinteg_large_TYPE
    !---------------------------------------------------------------------------

    select case( atmos_dyn_tinteg_large_type )
    case( 'EULER' )
       call atmos_dyn_tinteg_large_euler_setup( &
            atmos_dyn_tinteg_large_type )
       atmos_dyn_tinteg_large => atmos_dyn_tinteg_large_euler
    case( 'RK3' )
       call atmos_dyn_tinteg_large_rk3_setup( &
            atmos_dyn_tinteg_large_type )
       atmos_dyn_tinteg_large => atmos_dyn_tinteg_large_rk3
    case( 'OFF', 'NONE' )
       ! do nothing
    case default
       write(*,*) 'xxx ATMOS_DYN_TINTEG_LARGE_TYPE is invalid: ', atmos_dyn_tinteg_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_tinteg_large

procedure(large), pointer, public scale_atmos_dyn_tinteg_large::atmos_dyn_tinteg_large => NULL()

Definition at line 162 of file scale_atmos_dyn_tinteg_large.F90.

Referenced by scale_atmos_dyn::atmos_dyn(), and atmos_dyn_tinteg_large_setup().

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