Ignore:
Timestamp:
08/22/18 17:28:01 (6 years ago)
Author:
dubos
Message:

devel : backported from trunk commits r707-r711,r713

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/output/xios_mod.F90

    r551 r726  
    463463 SUBROUTINE xios_read_var(name,field) 
    464464   USE prec 
     465   USE transfert_mod 
    465466   CHARACTER(LEN=*),INTENT(IN) :: name 
    466467   REAL(rstd), INTENT(OUT) :: field 
     468   !$OMP MASTER 
    467469   CALL xios_recv_field(name,field) 
     470   !$OMP END MASTER 
     471   CALL bcast_omp(field) 
    468472 END SUBROUTINE 
    469473 
Note: See TracChangeset for help on using the changeset viewer.