MUL-142: Remove fapi test's dependence on MPI_Fortran

Author: dsarmany

CMakeLists.txt

@@ -73,9 +73,6 @@ ecbuild_add_option( FEATURE MULTIO_DUMMY_API
 if( HAVE_FORTRAN )
     ecbuild_enable_fortran( REQUIRED MODULE_DIRECTORY ${PROJECT_BINARY_DIR}/module)
     ecbuild_find_package( NAME fckit   VERSION 0.10.0   REQUIRED )
-    if (eckit_HAVE_MPI)
-        find_package( MPI COMPONENTS Fortran) # Add explicit mpi for errorcodes -- isn't there a better way?
-    endif (eckit_HAVE_MPI)
     include(${CMAKE_CURRENT_SOURCE_DIR}/cmake/fortran_compile_flags.cmake)
 endif()
 

src/multio/tools/CMakeLists.txt

@@ -52,7 +52,7 @@ ecbuild_add_executable( TARGET    multio-feed
 ecbuild_add_executable( TARGET    multio-replay-nemo-fapi
                         CONDITION HAVE_FORTRAN
                         SOURCES   multio-replay-nemo-fapi.f90
-                        LIBS      multio-fapi fckit MPI::MPI_Fortran )
+                        LIBS      multio-fapi fckit )
 
 # TODO: add atlas condition/dependency
 ecbuild_add_executable( TARGET    multio-generate-grib-template

src/multio/tools/multio-replay-nemo-fapi.f90

@@ -12,7 +12,6 @@ program multio_replay_nemo_fapi
     use multio_api
     use fckit_module
     use fckit_mpi_module
-    use mpi ! for error codes
     implicit none
 
     integer :: rank, client_count, server_count
@@ -24,7 +23,7 @@ program multio_replay_nemo_fapi
     logical singlePrecision
 
     type(multio_handle) :: mio
-    integer(int64) :: mio_parent_comm = MPI_UNDEFINED
+    integer(int64) :: mio_parent_comm
 
     character(len=3), dimension(4) :: nemo_parameters = ["sst", "ssu", "ssv", "ssw" ]
     integer, dimension(4) :: grib_param_id = [262101, 262138, 262137, 212202 ]
@@ -87,12 +86,7 @@ subroutine multio_custom_error_handler(context, err, info)
     if (err /= MULTIO_SUCCESS) then
         write (error_unit, *) 'MULTIO ERROR: ',multio_error_string(err, info)
         write (error_unit, *) 'Abort mpi...'
-
-        if (context /= MPI_UNDEFINED) then
-            comm = fckit_mpi_comm(int(context))
-            call comm%abort(MPI_ERR_OTHER)
-            context = MPI_UNDEFINED
-        endif
+        call fckit_mpi%abort()
     endif
 end subroutine
 

tests/multio/CMakeLists.txt

@@ -146,13 +146,12 @@ ecbuild_add_test( TARGET test_multio_hammer_thread
                   ARGS --transport=thread --nbclients=5 --nbservers=3
                   ENVIRONMENT "${_test_environment}" )
 
-if (eckit_HAVE_MPI)
 ecbuild_add_test( TARGET      test_multio_hammer_mpi
+                  CONDITION   eckit_HAVE_MPI
                   COMMAND     $<TARGET_FILE:multio-hammer>
                   ARGS        --transport=mpi --nbclients=5 --nbservers=3
                   MPI         8
                   ENVIRONMENT "${_test_environment}" )
-endif (eckit_HAVE_MPI)
 
 ecbuild_add_test( TARGET test_multio_hammer_tcp
                   COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/tcp-launch.sh