Ignore:
Timestamp:
Jul 16, 2024, 11:48:33 AM (11 months ago)
Author:
abarral
Message:

Replaced barely used omp_barrier subroutine by omp instruction
Remove duplicated omp_barrier call

File:
1 edited

Legend:

Unmodified
Added
Removed
  • TabularUnified LMDZ6/trunk/libf/phy_common/mod_phys_lmdz_omp_transfert.F90

    r4868 r5057  
    5656
    5757CONTAINS
    58 
    59   SUBROUTINE omp_barrier
    60   IMPLICIT NONE
    61 
    62 !$OMP BARRIER
    63 
    64   END SUBROUTINE omp_barrier
    6558 
    6659  SUBROUTINE check_buffer_i(buff_size)
     
    116109!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    117110
    118 !! -- Les chaine de charactère -- !!
     111!! -- Les chaine de charactre -- !!
    119112
    120113  SUBROUTINE bcast_omp_c(var)
Note: See TracChangeset for help on using the changeset viewer.