mod_cpl_admin.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_cpl_admin
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  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 scale_prc, only: &
       prc_abort
    use mod_atmos_admin, only: &
       atmos_phy_sf_type, &
       atmos_sw_phy_sf
    use mod_ocean_admin, only: &
       ocean_do
    use mod_land_admin, only: &
       land_do
    use mod_urban_admin, only: &
       urban_do
    implicit none
    !---------------------------------------------------------------------------

    log_newline
    log_info("CPL_ADMIN_setup",*) 'Setup'

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

    log_newline
    log_info("CPL_ADMIN_setup",*) 'Coupler components '

    ! Atmos-Ocean/Land/Urban Switch
    if ( ocean_do .OR. land_do .OR. urban_do ) then
       cpl_sw = .true.
    else
       cpl_sw = .false.
    endif

    ! Check Atmos_Surface setting
    if ( cpl_sw ) then
       log_info_cont(*) 'Coupler : ON'

       if ( atmos_phy_sf_type == 'COUPLE' ) then
          ! do nothing
       elseif( atmos_phy_sf_type == 'NONE' ) then
          log_info_cont(*) '-> Surface Flux Type is forced to change from NONE to COUPLE.'
          ! overwrite
          atmos_phy_sf_type = 'COUPLE'
          atmos_sw_phy_sf   = .true.
       else
          log_error("CPL_ADMIN_setup",*) 'Setting conflicts between coupler and surface flux! STOP.'
          log_error_cont(*) 'Surface Flux : ', trim(atmos_phy_sf_type)
          call prc_abort
       endif
    else
       log_info_cont(*) '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