Line data    Source code

       1             : module ionosphere_interface
       2             : 
       3             :  ! Dummy interface -- actual ionosphere interface exist in src/ionosphere/modelname
       4             : 
       5             :   implicit none
       6             : 
       7             :   private
       8             : 
       9             :   public :: ionosphere_readnl
      10             :   public :: ionosphere_init
      11             :   public :: ionosphere_run1
      12             :   public :: ionosphere_run2
      13             :   public :: ionosphere_init_restart
      14             :   public :: ionosphere_write_restart
      15             :   public :: ionosphere_read_restart
      16             :   public :: ionosphere_final
      17             : 
      18             : contains
      19             : 
      20             :   !--------------------------------------------------------------------------------
      21             :   !--------------------------------------------------------------------------------
      22        1536 :   subroutine ionosphere_readnl( nlfile )
      23             : 
      24             :     character(len=*), intent(in) :: nlfile  ! filepath for file containing namelist input
      25             : 
      26        1536 :   end subroutine ionosphere_readnl
      27             : 
      28             :   !--------------------------------------------------------------------------------
      29             :   !--------------------------------------------------------------------------------
      30        1536 :   subroutine ionosphere_init()
      31             : 
      32        1536 :   end subroutine ionosphere_init
      33             : 
      34             :   !--------------------------------------------------------------------------------
      35             :   !--------------------------------------------------------------------------------
      36      370944 :   subroutine ionosphere_run1(pbuf2d)
      37             :     use physics_buffer, only: physics_buffer_desc
      38             : 
      39             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)
      40             : 
      41      370944 :   end subroutine ionosphere_run1
      42             : 
      43             :   !--------------------------------------------------------------------------------
      44             :   !--------------------------------------------------------------------------------
      45      369408 :   subroutine ionosphere_run2( phys_state, pbuf2d )
      46      370944 :     use ppgrid, only: begchunk, endchunk
      47             :     use physics_types,  only: physics_state
      48             :     use physics_buffer, only: physics_buffer_desc
      49             : 
      50             :     ! args
      51             :     type(physics_state),    intent(in) :: phys_state(begchunk:endchunk)
      52             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)
      53             : 
      54      369408 :   end subroutine ionosphere_run2
      55             : 
      56             :   !--------------------------------------------------------------------------------
      57             :   !--------------------------------------------------------------------------------
      58        1536 :   subroutine ionosphere_init_restart(File)
      59      369408 :     use pio, only: file_desc_t
      60             : 
      61             :     type(File_desc_t),  intent(inout) :: File
      62             : 
      63        1536 :   end subroutine ionosphere_init_restart
      64             : 
      65             :   !--------------------------------------------------------------------------------
      66             :   !--------------------------------------------------------------------------------
      67        1536 :   subroutine ionosphere_write_restart(File)
      68             :     use pio, only: file_desc_t
      69             : 
      70             :     type(File_desc_t), intent(inout) :: File
      71             : 
      72        1536 :   end subroutine ionosphere_write_restart
      73             : 
      74             :   !--------------------------------------------------------------------------------
      75             :   !--------------------------------------------------------------------------------
      76         768 :   subroutine ionosphere_read_restart(File)
      77             :     use pio, only: file_desc_t
      78             : 
      79             :     type(file_desc_t), intent(inout) :: File
      80             : 
      81         768 :   end subroutine ionosphere_read_restart
      82             : 
      83             :   !--------------------------------------------------------------------------------
      84             :   !--------------------------------------------------------------------------------
      85        1536 :   subroutine ionosphere_final
      86             : 
      87        1536 :   end subroutine ionosphere_final
      88             : 
      89             : end module ionosphere_interface