scale_atmos_phy_tb Module Reference

module ATMOSPHERE / Physics Turbulence More...

Functions/Subroutines
subroutine, public	atmos_phy_tb_setup (TB_TYPE, CDZ, CDX, CDY, CZ)

Variables
procedure(tb), pointer, public	atmos_phy_tb => NULL()

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_setup()

subroutine, public scale_atmos_phy_tb::atmos_phy_tb_setup	(	character(len=*), intent(in)	TB_TYPE,
		real(rp), dimension(ka), intent(in)	CDZ,
		real(rp), dimension(ia), intent(in)	CDX,
		real(rp), dimension(ja), intent(in)	CDY,
		real(rp), dimension (ka,ia,ja), intent(in)	CZ
	)

Definition at line 103 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_setup(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns_setup(), scale_atmos_phy_tb_dummy::atmos_phy_tb_dummy(), scale_atmos_phy_tb_dummy::atmos_phy_tb_dummy_setup(), scale_atmos_phy_tb_hybrid::atmos_phy_tb_hybrid(), 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_setup(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg_setup(), and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_tb_driver::atmos_phy_tb_driver_setup().

    use scale_process, only: &
       prc_mpistop
#define EXTM(pre, name, post) pre ## name ## post
#define NAME(pre, name, post) EXTM(pre, name, post)
#ifdef TB
    use name(scale_atmos_phy_tb_, tb,), only: &
       name(atmos_phy_tb_, tb, _setup), &
       name(atmos_phy_tb_, tb,)
#else
    use scale_atmos_phy_tb_smg, only: &
       atmos_phy_tb_smg_setup, &
       atmos_phy_tb_smg
    use scale_atmos_phy_tb_d1980, only: &
       atmos_phy_tb_d1980_setup, &
       atmos_phy_tb_d1980
    use scale_atmos_phy_tb_dns, only: &
       atmos_phy_tb_dns_setup, &
       atmos_phy_tb_dns
    use scale_atmos_phy_tb_mynn, only: &
       atmos_phy_tb_mynn_setup, &
       atmos_phy_tb_mynn
    use scale_atmos_phy_tb_hybrid, only: &
       atmos_phy_tb_hybrid_setup, &
       atmos_phy_tb_hybrid
    use scale_atmos_phy_tb_dummy, only: &
       atmos_phy_tb_dummy_setup, &
       atmos_phy_tb_dummy
#endif
    implicit none

    character(len=*), intent(in) :: tb_type

    real(RP), intent(in) :: cdz(ka)
    real(RP), intent(in) :: cdx(ia)
    real(RP), intent(in) :: cdy(ja)
    real(RP), intent(in) :: cz (ka,ia,ja)
    !---------------------------------------------------------------------------

#ifdef TB
    call name(atmos_phy_tb_, tb, _setup)( &
              tb_type,       &
              cdz, cdx, cdy, &
              cz             )
    atmos_phy_tb                 => name(atmos_phy_tb_, tb, )
#else
    select case( tb_type )
    case ( 'SMAGORINSKY' )
       call atmos_phy_tb_smg_setup( &
            tb_type,       &
            cdz, cdx, cdy, &
            cz             )
       atmos_phy_tb => atmos_phy_tb_smg

    case ( 'D1980' )
       call atmos_phy_tb_d1980_setup( &
            tb_type,       &
            cdz, cdx, cdy, &
            cz             )
       atmos_phy_tb => atmos_phy_tb_d1980

    case ( 'DNS' )
       call atmos_phy_tb_dns_setup( &
            tb_type,       &
            cdz, cdx, cdy, &
            cz             )
       atmos_phy_tb => atmos_phy_tb_dns

    case ( 'MYNN' )
       call atmos_phy_tb_mynn_setup( &
            tb_type,       &
            cdz, cdx, cdy, &
            cz             )
       atmos_phy_tb => atmos_phy_tb_mynn

    case ('HYBRID')
       call atmos_phy_tb_hybrid_setup( &
            tb_type,       &
            cdz, cdx, cdy, &
            cz             )
       atmos_phy_tb => atmos_phy_tb_hybrid

    case ('OFF')

       ! do nothing

    case default

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

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

Definition at line 93 of file scale_atmos_phy_tb.F90.

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

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