SCALE-RM
Functions/Subroutines
scale_ocean_phy_const Module Reference

module OCEAN / Physics Constant model More...

Functions/Subroutines

subroutine, public ocean_phy_const_setup (OCEAN_TYPE)
 Setup. More...
 
subroutine, public ocean_phy_const (OCEAN_TEMP_t, OCEAN_TEMP, OCEAN_SFLX_WH, OCEAN_SFLX_prec, OCEAN_SFLX_evap, dt)
 Slab ocean model. More...
 

Detailed Description

module OCEAN / Physics Constant model

Description
ocean physics module, constant model
Author
Team SCALE

Function/Subroutine Documentation

◆ ocean_phy_const_setup()

subroutine, public scale_ocean_phy_const::ocean_phy_const_setup ( character(len=*), intent(in)  OCEAN_TYPE)

Setup.

Definition at line 48 of file scale_ocean_phy_const.F90.

References scale_stdio::io_fid_log, and scale_stdio::io_l.

Referenced by scale_ocean_phy::ocean_phy_setup().

48  implicit none
49 
50  character(len=*), intent(in) :: OCEAN_TYPE
51  !---------------------------------------------------------------------------
52 
53  if( io_l ) write(io_fid_log,*)
54  if( io_l ) write(io_fid_log,*) '++++++ Module[CONST] / Categ[OCEAN PHY] / Origin[SCALElib]'
55 
56  return
Here is the caller graph for this function:

◆ ocean_phy_const()

subroutine, public scale_ocean_phy_const::ocean_phy_const ( real(rp), dimension (ia,ja), intent(out)  OCEAN_TEMP_t,
real(rp), dimension (ia,ja), intent(in)  OCEAN_TEMP,
real(rp), dimension (ia,ja), intent(in)  OCEAN_SFLX_WH,
real(rp), dimension(ia,ja), intent(in)  OCEAN_SFLX_prec,
real(rp), dimension(ia,ja), intent(in)  OCEAN_SFLX_evap,
real(dp), intent(in)  dt 
)

Slab ocean model.

Definition at line 68 of file scale_ocean_phy_const.F90.

References scale_stdio::io_fid_log, and scale_stdio::io_l.

Referenced by scale_ocean_phy::ocean_phy_setup().

68  implicit none
69 
70  real(RP), intent(out) :: OCEAN_TEMP_t (IA,JA)
71  real(RP), intent(in) :: OCEAN_TEMP (IA,JA)
72  real(RP), intent(in) :: OCEAN_SFLX_WH (IA,JA)
73  real(RP), intent(in) :: OCEAN_SFLX_prec(IA,JA)
74  real(RP), intent(in) :: OCEAN_SFLX_evap(IA,JA)
75  real(DP), intent(in) :: dt
76  !---------------------------------------------------------------------------
77 
78  if( io_l ) write(io_fid_log,*) '*** Ocean physics step: Const'
79 
80  ocean_temp_t(:,:) = 0.0_rp
81 
82  return
Here is the caller graph for this function: