scale_land_phy Module Reference

module LAND / Physics More...

Functions/Subroutines
subroutine, public	land_phy_setup (LAND_TYPE)
	Setup. More...

Variables
procedure(lnd), pointer, public	land_phy => NULL()

Detailed Description

module LAND / Physics

Description

land physics module

Author

Team SCALE

Function/Subroutine Documentation

land_phy_setup()

subroutine, public scale_land_phy::land_phy_setup

(

character(len=*), intent(in)

LAND_TYPE

)

Setup.

Definition at line 83 of file scale_land_phy.F90.

References land_phy, scale_land_phy_matsiro::land_phy_matsiro(), scale_land_phy_matsiro::land_phy_matsiro_setup(), scale_land_phy_slab::land_phy_slab(), scale_land_phy_slab::land_phy_slab_setup(), and scale_process::prc_mpistop().

Referenced by mod_land_phy_driver::land_phy_driver_setup().

    use scale_process, only: &
       prc_mpistop
    use scale_land_phy_slab, only: &
       land_phy_slab_setup, &
       land_phy_slab
    use scale_land_phy_matsiro, only: &
       land_phy_matsiro_setup, &
       land_phy_matsiro
    implicit none

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

    select case ( land_type )
    case ( 'CONST' )
       call land_phy_slab_setup( land_type )
       land_phy => land_phy_slab
    case ( 'SLAB' )
       call land_phy_slab_setup( land_type )
       land_phy => land_phy_slab
    case ( 'MATSIRO' )
       call land_phy_matsiro_setup( land_type )
       land_phy => land_phy_matsiro
    case default
       write(*,*) 'xxx invalid Land type(', trim(land_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

land_phy

procedure(lnd), pointer, public scale_land_phy::land_phy => NULL()

Definition at line 63 of file scale_land_phy.F90.

Referenced by mod_land_phy_driver::land_phy_driver(), and land_phy_setup().

  procedure(lnd), pointer :: land_phy => null()