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_atmos_phy_rd_offline::atmos_phy_rd_offline(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_setup(), scale_stdio::io_fid_log, scale_stdio::io_l, 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
    use scale_atmos_phy_rd_mstrnx, only: &
       atmos_phy_rd_mstrnx_setup, &
       atmos_phy_rd_mstrnx
    use scale_atmos_phy_rd_offline, only: &
       atmos_phy_rd_offline_setup, &
       atmos_phy_rd_offline
    use scale_atmos_phy_rd_mm5sw, only: &
       swinit
    implicit none

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

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

    select case( rd_type )
    case('OFF')
       ! do nothing
    case( 'MSTRNX' )
       call atmos_phy_rd_mstrnx_setup( rd_type )
       atmos_phy_rd => atmos_phy_rd_mstrnx
    case( 'OFFLINE' )
       call atmos_phy_rd_offline_setup( rd_type )
       atmos_phy_rd => atmos_phy_rd_offline
    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()