scale_atmos_phy_tb Module Reference

module ATMOSPHERE / Physics Turbulence More...

Data Types
interface	su

Functions/Subroutines
subroutine, public	atmos_phy_tb_config (TB_TYPE)
	register More...

Variables
procedure(tb), pointer, public	atmos_phy_tb => NULL()
procedure(su), pointer, public	atmos_phy_tb_setup => NULL()
integer, public	i_tke = -1

Detailed Description

module ATMOSPHERE / Physics Turbulence

Description

Sub-grid scale turbulence process

Author

Team SCALE

History

• 2013-12-05 (S.Nishizawa) [new]
• 2014-03-30 (A.Noda) [mod] add DNS

Function/Subroutine Documentation

atmos_phy_tb_config()

subroutine, public scale_atmos_phy_tb::atmos_phy_tb_config

(

character(len=*), intent(in)

TB_TYPE

)

register

Definition at line 121 of file scale_atmos_phy_tb.F90.

References atmos_phy_tb, scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980_config(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980_setup(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns_config(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns_setup(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid_config(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid_setup(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn_config(), scale_atmos_phy_tb_mynn::atmos_phy_tb_mynn_setup(), atmos_phy_tb_setup, scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg_config(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg_setup(), i_tke, scale_stdio::io_fid_log, scale_stdio::io_l, and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_config().

    use scale_process, only: &
       prc_mpistop
    use scale_atmos_phy_tb_smg, only: &
       atmos_phy_tb_smg_config, &
       atmos_phy_tb_smg_setup, &
       atmos_phy_tb_smg
    use scale_atmos_phy_tb_d1980, only: &
       atmos_phy_tb_d1980_config, &
       atmos_phy_tb_d1980_setup, &
       atmos_phy_tb_d1980
    use scale_atmos_phy_tb_dns, only: &
       atmos_phy_tb_dns_config, &
       atmos_phy_tb_dns_setup, &
       atmos_phy_tb_dns
    use scale_atmos_phy_tb_mynn, only: &
       atmos_phy_tb_mynn_config, &
       atmos_phy_tb_mynn_setup, &
       atmos_phy_tb_mynn
    use scale_atmos_phy_tb_hybrid, only: &
       atmos_phy_tb_hybrid_config, &
       atmos_phy_tb_hybrid_setup, &
       atmos_phy_tb_hybrid
    implicit none

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

    if( io_l ) write(io_fid_log,*) '*** => ', trim(tb_type), ' is selected.'

    select case( tb_type )
    case( 'SMAGORINSKY' )

       call atmos_phy_tb_smg_config( tb_type, & ! [IN]
                                     i_tke    ) ! [OUT]

       atmos_phy_tb       => atmos_phy_tb_smg
       atmos_phy_tb_setup => atmos_phy_tb_smg_setup

    case( 'D1980' )

       call atmos_phy_tb_d1980_config( tb_type, & ! [IN]
                                       i_tke    ) ! [OUT]

       atmos_phy_tb       => atmos_phy_tb_d1980
       atmos_phy_tb_setup => atmos_phy_tb_d1980_setup

    case( 'DNS' )

       call atmos_phy_tb_dns_config( tb_type, & ! [IN]
                                     i_tke    ) ! [OUT]

       atmos_phy_tb       => atmos_phy_tb_dns
       atmos_phy_tb_setup => atmos_phy_tb_dns_setup

    case( 'MYNN' )

       call atmos_phy_tb_mynn_config( tb_type, & ! [IN]
                                      i_tke    ) ! [OUT]

       atmos_phy_tb       => atmos_phy_tb_mynn
       atmos_phy_tb_setup => atmos_phy_tb_mynn_setup

    case('HYBRID')

       call atmos_phy_tb_hybrid_config( tb_type, & ! [IN]
                                        i_tke    ) ! [OUT]

       atmos_phy_tb       => atmos_phy_tb_hybrid
       atmos_phy_tb_setup => atmos_phy_tb_hybrid_setup

    case('OFF')

       ! do nothing

    case default

       write(*,*) 'xxx ATMOS_PHY_TB_TYPE is invalid: ', tb_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_phy_tb

procedure(tb), pointer, public scale_atmos_phy_tb::atmos_phy_tb => NULL()

Definition at line 94 of file scale_atmos_phy_tb.F90.

Referenced by atmos_phy_tb_config(), and mod_atmos_phy_tb_driver::atmos_phy_tb_driver().

  procedure(tb), pointer :: ATMOS_PHY_TB       => null()

atmos_phy_tb_setup

procedure(su), pointer, public scale_atmos_phy_tb::atmos_phy_tb_setup => NULL()

Definition at line 96 of file scale_atmos_phy_tb.F90.

Referenced by atmos_phy_tb_config(), and mod_atmos_phy_tb_driver::atmos_phy_tb_driver_setup().

  procedure(su), pointer :: ATMOS_PHY_TB_setup => null()

i_tke

integer, public scale_atmos_phy_tb::i_tke = -1

Definition at line 106 of file scale_atmos_phy_tb.F90.

Referenced by atmos_phy_tb_config(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver(), and mod_mkinit::tke_setup().

  integer, public :: I_TKE = -1