Skip to content
12 changes: 12 additions & 0 deletions src/core_test/mpas_test_core.F
Original file line number Diff line number Diff line change
Expand Up @@ -242,6 +242,18 @@ function test_core_run(domain) result(iErr)!{{{
end if
call mpas_log_write('')

!
! Test functionality of alarms with user-defined active windows
!
call mpas_log_write('')
call mpas_log_write('Testing mpas_window_alarms:')
iErr = mpas_window_alarm_tests()
if (iErr == 0) then
call mpas_log_write('* mpas_window_alarm tests - all tests passed: SUCCESS')
else
call mpas_log_write('* mpas_window_alarm tests - $i failed tests: FAILURE', intArgs=[iErr])
end if

deallocate(threadErrs)

end function test_core_run!}}}
Expand Down
Loading