SCALE-RM
mod_cpl_driver.F90
Go to the documentation of this file.
1 !-------------------------------------------------------------------------------
9 !-------------------------------------------------------------------------------
10 #include "scalelib.h"
12  !-----------------------------------------------------------------------------
13  !
14  !++ used modules
15  !
16  use scale_precision
17  use scale_io
18  use scale_prof
19  !-----------------------------------------------------------------------------
20  implicit none
21  private
22  !-----------------------------------------------------------------------------
23  !
24  !++ Public procedure
25  !
26  public :: cpl_driver_setup
27  public :: cpl_driver
28 
29  !-----------------------------------------------------------------------------
30  !
31  !++ Public parameters & variables
32  !
33  !-----------------------------------------------------------------------------
34  !
35  !++ Private procedure
36  !
37  !-----------------------------------------------------------------------------
38  !
39  !++ Private parameters & variables
40  !
41  !-----------------------------------------------------------------------------
42 contains
43  !-----------------------------------------------------------------------------
45  subroutine cpl_driver_setup
46  implicit none
47  !---------------------------------------------------------------------------
48 
49  return
50  end subroutine cpl_driver_setup
51 
52  !-----------------------------------------------------------------------------
54  subroutine cpl_driver
55  implicit none
56  !---------------------------------------------------------------------------
57 
58  return
59  end subroutine cpl_driver
60 
61 end module mod_cpl_driver
module CPL driver
subroutine, public cpl_driver
CPL calcuration.
subroutine, public cpl_driver_setup
Setup.
module profiler
Definition: scale_prof.F90:11
module PRECISION
module STDIO
Definition: scale_io.F90:10