scale_atmos_dyn_tinteg_tracer Module Reference

module Atmosphere / Dynamics Temporal integration More...

Functions/Subroutines
subroutine, public	atmos_dyn_tinteg_tracer_setup (ATMOS_DYN_Tinteg_tracer_TYPE)
	Register. More...

Variables
procedure(tinteg), pointer, public	atmos_dyn_tinteg_tracer => NULL()

Detailed Description

module Atmosphere / Dynamics Temporal integration

Description

Temporal integration scheme selecter for dynamical tracer advection

Author

Team SCALE

Function/Subroutine Documentation

atmos_dyn_tinteg_tracer_setup()

subroutine, public scale_atmos_dyn_tinteg_tracer::atmos_dyn_tinteg_tracer_setup

(

character(len=*), intent(in)

ATMOS_DYN_Tinteg_tracer_TYPE

)

Register.

Definition at line 95 of file scale_atmos_dyn_tinteg_tracer.F90.

 
    use scale_precision
    use scale_atmos_grid_cartesc_index
    use scale_index
    use scale_prc, only: &
       prc_abort
    use scale_atmos_dyn_tinteg_tracer_euler, only: &
       atmos_dyn_tinteg_tracer_euler_setup, &
       atmos_dyn_tinteg_tracer_euler
    use scale_atmos_dyn_tinteg_tracer_rk3, only: &
       atmos_dyn_tinteg_tracer_rk3_setup, &
       atmos_dyn_tinteg_tracer_rk3
    use scale_atmos_dyn_tinteg_tracer_linrk, only: &
       atmos_dyn_tinteg_tracer_linrk_setup, &
       atmos_dyn_tinteg_tracer_linrk       
    implicit none
    character(len=*), intent(in)  :: ATMOS_DYN_Tinteg_tracer_TYPE
 
    character(len=H_SHORT) :: Tinteg_type
    !---------------------------------------------------------------------------
 
    
    if (atmos_dyn_tinteg_tracer_type(1:5) == 'LINRK') then
      tinteg_type = 'LINRK'
    else
      tinteg_type = atmos_dyn_tinteg_tracer_type
   end if
 
    select case( tinteg_type )
    case( 'EULER' )
       call atmos_dyn_tinteg_tracer_euler_setup( &
            atmos_dyn_tinteg_tracer_type )
       atmos_dyn_tinteg_tracer => atmos_dyn_tinteg_tracer_euler
    case( 'RK3WS2002' )
       call atmos_dyn_tinteg_tracer_rk3_setup( &
            atmos_dyn_tinteg_tracer_type )
       atmos_dyn_tinteg_tracer => atmos_dyn_tinteg_tracer_rk3
    case( 'LINRK' )
       call atmos_dyn_tinteg_tracer_linrk_setup( &
            atmos_dyn_tinteg_tracer_type )
       atmos_dyn_tinteg_tracer => atmos_dyn_tinteg_tracer_linrk       
    case( 'OFF', 'NONE' )
       ! do nothing
    case default
       log_error("ATMOS_DYN_Tinteg_tracer_setup",*) 'ATMOS_DYN_TINTEG_TRACER_TYPE is invalid: ', atmos_dyn_tinteg_tracer_type
       call prc_abort
    end select
 
    return

References atmos_dyn_tinteg_tracer, scale_atmos_dyn_tinteg_tracer_euler::atmos_dyn_tinteg_tracer_euler(), scale_atmos_dyn_tinteg_tracer_euler::atmos_dyn_tinteg_tracer_euler_setup(), scale_atmos_dyn_tinteg_tracer_linrk::atmos_dyn_tinteg_tracer_linrk(), scale_atmos_dyn_tinteg_tracer_linrk::atmos_dyn_tinteg_tracer_linrk_setup(), scale_atmos_dyn_tinteg_tracer_rk3::atmos_dyn_tinteg_tracer_rk3(), scale_atmos_dyn_tinteg_tracer_rk3::atmos_dyn_tinteg_tracer_rk3_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_tracer

procedure(tinteg), pointer, public scale_atmos_dyn_tinteg_tracer::atmos_dyn_tinteg_tracer => NULL()

Definition at line 74 of file scale_atmos_dyn_tinteg_tracer.F90.

  procedure(tinteg), pointer :: ATMOS_DYN_Tinteg_tracer => null()

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