RPN_COMM |
(RPN_COMM_defo) |
subroutine RPN_COMM_defo(comm)
comm | Communicator's name | character*(*) | I |
! ! Here, the sum is computed over the domain (default of ! the default...) ! call RPN_COMM_globalsum(array,minx,maxx,miny,maxy, & nptsz,nil,njl,njlmax,gnj,sum) ! ! We change the default communicator from "DOMM" to "BLOC" ! call RPN_COMM_defo("BLOC") ! ! Here, the sum is computed over the "BLOC" communicator ! call RPN_COMM_globalsum(array,minx,maxx,miny,maxy, & nptsz,nil,njl,njlmax,gnj,sum) ! ! Switch back to its initial value ! call RPN_COMM_defo("DOMM")