add ifdefs for MPI calls in clocks test

Author: rem1776

test_fms/mpp/test_mpp_clock_begin_end_id.F90

@@ -94,7 +94,9 @@ subroutine test1()
 
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock")
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test1
 
@@ -105,7 +107,9 @@ subroutine test2()
 
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock", flags=1)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test2
 
@@ -116,7 +120,9 @@ subroutine test3()
 
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock", flags=2)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test3
 
@@ -127,7 +133,9 @@ subroutine test4()
 
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock", flags=3)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test4
 
@@ -138,7 +146,9 @@ subroutine test5()
 
       clock_id = mpp_clock_id("Ultraclock")
       call mpp_init(test_level=bp)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test5
 
@@ -148,7 +158,9 @@ subroutine test6()
       bp = 1
 
       call mpp_init(test_level=bp)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
       clock_id = mpp_clock_id("Ultraclock")
 
     end subroutine test6
@@ -163,7 +175,9 @@ subroutine test7()
 
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock", grain = new_grain)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
       if(clock_id .ne. 0) then
           call segfault()
@@ -193,7 +207,9 @@ subroutine test9()
       clock_id = 1
       call mpp_clock_begin(clock_id)
       call mpp_init(test_level=bp)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test9
 
@@ -217,7 +233,9 @@ subroutine test11()
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock")
       call mpp_clock_begin(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test11
 
@@ -229,7 +247,9 @@ subroutine test12()
       call mpp_init(test_level=bp)
       clock_id = 0
       call mpp_clock_begin(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test12
 
@@ -241,7 +261,9 @@ subroutine test13()
       call mpp_init(test_level=bp)
       clock_id = MAX_CLOCKS + 10
       call mpp_clock_begin(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test13
 
@@ -254,7 +276,9 @@ subroutine test14()
       clock_id = mpp_clock_id("Ultraclock")
       call mpp_clock_begin(clock_id)
       call mpp_clock_end(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test14
 
@@ -266,7 +290,9 @@ subroutine test15()
       call mpp_init(test_level=bp)
       clock_id = mpp_clock_id("Ultraclock")
       call mpp_clock_end(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test15
 
@@ -279,7 +305,9 @@ subroutine test16()
       clock_id = mpp_clock_id("Ultraclock")
       call mpp_clock_begin(clock_id)
       call mpp_clock_begin(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test16
 
@@ -291,7 +319,9 @@ subroutine test17()
       call mpp_init(test_level=bp)
       clock_id = MAX_CLOCKS + 10
       call mpp_clock_end(clock_id)
+#ifdef use_libMPI
       call MPI_FINALIZE(ierr)
+#endif
 
     end subroutine test17