scale_atmos_phy_sf Module Reference

module ATMOSPHERE / Physics Surface fluxes More...

Functions/Subroutines
subroutine, public	atmos_phy_sf_setup (SF_TYPE)

Variables
procedure(sf), pointer, public	atmos_phy_sf => NULL()

Detailed Description

module ATMOSPHERE / Physics Surface fluxes

Description

Flux from/to bottom wall of atmosphere (surface)

Author

Team SCALE

History

• 2013-12-05 (S.Nishizawa) [new]
• 2014-04-11 (A.Noda) [mod] add the grayzone module
• 2014-05-01 (Y.Sato) [mod] move grayzone module to mod_user

Function/Subroutine Documentation

atmos_phy_sf_setup()

subroutine, public scale_atmos_phy_sf::atmos_phy_sf_setup

(

character(len=*), intent(in)

SF_TYPE

)

Definition at line 105 of file scale_atmos_phy_sf.F90.

References atmos_phy_sf, scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk(), scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk_setup(), scale_atmos_phy_sf_const::atmos_phy_sf_const(), scale_atmos_phy_sf_const::atmos_phy_sf_const_setup(), and scale_process::prc_mpistop().

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_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 SF
    use name(scale_atmos_phy_, sf,), only: &
       name(atmos_phy_, sf, _setup), &
       name(atmos_phy_, sf,)
#else
    use scale_atmos_phy_sf_const, only: &
       atmos_phy_sf_const_setup, &
       atmos_phy_sf_const
    use scale_atmos_phy_sf_bulk, only: &
       atmos_phy_sf_bulk_setup, &
       atmos_phy_sf_bulk
#endif
    implicit none

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

    select case( sf_type )
    case('CONST')
       call atmos_phy_sf_const_setup( sf_type )
       atmos_phy_sf => atmos_phy_sf_const
    case('BULK')
       call atmos_phy_sf_bulk_setup( sf_type )
       atmos_phy_sf => atmos_phy_sf_bulk
    case('OFF', 'COUPLE')
       ! do nothing
    case default
       write(*,*) 'xxx ATMPS_PHY_SF_TYPE is invalid'
       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_sf

procedure(sf), pointer, public scale_atmos_phy_sf::atmos_phy_sf => NULL()

Definition at line 96 of file scale_atmos_phy_sf.F90.

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver(), and atmos_phy_sf_setup().

  procedure(sf), pointer :: atmos_phy_sf => null()