scale_atmos_phy_rd Module Reference

module ATMOSPHERE / Physics Radiation More...

Functions/Subroutines
subroutine, public	atmos_phy_rd_setup (RD_TYPE)
	Setup. More...

Variables
procedure(rd), pointer, public	atmos_phy_rd => NULL()

Detailed Description

module ATMOSPHERE / Physics Radiation

Description

Atmospheric radiation transfer process wrapper

Author

Team SCALE

History

• 2013-12-06 (S.Nishizawa) [new]

Function/Subroutine Documentation

atmos_phy_rd_setup()

subroutine, public scale_atmos_phy_rd::atmos_phy_rd_setup

(

character(len=*), intent(in)

RD_TYPE

)

Setup.

Definition at line 87 of file scale_atmos_phy_rd.F90.

References atmos_phy_rd, scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), scale_process::prc_mpistop(), and scale_atmos_phy_rd_mm5sw::swinit().

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_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 RD
    use name(scale_atmos_phy_rd_, rd,), only: &
       name(atmos_phy_rd_, rd, _setup), &
       name(atmos_phy_rd_, rd,)
#else
    use scale_atmos_phy_rd_mstrnx, only: &
       atmos_phy_rd_mstrnx_setup, &
       atmos_phy_rd_mstrnx
#endif
    use scale_atmos_phy_rd_mm5sw, only: &
       swinit
    implicit none

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

    select case ( rd_type )
    case ( 'MSTRNX' )
       call atmos_phy_rd_mstrnx_setup( rd_type )
       atmos_phy_rd => atmos_phy_rd_mstrnx
    case ( 'WRF' )
       call atmos_phy_rd_mstrnx_setup( 'MSTRNX' )
       atmos_phy_rd => atmos_phy_rd_mstrnx
       call swinit
    case default
       write(*,*) 'xxx invalid Radiation type(', trim(rd_type), '). CHECK!'
       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_rd

procedure(rd), pointer, public scale_atmos_phy_rd::atmos_phy_rd => NULL()

Definition at line 79 of file scale_atmos_phy_rd.F90.

Referenced by mod_atmos_phy_rd_driver::atmos_phy_rd_driver(), and atmos_phy_rd_setup().

  procedure(rd), pointer :: atmos_phy_rd => null()