scale_aetracer_none.F90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
!-------------------------------------------------------------------------------
module scale_aetracer_none
  !-----------------------------------------------------------------------------
  !
  !++ used modules
  !
  use scale_precision
  use scale_stdio
  !-----------------------------------------------------------------------------
  implicit none
  private
  !-----------------------------------------------------------------------------
  !
  !++ Public procedure
  !
  public :: aetracer_none_setup

  include "inc_aetracer_none.h"

  !-----------------------------------------------------------------------------
contains
  !-----------------------------------------------------------------------------
  subroutine aetracer_none_setup
    use scale_process, only: &
      prc_mpistop

    return
  end subroutine aetracer_none_setup

end module scale_aetracer_none