Line data    Source code

       1             : module dycore_budget
       2             : implicit none
       3             : 
       4             : public :: print_budget
       5             : 
       6             : !=========================================================================================
       7             : contains
       8             : !=========================================================================================
       9             : 
      10       14592 : subroutine print_budget(hstwr)
      11             : 
      12             :   use spmd_utils,             only: masterproc
      13             :   use cam_abortutils,         only: endrun  
      14             :   use cam_budget,             only: thermo_budget_histfile_num, thermo_budget_history
      15             : 
      16             :   ! arguments
      17             :   logical, intent(in) :: hstwr(:)
      18             :   character(len=*), parameter :: subname = 'dycore_budget:print_budgets:'
      19             : 
      20             :   !--------------------------------------------------------------------------------------
      21             : 
      22       14592 :   if (masterproc .and. thermo_budget_history .and. hstwr(thermo_budget_histfile_num)) then
      23           0 :      call endrun(subname//' is not implemented for the FV dycore')
      24             :   end if
      25       14592 : end subroutine print_budget
      26             : 
      27             : end module dycore_budget