LCOV - code coverage report
Current view: | top level - physics/cam - qbo.F90 (source / functions) |  |  | Hit | Total | Coverage
Test: | coverage.info |  | Lines: | 9 | 9 | 100.0 %
Date: | 2024-12-17 22:39:59 |  | Functions: | 4 | 4 | 100.0 %

              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

Generated by: LCOV version 1.14