Ignore:
Timestamp:
Nov 30, 2016 2:34:05 PM (5 years ago)
Author:
raasch
Message:

mostly openmp related bugfixes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poismg_mod.f90

    r2038 r2073  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! change of openmp directives in restrict
    2323!
    2424! Former revisions:
     
    431431!--    No wall treatment
    432432       !$OMP PARALLEL PRIVATE (i,j,k,ic,jc,kc,km1,kp1)
     433       !$OMP DO SCHEDULE( STATIC )
    433434       DO  ic = nxl_mg(l), nxr_mg(l)
    434435          i = 2*ic
    435           !$OMP DO SCHEDULE( STATIC )
    436436          DO  jc = nys_mg(l), nyn_mg(l)
    437437!
     
    465465             ENDDO
    466466          ENDDO
    467           !$OMP ENDDO nowait
    468467       ENDDO
     468       !$OMP ENDDO
    469469       !$OMP END PARALLEL
    470470
Note: See TracChangeset for help on using the changeset viewer.