scale_urban_phy Module Reference

module URBAN / Physics More...

Functions/Subroutines
subroutine, public	urban_phy_setup (URBAN_TYPE, Z0M, Z0H, Z0E)

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,
		real(rp), dimension(ia,ja), intent(out)	Z0M,
		real(rp), dimension(ia,ja), intent(out)	Z0H,
		real(rp), dimension(ia,ja), intent(out)	Z0E
	)

Definition at line 184 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
    real(RP),         intent(out) :: Z0M(IA,JA)
    real(RP),         intent(out) :: Z0H(IA,JA)
    real(RP),         intent(out) :: Z0E(IA,JA)
    !---------------------------------------------------------------------------

    select case( urban_type )
    case( 'SLC' )
       call urban_phy_slc_setup( urban_type,   & ! (in)
                                 z0m, z0h, z0e ) ! (out)
       urban_phy      => urban_phy_slc
    case default
       write(*,*) 'xxx invalid Urban type(', trim(urban_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

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()