Skip to content

Fix SCOTCH and MPI_COMM_RANK explicit-interface warnings for debug build #1531

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Nov 21, 2025
Merged

Fix SCOTCH and MPI_COMM_RANK explicit-interface warnings for debug build #1531

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
c7e77cd
add explicit interface for SCOTCH_ParMETIS_V3_PartGeomKway to remove …
Nov 18, 2025
abaa6a0
add MPI_COMM_RANK to mpi_f08 use list to remove explicit-interface wa…
Nov 18, 2025
9b746b2
Use #else to simplify SCOTCH interface selection
Nov 19, 2025
775e633
Merge branch 'NOAA-EMC:develop' into ww3/fixWarnings
mingchen-NOAA Nov 19, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
38 changes: 38 additions & 0 deletions model/src/PDLIB/yowpdlibmain.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -449,6 +449,44 @@ subroutine runParmetis(MNP)

INTEGER :: np_toSend

#ifdef W3_SCOTCH
interface
#ifdef SCOTCH_707
subroutine SCOTCHFParMETIS_V3_PartGeomKway(vtxdist, xadj, adjncy, &
vwgt, adjwgt, wgtflag, numflag, ndims, xyz, ncon, nparts, &
tpwgts, ubvec, options, edgecut, part, comm, ref)
import :: MPI_Comm
integer, intent(in) :: vtxdist(*), xadj(*), adjncy(*)
integer, intent(in) :: vwgt(*), adjwgt(*)
integer, intent(in) :: wgtflag, numflag, ndims, ncon, nparts
real(4), intent(in) :: xyz(*)
real(4), intent(in) :: tpwgts(*), ubvec(*)
integer, intent(in) :: options(*)
integer, intent(out) :: edgecut
integer, intent(inout) :: part(*)
type(MPI_Comm), intent(in) :: comm
integer, intent(out) :: ref
end subroutine SCOTCHFParMETIS_V3_PartGeomKway
#else
subroutine SCOTCH_ParMETIS_V3_PartGeomKway(vtxdist, xadj, adjncy, &
vwgt, adjwgt, wgtflag, numflag, ndims, xyz, ncon, nparts, &
tpwgts, ubvec, options, edgecut, part, comm, ref)
import :: MPI_Comm
integer, intent(in) :: vtxdist(*), xadj(*), adjncy(*)
integer, intent(in) :: vwgt(*), adjwgt(*)
integer, intent(in) :: wgtflag, numflag, ndims, ncon, nparts
real(4), intent(in) :: xyz(*)
real(4), intent(in) :: tpwgts(*), ubvec(*)
integer, intent(in) :: options(*)
integer, intent(out) :: edgecut
integer, intent(inout) :: part(*)
type(MPI_Comm), intent(in) :: comm
integer, intent(out) :: ref
end subroutine SCOTCH_ParMETIS_V3_PartGeomKway
#endif
end interface
#endif

! CALL REAL_MPI_BARRIER_PDLIB(comm, "runParmetis, step 1")
! Create xadj and adjncy arrays. They holds the nodes neighbors in CSR Format
! Here, the adjacency structure of a graph is represented by two arrays,
Expand Down
2 changes: 1 addition & 1 deletion model/src/w3profsmd_pdlib.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5521,7 +5521,7 @@ SUBROUTINE PDLIB_JACOBI_GAUSS_SEIDEL_BLOCK(IMOD, FACX, FACY, DTG, VGX, VGY, LCAL
use yowDatapool, only: rtype
use YOWNODEPOOL, only: npa, iplg
use yowExchangeModule, only : PDLIB_exchange2Dreal_zero, PDLIB_exchange2Dreal
use mpi_f08, only : MPI_SUM, MPI_INT, MPI_ALLREDUCE
use mpi_f08, only : MPI_SUM, MPI_INT, MPI_ALLREDUCE, MPI_COMM_RANK
USE W3ADATMD, only: MPI_COMM_WCMP
USE W3GDATMD, only: NSEA, SIG, FACP, FLSOU
USE W3GDATMD, only: IOBP_LOC, IOBPD_LOC, IOBDP_LOC, IOBPA_LOC
Expand Down