Changeset 392

Timestamp:

06/02/16 18:52:05 (8 years ago)

Author:

ymipsl

Message:

Add mpi global fonction transfert : bcast_field

YM

File:

• codes/icosagcm/trunk/src/transfert_mpi.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/transfert_mpi.f90

@@ -1761 +1761 @@
   END SUBROUTINE gather_field
 
+  SUBROUTINE bcast_field(field_glo)
+  USE field_mod
+  USE domain_mod
+  USE mpi_mod
+  USE mpipara
+  IMPLICIT NONE
+    TYPE(t_field),POINTER :: field_glo(:)
+    INTEGER :: ind_glo    
+  
+    IF (.NOT. using_mpi) THEN
+    
+! nothing to do
+    
+    ELSE
+          
+      DO ind_glo=1,ndomain_glo
+
+          IF (field_glo(ind_glo)%ndim==2) THEN
+            CALL MPI_BCAST(field_glo(ind_glo)%rval2d, size(field_glo(ind_glo)%rval2d) , MPI_REAL8, 0, comm_icosa, ierr)
+          ELSE IF (field_glo(ind_glo)%ndim==3) THEN
+            CALL MPI_BCAST(field_glo(ind_glo)%rval3d, size(field_glo(ind_glo)%rval3d) , MPI_REAL8, 0, comm_icosa, ierr)
+          ELSE IF (field_glo(ind_glo)%ndim==4) THEN
+            CALL MPI_BCAST(field_glo(ind_glo)%rval4d, size(field_glo(ind_glo)%rval4d) , MPI_REAL8, 0, comm_icosa, ierr)
+          ENDIF
+         
+        ENDDO
+      ENDIF
+        
+  END SUBROUTINE bcast_field
 
   SUBROUTINE scatter_field(field_glo,field_loc)