Changeset 205 for codes/icosagcm/trunk


Ignore:
Timestamp:
07/09/14 16:19:55 (10 years ago)
Author:
ymipsl
Message:

bug fix : Missing openmp synchronisation : bad things may occurs when output field in openmp.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r186 r205  
    7878      TYPE(t_field),POINTER :: field_glo(:) 
    7979 
     80!$OMP BARRIER 
    8081!$OMP MASTER       
    8182      IF(PRESENT(once)) THEN 
    … …  
    105106      CALL deallocate_field_glo(field_glo) 
    106107!$OMP END MASTER 
     108!$OMP END BARRIER 
    107109       
    108110   END SUBROUTINE writefield 
Note: See TracChangeset for help on using the changeset viewer.