Changeset 2034


Ignore:
Timestamp:
May 2, 2014, 11:13:29 AM (10 years ago)
Author:
fhourdin
Message:

Correction pour compilation mixte MPI/OpenMP
Bug fixing for mixt MPI/OpenMP compilation.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/guide_loc_mod.F90

    r2028 r2034  
    21442144    CALL Gather_field_u(alpha_u,zu,1)
    21452145    CALL Gather_field_v(alpha_v,zv,1)
     2146!$OMP END MASTER
     2147!$OMP BARRIER
    21462148
    21472149    IF (mpi_rank /= 0) RETURN
    21482150   
     2151!$OMP MASTER
    21492152!   print *,'Guide: output timestep',timestep,'var ',varname
    21502153    IF (timestep.EQ.0) THEN
Note: See TracChangeset for help on using the changeset viewer.