spmd_fvb_switch.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"
#include "param_c.inc"
#include "spmd.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	spmd_fvb_switch (monvol)

Function/Subroutine Documentation

spmd_fvb_switch()

subroutine spmd_fvb_switch

(

integer, dimension(*)

monvol

)

Definition at line 33 of file spmd_fvb_switch.F.

C  Broadcast the information that a type 8 fvmbag has switched to type 7 UP monvol
C  To avoid deadlock, all processor must know which FVMBAGs have switched
C  to UP
C-----------------------------------------------
C   M o d u l e s 
C-----------------------------------------------
      USE fvbag_mod
      USE elbufdef_mod
      USE spmd_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   M e s s a g e   P a s s i n g
C-----------------------------------------------
#include "spmd.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER MONVOL(*)                                                
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: K1,N,ITYP(NVOLU),ITYPR(NVOLU),IERR
C-----------------------------------------------
#ifdef MPI
 
      k1=1
      DO n=1,nvolu
         ityp(n)=monvol(k1-1+2)
         k1=k1+nimv
      ENDDO
 
      CALL mpi_allreduce(ityp,itypr,nvolu,mpi_integer,mpi_min,spmd_comm_world,ierr)
      k1=1
 
      DO n=1,nvolu
         IF(monvol(k1-1+2) == 8 .AND. itypr(n) == 7) THEN 
           monvol(k1-1+2) = 7 
           monvol(k1-1+15) = -1 
         ENDIF
         k1=k1+nimv
      ENDDO
#endif 
      RETURN