Line data    Source code

       1             : module qbo
       2             : 
       3             : ! Stub version of qbo module
       4             : 
       5             : implicit none
       6             : private
       7             : save
       8             : 
       9             : !---------------------------------------------------------------------
      10             : ! Public methods
      11             : !---------------------------------------------------------------------
      12             : public               :: qbo_readnl             ! read namelist
      13             : public               :: qbo_init               ! initialize qbo package
      14             : public               :: qbo_timestep_init      ! interpolate to current time
      15             : public               :: qbo_relax              ! relax zonal mean wind
      16             : 
      17             : logical, public, parameter :: qbo_use_forcing  = .FALSE.
      18             : 
      19             : contains
      20             : 
      21     1490712 : subroutine qbo_readnl(nlfile)
      22             : 
      23             :   character(len=*), intent(in) :: nlfile  ! filepath for file containing namelist input
      24             : 
      25             :   ! Stub; do nothing.
      26             : 
      27        1536 : end subroutine qbo_readnl
      28             : 
      29        1536 : subroutine qbo_init
      30             : 
      31             :   ! Stub; do nothing.
      32             : 
      33        1536 : end subroutine qbo_init
      34             : 
      35      370944 : subroutine qbo_timestep_init
      36             : 
      37             :   ! Stub; do nothing.
      38             : 
      39      370944 : end subroutine qbo_timestep_init
      40             : 
      41    62545392 : subroutine qbo_relax( state, pbuf, ptend )
      42             : 
      43             :   use physics_types,  only: physics_state, physics_ptend, physics_ptend_init
      44             :   use physics_buffer, only: physics_buffer_desc
      45             : !--------------------------------------------------------------------------------
      46             : !       ... dummy arguments
      47             : !--------------------------------------------------------------------------------
      48             :   type(physics_state), intent(in)    :: state                ! Physics state variables
      49             :   type(physics_buffer_desc), pointer :: pbuf(:)              ! Physics buffer
      50             :   type(physics_ptend), intent(out)   :: ptend                ! individual parameterization tendencies
      51             : 
      52             :   ! Stub; do nothing except init unused ptend.
      53     1489176 :   call physics_ptend_init(ptend, state%psetcols, 'qbo (stub)')
      54             : 
      55     1489176 : end subroutine qbo_relax
      56             : 
      57             : end module qbo