Skip to content

Commit

Permalink
Remove redundant include of mpif.h in module_dm.F. (wrf-model#462)
Browse files Browse the repository at this point in the history
TYPE: bug fix

KEYWORDS: Fujitsu rsl mpif.h module_dm.F duplicate

SOURCE: Chengguang Li (Fujitsu, Taiwan)

DESCRIPTION OF CHANGES:
The same fix as commit 6106eb0 to apply to a new include of mpif.h introduced in commit 8cb2192.
The module module_dm.F has mpif.h INCLUDED at the top of the module above the
CONTAINS statement. Remove the replicated instance inside subroutine wrf_dm_max_int.

LIST OF MODIFIED FILES:
M external/RSL_LITE/module_dm.F

TESTS CONDUCTED:
(1) compile em_real still compiles on Mac after the change.
  • Loading branch information
jamiebresch authored Apr 27, 2018
1 parent 3c1d12a commit bd9a460
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion external/RSL_LITE/module_dm.F
Original file line number Diff line number Diff line change
Expand Up @@ -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 )
Expand Down

0 comments on commit bd9a460

Please sign in to comment.