module ocean / dynamics / offline More...

Functions/Subroutines
subroutine, public	ocean_dyn_offline_setup
	Setup. More...

subroutine, public	ocean_dyn_offline (OKMAX, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, calc_flag, dt, NOWDAYSEC, OCEAN_TEMP)
	Slab ocean model. More...

Detailed Description

module ocean / dynamics / offline

Description: ocean offline model

Author: Team SCALE

NAMELIST

PARAM_OCEAN_DYN_OFFLINE

name	type	default value	comment
OCEAN_DYN_OFFLINE_BASENAME	character(len=H_LONG)	''
OCEAN_DYN_OFFLINE_BASENAME_ADD_NUM	logical	.false.
OCEAN_DYN_OFFLINE_NUMBER_OF_FILES	integer	1
OCEAN_DYN_OFFLINE_ENABLE_PERIODIC_YEAR	logical	.false.
OCEAN_DYN_OFFLINE_ENABLE_PERIODIC_MONTH	logical	.false.
OCEAN_DYN_OFFLINE_ENABLE_PERIODIC_DAY	logical	.false.
OCEAN_DYN_OFFLINE_STEP_FIXED	integer	0
OCEAN_DYN_OFFLINE_DEFVAL	real(RP)		= UNDEF
OCEAN_DYN_OFFLINE_CHECK_COORDINATES	logical	.true.
OCEAN_DYN_OFFLINE_STEP_LIMIT	integer	0

History Output: No history output

Function/Subroutine Documentation

◆ ocean_dyn_offline_setup()

subroutine, public scale_ocean_dyn_offline::ocean_dyn_offline_setup

Setup.

Definition at line 48 of file scale_ocean_dyn_offline.F90.

     use scale_prc, only: &
        prc_abort
     use scale_const, only: &
        undef => const_undef
     use scale_file_external_input, only: &
        file_external_input_regist
     implicit none
  
     character(len=H_LONG)  :: OCEAN_DYN_OFFLINE_basename              = ''
     logical                :: OCEAN_DYN_OFFLINE_basename_add_num      = .false.
     integer                :: OCEAN_DYN_OFFLINE_number_of_files       = 1
     logical                :: OCEAN_DYN_OFFLINE_enable_periodic_year  = .false.
     logical                :: OCEAN_DYN_OFFLINE_enable_periodic_month = .false.
     logical                :: OCEAN_DYN_OFFLINE_enable_periodic_day   = .false.
     integer                :: OCEAN_DYN_OFFLINE_step_fixed            = 0
     real(RP)               :: OCEAN_DYN_OFFLINE_defval               != UNDEF
     logical                :: OCEAN_DYN_OFFLINE_check_coordinates     = .true.
     integer                :: OCEAN_DYN_OFFLINE_step_limit            = 0
  
     namelist / param_ocean_dyn_offline / &
        ocean_dyn_offline_basename,              &
        ocean_dyn_offline_basename_add_num,      &
        ocean_dyn_offline_number_of_files,       &
        ocean_dyn_offline_enable_periodic_year,  &
        ocean_dyn_offline_enable_periodic_month, &
        ocean_dyn_offline_enable_periodic_day,   &
        ocean_dyn_offline_step_fixed,            &
        ocean_dyn_offline_defval,                &
        ocean_dyn_offline_check_coordinates,     &
        ocean_dyn_offline_step_limit
  
     integer :: ierr
     !---------------------------------------------------------------------------
  
     log_newline
     log_info("OCEAN_DYN_OFFLINE_setup",*) 'Setup'
  
     ocean_dyn_offline_defval = undef
  
     !--- read namelist
     rewind(io_fid_conf)
     read(io_fid_conf,nml=param_ocean_dyn_offline,iostat=ierr)
     if( ierr < 0 ) then !--- missing
        log_info("OCEAN_DYN_OFFLINE_setup",*) 'Not found namelist. Default used.'
     elseif( ierr > 0 ) then !--- fatal error
        log_error("OCEAN_DYN_OFFLINE_setup",*) 'Not appropriate names in namelist PARAM_OCEAN_DYN_OFFLINE. Check!'
        call prc_abort
     endif
     log_nml(param_ocean_dyn_offline)
  
     log_info("OCEAN_DYN_OFFLINE_setup",*) 'Use offline ocean'
  
     if ( ocean_dyn_offline_basename == '' ) then
        log_error("OCEAN_DYN_OFFLINE_setup",*) 'OCEAN_DYN_OFFLINE_basename is necessary !!'
        call prc_abort
     endif
  
     call file_external_input_regist( ocean_dyn_offline_basename,              & ! [IN]
                                      ocean_dyn_offline_basename_add_num,      & ! [IN]
                                      ocean_dyn_offline_number_of_files,       & ! [IN]
                                      'OCEAN_TEMP',                            & ! [IN]
                                      'OXY',                                   & ! [IN]
                                      ocean_dyn_offline_enable_periodic_year,  & ! [IN]
                                      ocean_dyn_offline_enable_periodic_month, & ! [IN]
                                      ocean_dyn_offline_enable_periodic_day,   & ! [IN]
                                      ocean_dyn_offline_step_fixed,            & ! [IN]
                                      ocean_dyn_offline_defval,                & ! [IN]
                                      check_coordinates = ocean_dyn_offline_check_coordinates, & ! [IN]
                                      step_limit        = ocean_dyn_offline_step_limit         ) ! [IN]
  
     return

