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
 
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")
  endif
 
end subroutine unit_tests
 
end module mom_unit_tests