module OCEAN / Physics More...

Functions/Subroutines
subroutine, public	ocean_phy_setup (OCEAN_TYPE)
	Setup. More...

Variables
procedure(ocn), pointer, public	ocean_phy => NULL()

Detailed Description

module OCEAN / Physics

Description: ocean physics module

Author: Team SCALE

Function/Subroutine Documentation

◆ ocean_phy_setup()

subroutine, public scale_ocean_phy::ocean_phy_setup ( character(len=*), intent(in) OCEAN_TYPE )

Setup.

Definition at line 67 of file scale_ocean_phy.F90.

References ocean_phy, scale_ocean_phy_file::ocean_phy_file(), scale_ocean_phy_file::ocean_phy_file_setup(), scale_ocean_phy_slab::ocean_phy_slab(), scale_ocean_phy_slab::ocean_phy_slab_setup(), and scale_process::prc_mpistop().

Referenced by mod_ocean_phy_driver::ocean_phy_driver_setup().

     use scale_process, only: &
        prc_mpistop
     use scale_ocean_phy_slab, only: &
        ocean_phy_slab_setup, &
        ocean_phy_slab
     use scale_ocean_phy_file, only: &
        ocean_phy_file_setup, &
        ocean_phy_file
     implicit none
 
     character(len=*), intent(in) :: ocean_type
     !---------------------------------------------------------------------------
 
     select case ( ocean_type )
     case ( 'CONST' )
        call ocean_phy_slab_setup( ocean_type )
        ocean_phy => ocean_phy_slab
     case ( 'SLAB' )
        call ocean_phy_slab_setup( ocean_type )
        ocean_phy => ocean_phy_slab
     case ( 'FILE' )
        call ocean_phy_file_setup( ocean_type )
        ocean_phy => ocean_phy_file
     case default
        write(*,*) 'xxx invalid Ocean type(', trim(ocean_type), '). CHECK!'
        call prc_mpistop
     end select
 
     return