scale_atmos_dyn_tstep_tracer Module Reference

module Atmosphere / Dynamical scheme More...

Functions/Subroutines
subroutine, public	atmos_dyn_tstep_tracer_setup (ATMOS_DYN_TSTEP_TRACER_TYPE)
	Register. More...

Variables
procedure(step), pointer, public	atmos_dyn_tstep_tracer => NULL()

Detailed Description

module Atmosphere / Dynamical scheme

Description

Dynamical scheme selecter for dynamical tracer advection

Author

Team SCALE

Function/Subroutine Documentation

atmos_dyn_tstep_tracer_setup()

subroutine, public scale_atmos_dyn_tstep_tracer::atmos_dyn_tstep_tracer_setup

(

character(len=*), intent(in)

ATMOS_DYN_TSTEP_TRACER_TYPE

)

Register.

Definition at line 89 of file scale_atmos_dyn_tstep_tracer.F90.

References atmos_dyn_tstep_tracer, scale_atmos_dyn_tstep_tracer_fvm_heve::atmos_dyn_tstep_tracer_fvm_heve(), scale_atmos_dyn_tstep_tracer_fvm_heve::atmos_dyn_tstep_tracer_fvm_heve_setup(), and scale_prc::prc_abort().

Referenced by scale_atmos_dyn::atmos_dyn_setup().

    use scale_precision
    use scale_atmos_grid_cartesc_index
    use scale_index
    use scale_prc, only: &
       prc_abort
    use scale_atmos_dyn_tstep_tracer_fvm_heve, only: &
       atmos_dyn_tstep_tracer_fvm_heve_setup, &
       atmos_dyn_tstep_tracer_fvm_heve
    implicit none
    character(len=*),       intent(in)  :: atmos_dyn_tstep_tracer_type
    !---------------------------------------------------------------------------

    select case( atmos_dyn_tstep_tracer_type )
    case( 'FVM-HEVE', 'HEVE' )
       call atmos_dyn_tstep_tracer_fvm_heve_setup( &
            atmos_dyn_tstep_tracer_type )
       atmos_dyn_tstep_tracer => atmos_dyn_tstep_tracer_fvm_heve       
    case default
       log_error("ATMOS_DYN_Tstep_tracer_setup",*) 'ATMOS_DYN_TSTEP_TRACER_TYPE is invalid: ', atmos_dyn_tstep_tracer_type
       call prc_abort
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

atmos_dyn_tstep_tracer

procedure(step), pointer, public scale_atmos_dyn_tstep_tracer::atmos_dyn_tstep_tracer => NULL()

Definition at line 68 of file scale_atmos_dyn_tstep_tracer.F90.

Referenced by scale_atmos_dyn_tinteg_tracer_euler::atmos_dyn_tinteg_tracer_euler(), scale_atmos_dyn_tinteg_tracer_rk3::atmos_dyn_tinteg_tracer_rk3(), and atmos_dyn_tstep_tracer_setup().

  procedure(step), pointer :: atmos_dyn_tstep_tracer => null()