mod_cpl_driver.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
#include "scalelib.h"
module mod_cpl_driver
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_io
  use scale_prof
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: cpl_driver_setup
  public :: cpl_driver_finalize
  public :: cpl_driver
 
  !-----------------------------------------------------------------------------
  !
  !++ Public parameters & variables
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private procedure
  !
  !-----------------------------------------------------------------------------
  !
  !++ Private parameters & variables
  !
  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine cpl_driver_setup
    implicit none
    !---------------------------------------------------------------------------
 
    return
  end subroutine cpl_driver_setup
 
  !-----------------------------------------------------------------------------
  subroutine cpl_driver_finalize
    use scale_cpl_phy_sfc_fixed_temp, only: &
       cpl_phy_sfc_fixed_temp_finalize
    use scale_cpl_phy_sfc_skin, only: &
       cpl_phy_sfc_skin_finalize
    implicit none
    !---------------------------------------------------------------------------
 
    call cpl_phy_sfc_fixed_temp_finalize
    call cpl_phy_sfc_skin_finalize
 
    return
  end subroutine cpl_driver_finalize
 
  !-----------------------------------------------------------------------------
  subroutine cpl_driver
    implicit none
    !---------------------------------------------------------------------------
 
    return
  end subroutine cpl_driver
 
end module mod_cpl_driver