MOM_unit_tests.F90

Go to the documentation of this file.

!> Invokes unit tests in all modules that have them
module mom_unit_tests

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

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