scale_atmos_phy_cp Module Reference

module ATMOSPHERE / Physics Cumulus Parameterization More...

Functions/Subroutines
subroutine, public	atmos_phy_cp_setup (CP_TYPE)
	Setup Cumulus parameterization. More...

Variables
procedure(cp), pointer, public	atmos_phy_cp => NULL()

Detailed Description

module ATMOSPHERE / Physics Cumulus Parameterization

Description

Cumulus convection parameterization

Author

Team SCALE

History

• 2016-06-27 (S.Matsugishi) [new]

Function/Subroutine Documentation

atmos_phy_cp_setup()

subroutine, public scale_atmos_phy_cp::atmos_phy_cp_setup

(

character(len=*), intent(in)

CP_TYPE

)

Setup Cumulus parameterization.

Definition at line 86 of file scale_atmos_phy_cp.F90.

References atmos_phy_cp, scale_atmos_phy_cp_kf::atmos_phy_cp_kf(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_setup(), scale_stdio::io_fid_log, scale_stdio::io_l, and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_cp_driver::atmos_phy_cp_driver_setup().

    use scale_process, only: &
       prc_mpistop
    use scale_atmos_phy_cp_kf, only: &
         atmos_phy_cp_kf_setup, &
         atmos_phy_cp_kf
    implicit none

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

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

    select case( cp_type )
    case('OFF')
       ! do nothing
    case('KF')
       call atmos_phy_cp_kf_setup( cp_type )
       atmos_phy_cp => atmos_phy_cp_kf
    case default
       write(*,*) 'xxx invalid Cumulus parameterization type(', trim(cp_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_cp

procedure(cp), pointer, public scale_atmos_phy_cp::atmos_phy_cp => NULL()

Definition at line 76 of file scale_atmos_phy_cp.F90.

Referenced by mod_atmos_phy_cp_driver::atmos_phy_cp_driver(), and atmos_phy_cp_setup().

  procedure(cp), pointer :: ATMOS_PHY_CP => null()