diff --git a/external/RSL_LITE/module_dm.F b/external/RSL_LITE/module_dm.F index 22858e765a..dcf72c0cbe 100644 --- a/external/RSL_LITE/module_dm.F +++ b/external/RSL_LITE/module_dm.F @@ -1298,7 +1298,6 @@ END FUNCTION getrealmpitype REAL FUNCTION wrf_dm_max_int ( inval ) IMPLICIT NONE #ifndef STUBMPI - INCLUDE 'mpif.h' INTEGER, intent(in) :: inval INTEGER :: ierr, retval CALL mpi_allreduce ( inval, retval , 1, MPI_INTEGER, MPI_MAX, local_communicator, ierr )