scale_ocean_phy_const.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module scale_ocean_phy_const
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  use scale_debug
  use scale_grid_index
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: ocean_phy_const_setup
  public :: ocean_phy_const

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine ocean_phy_const_setup( OCEAN_TYPE )
    implicit none

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

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[CONST] / Categ[OCEAN PHY] / Origin[SCALElib]'

    return
  end subroutine ocean_phy_const_setup

  !-----------------------------------------------------------------------------
  subroutine ocean_phy_const( &
       OCEAN_TEMP_t,    &
       OCEAN_TEMP,      &
       OCEAN_SFLX_WH,   &
       OCEAN_SFLX_prec, &
       OCEAN_SFLX_evap, &
       dt               )
    implicit none

    real(RP), intent(out) :: ocean_temp_t   (ia,ja)
    real(RP), intent(in)  :: ocean_temp     (ia,ja)
    real(RP), intent(in)  :: ocean_sflx_wh  (ia,ja)
    real(RP), intent(in)  :: ocean_sflx_prec(ia,ja)
    real(RP), intent(in)  :: ocean_sflx_evap(ia,ja)
    real(DP), intent(in)  :: dt
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*) '*** Ocean physics step: Const'

    ocean_temp_t(:,:) = 0.0_rp

    return
  end subroutine ocean_phy_const

end module scale_ocean_phy_const