Ignore:
Timestamp:
07/27/12 16:01:28 (12 years ago)
Author:
ymipsl
Message:

Some bug correction for parallelism

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/transfert_mpi.f90

    r26 r31  
    794794 
    795795          ELSE IF (field_glo(ind_glo)%ndim==4) THEN 
    796             CALL MPI_IRECV(field_glo(ind_glo)%rval4d,size(field_glo(ind_glo)%rval3d) , MPI_REAL8 ,   & 
     796            CALL MPI_IRECV(field_glo(ind_glo)%rval4d,size(field_glo(ind_glo)%rval4d) , MPI_REAL8 ,   & 
    797797                         domglo_rank(ind_glo),domglo_loc_ind(ind_glo), comm_icosa, mpi_req(ireq), ierr) 
    798798          ENDIF 
Note: See TracChangeset for help on using the changeset viewer.