Line data    Source code

       1             : !================================================================================
       2             : ! stub unit driver
       3             : !================================================================================
       4             : module unit_driver
       5             : 
       6             :   use shr_kind_mod, only: r8=>SHR_KIND_R8
       7             : 
       8             :   implicit none
       9             :   private
      10             :   save
      11             : 
      12             :   public :: unit_driver_run
      13             :   public :: unit_driver_init
      14             :   public :: unit_driver_reg
      15             : 
      16             : contains
      17             : 
      18             :   !================================================================================
      19             :   !================================================================================
      20        1536 :   subroutine unit_driver_reg
      21        1536 :   end subroutine unit_driver_reg
      22             : 
      23             :   !==============================================================================
      24             :   !==============================================================================
      25           0 :   subroutine unit_driver_run(indata, phys_state, pbuf2d, cam_out, cam_in, recno)
      26             :     use physics_types,    only: physics_state
      27             :     use ppgrid,           only: begchunk, endchunk
      28             :     use camsrfexch,       only: cam_out_t, cam_in_t     
      29             :     use physics_buffer,   only: physics_buffer_desc
      30             :     use drv_input_data,   only: drv_input_data_t
      31             : 
      32             :     type(drv_input_data_t), intent(inout) :: indata
      33             :     type(physics_state), intent(inout) :: phys_state(begchunk:endchunk)
      34             :     type(cam_out_t),     intent(inout) :: cam_out(begchunk:endchunk)
      35             :     type(cam_in_t),      intent(inout) :: cam_in(begchunk:endchunk)
      36             :     type(physics_buffer_desc), pointer :: pbuf2d(:,:)
      37             :     integer,             intent(in)    :: recno
      38             : 
      39           0 :   end subroutine unit_driver_run
      40             : 
      41             :   !==============================================================================
      42             :   !==============================================================================
      43           0 :   subroutine unit_driver_init
      44           0 :   end subroutine unit_driver_init
      45             : 
      46             : end module unit_driver