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

Referenced by mod_atmos_phy_sf_driver::atmos_phy_sf_driver_setup().

    use scale_process, only: &
       prc_mpistop
    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
    implicit none

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

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

    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')
       ! do nothing
    case('COUPLE')
       if( io_l ) write(io_fid_log,*) '*** do nothing here'
    case default
       write(*,*) 'xxx invalid Surface flux type(', trim(sf_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_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()