scale_land_sfc Module Reference

module LAND / Surface fluxes More...

Functions/Subroutines
subroutine, public	land_sfc_setup (LAND_TYPE)

Variables
procedure(lndsfc), pointer, public	land_sfc => NULL()

Detailed Description

module LAND / Surface fluxes

Description

Land surface flux

Author

Team SCALE

Function/Subroutine Documentation

land_sfc_setup()

subroutine, public scale_land_sfc::land_sfc_setup

(

character(len=*), intent(in)

LAND_TYPE

)

Definition at line 125 of file scale_land_sfc.F90.

References land_sfc, scale_land_sfc_const::land_sfc_const(), scale_land_sfc_const::land_sfc_const_setup(), scale_land_sfc_thick_slab::land_sfc_thick_slab(), scale_land_sfc_thick_slab::land_sfc_thick_slab_setup(), scale_land_sfc_thin_slab::land_sfc_thin_slab(), scale_land_sfc_thin_slab::land_sfc_thin_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_sfc_const, only: &
       land_sfc_const_setup, &
       land_sfc_const
    use scale_land_sfc_thin_slab, only: &
       land_sfc_thin_slab_setup, &
       land_sfc_thin_slab
    use scale_land_sfc_thick_slab, only: &
       land_sfc_thick_slab_setup, &
       land_sfc_thick_slab
    implicit none

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

    select case( land_type )
    case( 'CONST' )
       call land_sfc_const_setup( land_type )
       land_sfc => land_sfc_const
    case( 'SLAB', 'THIN-SLAB' )
       call land_sfc_thin_slab_setup( land_type )
       land_sfc => land_sfc_thin_slab
    case( 'THICK-SLAB' )
       call land_sfc_thick_slab_setup( land_type )
       land_sfc => land_sfc_thick_slab
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

land_sfc

procedure(lndsfc), pointer, public scale_land_sfc::land_sfc => NULL()

Definition at line 106 of file scale_land_sfc.F90.

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

  procedure(lndsfc), pointer :: LAND_SFC => null()