MOM_unit_tests.F90

!> Invokes unit tests in all modules that have them
module mom_unit_tests
 
! This file is part of MOM6. See LICENSE.md for the license.
 
use mom_error_handler,              only : mom_error, fatal, is_root_pe
 
use mom_string_functions,           only : string_functions_unit_tests
use mom_remapping,                  only : remapping_unit_tests
use mom_neutral_diffusion,          only : neutral_diffusion_unit_tests
use mom_diag_vkernels,              only : diag_vkernels_unit_tests
use mom_random,                     only : random_unit_tests
use mom_lateral_boundary_diffusion, only : near_boundary_unit_tests
 
implicit none ; private
 
public unit_tests
 
contains
 
!> Calls unit tests for other modules.
!! Note that if a unit test returns true, a FATAL error is triggered.
subroutine unit_tests(verbosity)
  ! Arguments
  integer, intent(in) :: verbosity !< The verbosity level
  ! Local variables
  logical :: verbose
 
  verbose = verbosity>=5
 
  if (is_root_pe()) then ! The following need only be tested on 1 PE
    if (string_functions_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: string_functions_unit_tests FAILED")
    if (remapping_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: remapping_unit_tests FAILED")
    if (neutral_diffusion_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: neutralDiffusionUnitTests FAILED")
    if (diag_vkernels_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: diag_vkernels_unit_tests FAILED")
    if (random_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: random_unit_tests FAILED")
    if (near_boundary_unit_tests(verbose)) call mom_error(fatal, &
       "MOM_unit_tests: near_boundary_unit_tests FAILED")
  endif
 
end subroutine unit_tests
 
end module mom_unit_tests