Changeset 707


Ignore:
Timestamp:
07/20/18 11:08:31 (6 years ago)
Author:
ymipsl
Message:

OpenMP fix for function xios_read_var.
Only master thread must call XIOS and the result is broadcasted to other threads.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r548 r707  
    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.