Changeset 480


Ignore:
Timestamp:
2011-09-21T15:05:29+02:00 (11 years ago)
Author:
didier.solyga
Message:

Thanks to Martial, correct bcast for the array of characters.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ORCHIDEE_EXT/ORCHIDEE/src_parallel/transfert_para.f90

    r461 r480  
    6868  IMPLICIT NONE 
    6969    CHARACTER(LEN=*),INTENT(INOUT) :: Var 
    70     CHARACTER(LEN=100),DIMENSION(1) :: Var1 
     70!    CHARACTER(LEN=100),DIMENSION(1) :: Var1 
     71    CHARACTER(LEN=len(Var)),DIMENSION(1) :: Var1     
    7172#ifndef CPP_PARA 
    7273    RETURN 
     
    20012002         WRITE(numout,*) "bcast_cgen before bcast Var",Var 
    20022003    IF (flag) CALL suspend_timer(timer_mpi) 
    2003     CALL MPI_BCAST(Var,nb,MPI_CHARACTER,root_prc,MPI_COMM_ORCH,ierr) 
     2004!   CALL MPI_BCAST(Var,nb,MPI_CHARACTER,root_prc,MPI_COMM_ORCH,ierr) 
     2005    !>>  DS : correction thanks to MM  
     2006    CALL MPI_BCAST(Var,nb*LEN(Var(1)),MPI_CHARACTER,root_prc,MPI_COMM_ORCH,ierr) 
    20042007    IF (flag) CALL resume_timer(timer_mpi) 
    20052008    IF (check) & 
Note: See TracChangeset for help on using the changeset viewer.