LCOV - code coverage report
Current view: | top level - physics/rrtmgp/ext/rte-frontend - mo_rte_config.F90 (source / functions) |  |  | Hit | Total | Coverage
Test: | coverage.info |  | Lines: | 0 | 8 | 0.0 %
Date: | 2024-12-17 17:57:11 |  | Functions: | 0 | 2 | 0.0 %

              Line data    Source code
           1             : ! This code is part of RRTM for GCM Applications - Parallel (RRTMGP)
           2             : !
           3             : ! Contacts: Robert Pincus and Eli Mlawer
           4             : ! email:  rrtmgp@aer.com
           5             : !
           6             : ! Copyright 2020-  Atmospheric and Environmental Research,
           7             : !    Regents of the University of Colorado,
           8             : !    Trustees of Columbia University in the City of New York
           9             : ! All right reserved.
          10             : !
          11             : ! Use and duplication is permitted under the terms of the
          12             : !    BSD 3-clause license, see http://opensource.org/licenses/BSD-3-Clause
          13             :
          14             : !> -------------------------------------------------------------------------------------------------
          15             : !>
          16             : !> ## Control input sanitization in Fortan front-end
          17             : !>   Provides public access to two proteced module variables
          18             : !>
          19             : !> -------------------------------------------------------------------------------------------------
          20             : module mo_rte_config
          21             :   use mo_rte_kind, only: wl
          22             :   implicit none
          23             :   private
          24             :
          25             :   logical(wl), protected, public :: check_extents = .true.
          26             :   logical(wl), protected, public :: check_values  = .true.
          27             :
          28             :   !> Specify checking of extents and values individually, or all checks together
          29             :   interface rte_config_checks
          30             :     module procedure rte_config_checks_each, rte_config_checks_all
          31             :   end interface
          32             :   public :: rte_config_checks
          33             : contains
          34             :   ! --------------------------------------------------------------
          35             :   !> Do extents and/or values checks within RTE+RRTMGP Fortran classes
          36           0 :   subroutine rte_config_checks_each(extents, values)
          37             :     logical(wl), intent(in) :: extents, values
          38             :
          39           0 :     check_extents = extents
          40           0 :     check_values  = values
          41           0 :   end subroutine rte_config_checks_each
          42             :   ! --------------------------------------------------------------
          43             :   !> Do all checks within RTE+RRTMGP Fortran classes
          44           0 :   subroutine rte_config_checks_all(do_checks)
          45             :     logical(wl), intent(in) :: do_checks
          46             :
          47           0 :     check_extents = do_checks
          48           0 :     check_values  = do_checks
          49           0 :   end subroutine rte_config_checks_all
          50             :   ! --------------------------------------------------------------
          51             : end module mo_rte_config

Generated by: LCOV version 1.14