Line data    Source code

       1             : module spcam_drivers
       2             : 
       3             : ! stub module
       4             : 
       5             : use shr_kind_mod,     only: r8 => shr_kind_r8
       6             : use physics_types,    only: physics_state, physics_tend
       7             : use physics_buffer,   only: physics_buffer_desc
       8             : use camsrfexch,       only: cam_out_t, cam_in_t
       9             : use cam_abortutils,   only: endrun
      10             : 
      11             : implicit none
      12             : private
      13             : save
      14             : 
      15             : public :: tphysbc_spcam, spcam_register, spcam_init
      16             : 
      17             : !========================================================================================
      18             : contains
      19             : !========================================================================================
      20             : 
      21           0 : subroutine tphysbc_spcam (ztodt, state,   &
      22             :        tend,    pbuf,                     &
      23             :        cam_out, cam_in )
      24             : 
      25             :    real(r8),            intent(in)    :: ztodt
      26             :    type(physics_state), intent(inout) :: state
      27             :    type(physics_tend ), intent(inout) :: tend
      28             :    type(physics_buffer_desc), pointer :: pbuf(:)
      29             :    type(cam_out_t),     intent(inout) :: cam_out
      30             :    type(cam_in_t),      intent(in)    :: cam_in
      31             :    !---------------------------------------------------------------------------
      32             : 
      33           0 :    call endrun('tphysbc_spcam: ERROR: this is a stub')
      34             : 
      35           0 : end subroutine tphysbc_spcam
      36             : 
      37             : !========================================================================================
      38             : 
      39        1536 : subroutine spcam_register()
      40             : 
      41        1536 : end subroutine spcam_register
      42             : 
      43             : !========================================================================================
      44             : 
      45        1536 : subroutine spcam_init(pbuf2d)
      46             :    
      47             :    type(physics_buffer_desc), pointer :: pbuf2d(:,:)
      48             : 
      49        1536 : end subroutine spcam_init
      50             : 
      51             : !========================================================================================
      52             : 
      53             : end module spcam_drivers
      54             :