mod_cpl_admin.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module mod_cpl_admin
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: cpl_admin_setup
  public :: cpl_admin_getscheme

  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  logical, public :: cpl_sw ! do coupler calculation?

  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine cpl_admin_setup
    use mod_ocean_admin, only: &
       ocean_sw
    use mod_land_admin, only: &
       land_sw
    use mod_urban_admin, only: &
       urban_sw
    use scale_process, only: &
       prc_mpistop
    implicit none
    !---------------------------------------------------------------------------

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[ADMIN] / Categ[CPL] / Origin[SCALE-RM]'

    !-----< module component check >-----

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Coupler components ***'

    ! Atoms-Ocean/Land/Urban Switch
    if ( ocean_sw .OR. land_sw .OR. urban_sw ) then
       cpl_sw = .true.
    else
       cpl_sw = .false.
    endif

    if ( cpl_sw ) then
       if( io_l ) write(io_fid_log,*) '*** Coupler : ON'
    else
       if( io_l ) write(io_fid_log,*) '*** Coupler : OFF'
    endif

    return
  end subroutine cpl_admin_setup

  !-----------------------------------------------------------------------------
  subroutine cpl_admin_getscheme
    implicit none
    !---------------------------------------------------------------------------

    return
  end subroutine cpl_admin_getscheme

end module mod_cpl_admin