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 84 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(), and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_cp_driver::atmos_phy_cp_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 CP
     use name(scale_atmos_phy_mp_, cp,), only: &
        name(atmos_phy_cp_, cp, _setup), &
        name(atmos_phy_cp_, cp,), &
 #else
     use scale_atmos_phy_cp_kf, only: &
          atmos_phy_cp_kf_setup, &
          atmos_phy_cp_kf
 #endif
     implicit none
 
     character(len=*), intent(in) :: cp_type
     !------------------------------------------------------------------------------
 
 #ifdef CP
     call name(atmos_phy_cp_, cp, _setup)( cp_type )
     atmos_phy_cp => name(atmos_phy_cp_, cp,)
 #else
     select case ( cp_type )
     case( 'KF' )
        call atmos_phy_cp_kf_setup( cp_type )
        atmos_phy_cp => atmos_phy_cp_kf
     end select
 #endif
 
     return