mod_synchro_omp.F90

Go to the documentation of this file.

MODULE mod_synchro_omp

  LOGICAL,SAVE,ALLOCATABLE :: flag_omp(:)
  
CONTAINS

  SUBROUTINE init_synchro_omp
  USE mod_phys_lmdz_para 
  IMPLICIT NONE
    
    IF (is_omp_root) THEN
      ALLOCATE(flag_omp(0:omp_size-1))
      flag_omp(:)=.false.
    ENDIF
!$OMP BARRIER

  END SUBROUTINE init_synchro_omp
  
  SUBROUTINE synchro_omp
  USE mod_phys_lmdz_para
  IMPLICIT NONE
  
    flag_omp(omp_rank)=.true.
!$OMP BARRIER
    DO WHILE (.NOT. all(flag_omp))
!$OMP BARRIER
    ENDDO
!$OMP BARRIER        
    flag_omp(omp_rank)=.false.
!$OMP BARRIER

   END SUBROUTINE synchro_omp

END MODULE mod_synchro_omp