mod_ocean_admin Module Reference

module Ocean admin More...

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

Variables
logical, public	ocean_do = .true.
character(len=h_short), public	ocean_dyn_type = 'NONE'
character(len=h_short), public	ocean_sfc_type = 'FIXED-TEMP'
character(len=h_short), public	ocean_ice_type = 'NONE'
character(len=h_short), public	ocean_alb_type = 'NAKAJIMA00'
character(len=h_short), public	ocean_rgn_type = 'MOON07'

Detailed Description

module Ocean admin

Description

Ocean submodel administrator

Author

Team SCALE

NAMELIST

• PARAM_OCEAN

  name	type	default value	comment
  OCEAN_DYN_TYPE	character(len=H_SHORT)	'NONE'
  OCEAN_ICE_TYPE	character(len=H_SHORT)	'NONE'
  OCEAN_SFC_TYPE	character(len=H_SHORT)	'FIXED-TEMP'
  OCEAN_ALB_TYPE	character(len=H_SHORT)	'NAKAJIMA00'
  OCEAN_RGN_TYPE	character(len=H_SHORT)	'MOON07'

  
  

History Output

No history output

Function/Subroutine Documentation

ocean_admin_setup()

subroutine, public mod_ocean_admin::ocean_admin_setup

Setup.

Definition at line 62 of file mod_ocean_admin.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_ocean / &
       ocean_dyn_type, &
       ocean_ice_type, &
       ocean_sfc_type, &
       ocean_alb_type, &
       ocean_rgn_type
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("OCEAN_ADMIN_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_ocean,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("OCEAN_ADMIN_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("OCEAN_ADMIN_setup",*) 'Not appropriate names in namelist PARAM_OCEAN. Check!'
       call prc_abort
    endif
    log_nml(param_ocean)
 
    !-----< module component check >-----
 
    log_newline
    log_info("OCEAN_ADMIN_setup",*) 'Ocean model components '
 
    if ( ocean_dyn_type /= 'OFF' .AND. ocean_dyn_type /= 'NONE' ) then
       log_info_cont(*) 'Ocean model             : ON, ', trim(ocean_dyn_type)
       ocean_do = .true.
    else
       log_info_cont(*) 'Ocean model             : OFF'
       ocean_do = .false.
    endif
 
    if ( ocean_do ) then
 
       log_info_cont(*) '+ Ocean surface   model : ', trim(ocean_sfc_type)
       log_info_cont(*) '+ Ocean ice       model : ', trim(ocean_ice_type)
       log_info_cont(*) '+ Ocean albedo    model : ', trim(ocean_alb_type)
       log_info_cont(*) '+ Ocean roughness model : ', trim(ocean_rgn_type)
 
    end if
 
    return

References scale_io::io_fid_conf, ocean_alb_type, ocean_do, ocean_dyn_type, ocean_ice_type, ocean_rgn_type, ocean_sfc_type, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

ocean_do

logical, public mod_ocean_admin::ocean_do = .true.

Definition at line 32 of file mod_ocean_admin.F90.

  logical,                public :: OCEAN_do   = .true. ! main switch for the model

Referenced by mod_admin_restart::admin_restart_read(), mod_cpl_admin::cpl_admin_setup(), mod_cpl_vars::cpl_vars_setup(), ocean_admin_setup(), mod_ocean_driver::ocean_driver_setup(), mod_ocean_driver::ocean_surface_get(), mod_ocean_driver::ocean_surface_set(), mod_ocean_vars::ocean_vars_restart_create(), mod_ocean_vars::ocean_vars_restart_open(), mod_realinput::realinput_surface(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

ocean_dyn_type

character(len=h_short), public mod_ocean_admin::ocean_dyn_type = 'NONE'

Definition at line 34 of file mod_ocean_admin.F90.

  character(len=H_SHORT), public :: OCEAN_DYN_TYPE = 'NONE'

Referenced by ocean_admin_setup(), mod_ocean_driver::ocean_driver_setup(), and mod_ocean_driver::ocean_driver_update().

ocean_sfc_type

character(len=h_short), public mod_ocean_admin::ocean_sfc_type = 'FIXED-TEMP'

Definition at line 39 of file mod_ocean_admin.F90.

  character(len=H_SHORT), public :: OCEAN_SFC_TYPE = 'FIXED-TEMP'

Referenced by ocean_admin_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), and mod_ocean_driver::ocean_driver_setup().

ocean_ice_type

character(len=h_short), public mod_ocean_admin::ocean_ice_type = 'NONE'

Definition at line 40 of file mod_ocean_admin.F90.

  character(len=H_SHORT), public :: OCEAN_ICE_TYPE = 'NONE'

Referenced by ocean_admin_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_setup(), mod_ocean_driver::ocean_driver_update(), mod_ocean_vars::ocean_vars_restart_read(), and mod_ocean_vars::ocean_vars_setup().

ocean_alb_type

character(len=h_short), public mod_ocean_admin::ocean_alb_type = 'NAKAJIMA00'

Definition at line 43 of file mod_ocean_admin.F90.

  character(len=H_SHORT), public :: OCEAN_ALB_TYPE = 'NAKAJIMA00'

Referenced by ocean_admin_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), and mod_ocean_driver::ocean_driver_setup().

ocean_rgn_type

character(len=h_short), public mod_ocean_admin::ocean_rgn_type = 'MOON07'

Definition at line 45 of file mod_ocean_admin.F90.

  character(len=H_SHORT), public :: OCEAN_RGN_TYPE = 'MOON07'

Referenced by ocean_admin_setup(), mod_ocean_driver::ocean_driver_calc_tendency(), and mod_ocean_driver::ocean_driver_setup().