References scale_const::const_undef, scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_ocean_driver::ocean_driver_setup().

Here is the call graph for this function:

Here is the caller graph for this function:

◆ ocean_dyn_offline()

subroutine, public scale_ocean_dyn_offline::ocean_dyn_offline	(	integer, intent(in)	OKMAX,
		integer, intent(in)	OKS,
		integer, intent(in)	OKE,
		integer, intent(in)	OIA,
		integer, intent(in)	OIS,
		integer, intent(in)	OIE,
		integer, intent(in)	OJA,
		integer, intent(in)	OJS,
		integer, intent(in)	OJE,
		logical, dimension (oia,oja), intent(in)	calc_flag,
		real(dp), intent(in)	dt,
		real(dp), intent(in)	NOWDAYSEC,
		real(rp), dimension(okmax,oia,oja), intent(inout)	OCEAN_TEMP
	)

Slab ocean model.

Definition at line 130 of file scale_ocean_dyn_offline.F90.

     use scale_prc, only: &
        prc_abort
     use scale_file_external_input, only: &
        file_external_input_update
     implicit none
  
     integer,  intent(in)    :: OKMAX, OKS, OKE
     integer,  intent(in)    :: OIA,   OIS, OIE
     integer,  intent(in)    :: OJA,   OJS, OJE
     logical,  intent(in)    :: calc_flag (OIA,OJA) ! to decide calculate or not
     real(DP), intent(in)    :: dt
     real(DP), intent(in)    :: NOWDAYSEC
     real(RP), intent(inout) :: OCEAN_TEMP(OKMAX,OIA,OJA)
  
     real(RP) :: OCEAN_TEMP_ref(OKMAX,OIA,OJA)
  
     logical  :: error
     integer  :: i, j
     !---------------------------------------------------------------------------
     !$acc data copyin(calc_flag) copy(OCEAN_TEMP) create(OCEAN_TEMP_ref)
  
     log_progress(*) 'ocean / dynamics / offline'
  
     call file_external_input_update( 'OCEAN_TEMP', nowdaysec, ocean_temp_ref(:,:,:), error )
  
     if ( error ) then
        log_error("OCEAN_DYN_OFFLINE",*) 'Requested data is not found!'
        call prc_abort
     endif
  
     !$acc kernels
     do j = ojs, oje
     do i = ois, oie
        if ( calc_flag(i,j) ) then
           ocean_temp(oks,i,j) = ocean_temp_ref(oks,i,j)
        endif
     enddo
     enddo
     !$acc end kernels
  
     !$acc end data
     return

References scale_prc::prc_abort().

Referenced by mod_ocean_driver::ocean_driver_update().