Ignore:
Timestamp:
Sep 24, 2014, 5:41:01 PM (10 years ago)
Author:
milmd
Message:

LMDZ.GENERIC. LMDZ.COMMON. OpenMP directives: correction of bugs mentioned in 1315 commit.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3dpar/addfi_p.F

    r1238 r1348  
    9696         ENDDO
    9797      ENDDO
    98 c$OMP END DO NOWAIT
     98c$OMP END DO
    9999
    100100      if (pole_nord) then
    … …  
    110110         ENDDO
    111111       ENDDO
    112 c$OMP END DO NOWAIT
     112c$OMP END DO
    113113      endif
    114114
    … …  
    125125         ENDDO
    126126       ENDDO
    127 c$OMP END DO NOWAIT
     127c$OMP END DO
    128128      endif
    129129c
    … …  
    136136        ENDDO
    137137      ENDDO
    138 c$OMP END DO NOWAIT
     138c$OMP END DO
    139139!***********************
    140140
    … …  
    150150         ENDDO
    151151      ENDDO
    152 c$OMP END DO NOWAIT
     152c$OMP END DO
    153153
    154154      if (pole_nord) ijb=ij_begin
    … …  
    160160         ENDDO
    161161      ENDDO
    162 c$OMP END DO NOWAIT
     162c$OMP END DO
    163163
    164164c
    … …  
    180180            ENDDO
    181181         ENDDO
    182 c$OMP END DO NOWAIT
     182c$OMP END DO
    183183       ENDDO
    184184
    … …  
    191191            ENDDO
    192192         ENDDO
    193 c$OMP END DO NOWAIT
     193c$OMP END DO
    194194       ENDDO
    195195      else
    … …  
    203203            ENDDO
    204204         ENDDO
    205 c$OMP END DO NOWAIT
     205c$OMP END DO
    206206       ENDDO
    207207      endif ! of if (planet_type=="earth")
    … …  
    250250            ENDDO
    251251          ENDDO
    252 c$OMP END DO NOWAIT       
     252c$OMP END DO
    253253        ENDDO
    254254      endif
    … …  
    267267            ENDDO
    268268          ENDDO
    269 c$OMP END DO NOWAIT       
     269c$OMP END DO
    270270        ENDDO
    271271      endif
Note: See TracChangeset for help on using the changeset viewer.