mod_ocean_admin.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_ocean_admin
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: ocean_admin_setup
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  logical,                public :: ocean_do   = .true. ! main switch for the model
 
  character(len=H_SHORT), public :: ocean_dyn_type = 'NONE'
                                                   ! 'OFF'
                                                   ! 'SLAB'
                                                   ! 'OFFLINE'
                                                   ! 'INIT'
  character(len=H_SHORT), public :: ocean_sfc_type = 'FIXED-TEMP'
  character(len=H_SHORT), public :: ocean_ice_type = 'NONE'
                                                   ! 'SIMPLE'
                                                   ! 'INIT'
  character(len=H_SHORT), public :: ocean_alb_type = 'NAKAJIMA00'
                                                   ! 'INIT'
  character(len=H_SHORT), public :: ocean_rgn_type = 'MOON07'
                                                   ! 'MILLER92'
                                                   ! 'INIT'
 
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine ocean_admin_setup
    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
  end subroutine ocean_admin_setup
 
end module mod_ocean_admin