scale_ocean_sfc Module Reference

module OCEAN / Surface fluxes More...

Data Types
interface	alb

Functions/Subroutines
subroutine, public	ocean_sfc_setup (OCEAN_TYPE)

Variables
procedure(ocnsfc), pointer, public	ocean_sfc => NULL()
procedure(alb), pointer, public	ocean_sfc_simplealbedo => NULL()

Detailed Description

module OCEAN / Surface fluxes

Description

Ocean surface flux

Author

Team SCALE

Function/Subroutine Documentation

ocean_sfc_setup()

subroutine, public scale_ocean_sfc::ocean_sfc_setup

(

character(len=*), intent(in)

OCEAN_TYPE

)

Definition at line 136 of file scale_ocean_sfc.F90.

References ocean_sfc, ocean_sfc_simplealbedo, scale_ocean_sfc_slab::ocean_sfc_slab(), scale_ocean_sfc_slab::ocean_sfc_slab_setup(), scale_ocean_sfc_slab::ocean_sfc_slab_simplealbedo(), and scale_process::prc_mpistop().

Referenced by mod_ocean_phy_driver::ocean_phy_driver_setup().

    use scale_process, only: &
       prc_mpistop
    use scale_ocean_sfc_slab, only: &
       ocean_sfc_slab_setup, &
       ocean_sfc_slab,       &
       ocean_sfc_slab_simplealbedo
    implicit none

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

    select case( ocean_type )
    case ( 'CONST', 'FILE' )
       call ocean_sfc_slab_setup( ocean_type )
       ocean_sfc              => ocean_sfc_slab
       ocean_sfc_simplealbedo => ocean_sfc_slab_simplealbedo
    case ( 'SLAB' )
       call ocean_sfc_slab_setup( ocean_type )
       ocean_sfc              => ocean_sfc_slab
       ocean_sfc_simplealbedo => ocean_sfc_slab_simplealbedo
    end select

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

ocean_sfc

procedure(ocnsfc), pointer, public scale_ocean_sfc::ocean_sfc => NULL()

Definition at line 115 of file scale_ocean_sfc.F90.

Referenced by mod_ocean_phy_driver::ocean_phy_driver(), and ocean_sfc_setup().

  procedure(ocnsfc), pointer :: ocean_sfc              => null()

ocean_sfc_simplealbedo

procedure(alb), pointer, public scale_ocean_sfc::ocean_sfc_simplealbedo => NULL()

Definition at line 116 of file scale_ocean_sfc.F90.

Referenced by mod_ocean_phy_driver::ocean_phy_driver(), and ocean_sfc_setup().

  procedure(alb),    pointer :: ocean_sfc_simplealbedo => null()