SCALE-RM
scale_tracer_tomita08.F90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
13 !-------------------------------------------------------------------------------
15  !-----------------------------------------------------------------------------
16  !
17  !++ used modules
18  !
19  use scale_precision
20  use scale_stdio
21  !-----------------------------------------------------------------------------
22  implicit none
23  private
24  !-----------------------------------------------------------------------------
25  !
26  !++ Public procedure
27  !
28  public :: tracer_tomita08_setup
29 
30  include "inc_tracer_tomita08.h"
31 
32  !-----------------------------------------------------------------------------
33 contains
34  !-----------------------------------------------------------------------------
35  subroutine tracer_tomita08_setup
36  implicit none
37 
38  return
39  end subroutine tracer_tomita08_setup
40 
41 end module scale_tracer_tomita08
module STDIO
Definition: scale_stdio.F90:12
subroutine, public tracer_tomita08_setup
module PRECISION
module TRACER / tomita08