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, ATMOS_DYN_Tstep_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

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,
		character(len=*), intent(in)	ATMOS_DYN_Tstep_short_TYPE
	)

Register.

Definition at line 130 of file scale_atmos_dyn_tinteg_short.F90.

 
    use scale_precision
    use scale_atmos_grid_cartesc_index
    use scale_index
    use scale_prc, only: &
       prc_abort
    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
    use scale_atmos_dyn_tinteg_short_rk7s6o, only: &
       atmos_dyn_tinteg_short_rk7s6o_setup, &
       atmos_dyn_tinteg_short_rk7s6o
    use scale_atmos_dyn_tinteg_short_rk11s8o, only: &
       atmos_dyn_tinteg_short_rk11s8o_setup, &
       atmos_dyn_tinteg_short_rk11s8o         
    implicit none
 
    character(len=*), intent(in)  :: ATMOS_DYN_Tinteg_short_TYPE
    character(len=*), intent(in)  :: ATMOS_DYN_Tstep_short_TYPE
    !---------------------------------------------------------------------------
 
    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( 'RK7s6o', 'RK7s6oLawson1967', 'RK7s6oButcher1964' )
       if ( .not. (atmos_dyn_tstep_short_type == 'HEVE' .or. atmos_dyn_tstep_short_type == 'FVM-HEVE') ) then
         log_error("ATMOS_DYN_Tinteg_short_setup",*) "ATMOS_DYN_TINTEG_SHORT_TYPE is now supported only for 'HEVE',", atmos_dyn_tinteg_short_type
       end if 
       call atmos_dyn_tinteg_short_rk7s6o_setup( &
              atmos_dyn_tinteg_short_type )
         atmos_dyn_tinteg_short => atmos_dyn_tinteg_short_rk7s6o
   case( 'RK11s8o', 'RK11s8oCooperVerner1972' )
      if ( .not. (atmos_dyn_tstep_short_type == 'HEVE' .or. atmos_dyn_tstep_short_type == 'FVM-HEVE') ) then
         log_error("ATMOS_DYN_Tinteg_short_setup",*) "ATMOS_DYN_TINTEG_SHORT_TYPE is now supported only for 'HEVE',", atmos_dyn_tinteg_short_type
      end if 
      call atmos_dyn_tinteg_short_rk11s8o_setup( &
               atmos_dyn_tinteg_short_type )
         atmos_dyn_tinteg_short => atmos_dyn_tinteg_short_rk11s8o 
    case( 'OFF', 'NONE' )
       ! do nothing
    case default
       log_error("ATMOS_DYN_Tinteg_short_setup",*) 'ATMOS_DYN_TINTEG_SHORT_TYPE is invalid: ', atmos_dyn_tinteg_short_type
       call prc_abort
    end select
 
    return

References atmos_dyn_tinteg_short, scale_atmos_dyn_tinteg_short_rk11s8o::atmos_dyn_tinteg_short_rk11s8o(), scale_atmos_dyn_tinteg_short_rk11s8o::atmos_dyn_tinteg_short_rk11s8o_setup(), 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(), scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o(), scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o_setup(), and scale_prc::prc_abort().

Referenced by scale_atmos_dyn::atmos_dyn_setup().

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 109 of file scale_atmos_dyn_tinteg_short.F90.

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

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