scale_atmos_dyn_tstep_short Module Reference

module Atmosphere / Dynamical scheme More...

Functions/Subroutines
subroutine, public	atmos_dyn_tstep_short_regist (ATMOS_DYN_TYPE, VA_out, VAR_NAME, VAR_DESC, VAR_UNIT)
	Register. More...

Variables
procedure(short_setup), pointer, public	atmos_dyn_tstep_short_setup => NULL()
procedure(short), pointer, public	atmos_dyn_tstep_short => NULL()

Detailed Description

module Atmosphere / Dynamical scheme

Description

Dynamical scheme selecter for dynamical short time step

Author

Team SCALE

History

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

Function/Subroutine Documentation

atmos_dyn_tstep_short_regist()

subroutine, public scale_atmos_dyn_tstep_short::atmos_dyn_tstep_short_regist	(	character(len=*), intent(in)	ATMOS_DYN_TYPE,
		integer, intent(out)	VA_out,
		character(len=h_short), dimension(:), intent(out)	VAR_NAME,
		character(len=h_mid), dimension(:), intent(out)	VAR_DESC,
		character(len=h_short), dimension(:), intent(out)	VAR_UNIT
	)

Register.

Parameters

[out]	va_out	number of prognostic variables
[out]	var_name	name of the variables
[out]	var_desc	desc. of the variables
[out]	var_unit	unit of the variables

Definition at line 159 of file scale_atmos_dyn_tstep_short.F90.

References atmos_dyn_tstep_short, scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve_regist(), scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve_setup(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi_regist(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi_setup(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi_regist(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi_setup(), atmos_dyn_tstep_short_setup, scale_stdio::io_fid_log, scale_stdio::io_l, and scale_process::prc_mpistop().

Referenced by mod_atmos_dyn_vars::atmos_dyn_vars_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 DYNAMICS
    use name(scale_atmos_dyn_tstep_, dynamics,), only: &
       name(atmos_dyn_rk_tstep_short_, dynamics, _regist), &
       name(atmos_dyn_rk_tstep_short_, dynamics, _setup), &
       name(atmos_dyn_rk_tstep_short_, dynamics,)
#else
    use scale_atmos_dyn_tstep_short_fvm_heve, only: &
       atmos_dyn_tstep_short_fvm_heve_regist, &
       atmos_dyn_tstep_short_fvm_heve_setup, &
       atmos_dyn_tstep_short_fvm_heve
    use scale_atmos_dyn_tstep_short_fvm_hevi, only: &
       atmos_dyn_tstep_short_fvm_hevi_regist, &
       atmos_dyn_tstep_short_fvm_hevi_setup, &
       atmos_dyn_tstep_short_fvm_hevi
    use scale_atmos_dyn_tstep_short_fvm_hivi, only: &
       atmos_dyn_tstep_short_fvm_hivi_regist, &
       atmos_dyn_tstep_short_fvm_hivi_setup, &
       atmos_dyn_tstep_short_fvm_hivi
#endif
    implicit none

    character(len=*),       intent(in)  :: atmos_dyn_type
    integer,                intent(out) :: va_out
    character(len=H_SHORT), intent(out) :: var_name(:)
    character(len=H_MID),   intent(out) :: var_desc(:)
    character(len=H_SHORT), intent(out) :: var_unit(:)
    !---------------------------------------------------------------------------

#ifdef DYNAMICS
    name(atmos_dyn_tstep_, dynamics, _regist)( &
            atmos_dyn_type )
    atmos_dyn_tstep_short_ => name(atmos_dyn_tstep_short_, dynamics,)
    atmos_dyn_tstep_short_setup => name(atmos_dyn_tstep_short_, dynamics, _setup)
#else
    select case ( atmos_dyn_type )
    case ( 'FVM-HEVE', 'HEVE' )

       call atmos_dyn_tstep_short_fvm_heve_regist( atmos_dyn_type,              & ! [IN]
                                                   va_out,                      & ! [OUT]
                                                   var_name, var_desc, var_unit ) ! [OUT]

       atmos_dyn_tstep_short_setup => atmos_dyn_tstep_short_fvm_heve_setup
       atmos_dyn_tstep_short       => atmos_dyn_tstep_short_fvm_heve

    case ( 'FVM-HEVI', 'HEVI' )

       call atmos_dyn_tstep_short_fvm_hevi_regist( atmos_dyn_type,              & ! [IN]
                                                   va_out,                      & ! [OUT]
                                                   var_name, var_desc, var_unit ) ! [OUT]

       atmos_dyn_tstep_short_setup => atmos_dyn_tstep_short_fvm_hevi_setup
       atmos_dyn_tstep_short       => atmos_dyn_tstep_short_fvm_hevi

    case ( 'FVM-HIVI', 'HIVI' )

       if( io_l ) write(io_fid_log,*) 'xxx HIVI is temtatively disabled'
       call prc_mpistop

       call atmos_dyn_tstep_short_fvm_hivi_regist( atmos_dyn_type,              & ! [IN]
                                                   va_out,                      & ! [OUT]
                                                   var_name, var_desc, var_unit ) ! [OUT]

       atmos_dyn_tstep_short_setup => atmos_dyn_tstep_short_fvm_hivi_setup
       atmos_dyn_tstep_short       => atmos_dyn_tstep_short_fvm_hivi

    case ( 'OFF', 'NONE' )

       va_out      = 0
       var_name(:) = ""
       var_desc(:) = ""
       var_unit(:) = ""

    case default
       write(*,*) 'xxx ATMOS_DYN_TYPE is invalid: ', atmos_dyn_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_tstep_short_setup

procedure(short_setup), pointer, public scale_atmos_dyn_tstep_short::atmos_dyn_tstep_short_setup => NULL()

Definition at line 134 of file scale_atmos_dyn_tstep_short.F90.

Referenced by scale_atmos_dyn::atmos_dyn_setup(), and atmos_dyn_tstep_short_regist().

  procedure(short_setup), pointer :: atmos_dyn_tstep_short_setup => null()

atmos_dyn_tstep_short

procedure(short), pointer, public scale_atmos_dyn_tstep_short::atmos_dyn_tstep_short => NULL()

Definition at line 136 of file scale_atmos_dyn_tstep_short.F90.

Referenced by scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4(), and atmos_dyn_tstep_short_regist().

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