scale_urban_phy Module Reference

module URBAN / Physics More...

Functions/Subroutines
subroutine, public	urban_phy_setup (URBAN_TYPE)

Variables
procedure(urb), pointer, public	urban_phy => NULL()

Detailed Description

module URBAN / Physics

Description

urban physics module

Author

Team SCALE

History

Function/Subroutine Documentation

urban_phy_setup()

subroutine, public scale_urban_phy::urban_phy_setup

(

character(len=*), intent(in)

URBAN_TYPE

)

Definition at line 180 of file scale_urban_phy.F90.

References scale_process::prc_mpistop(), urban_phy, scale_urban_phy_slc::urban_phy_slc(), and scale_urban_phy_slc::urban_phy_slc_setup().

Referenced by mod_urban_phy_driver::urban_phy_driver_setup().

    use scale_process, only: &
       prc_mpistop
    use scale_urban_phy_slc, only: &
       urban_phy_slc_setup, &
       urban_phy_slc
    implicit none

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

    select case( urban_type )
    case ( 'SLC' )
       call urban_phy_slc_setup( urban_type )
       urban_phy => urban_phy_slc
    case default
       write(*,*) 'xxx invalid Urban type(', trim(urban_type), '). CHECK!'
       call prc_mpistop
    end select

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

urban_phy

procedure(urb), pointer, public scale_urban_phy::urban_phy => NULL()

Definition at line 161 of file scale_urban_phy.F90.

Referenced by mod_urban_phy_driver::urban_phy_driver(), and urban_phy_setup().

  procedure(urb), pointer :: urban_phy => null()