Ignore:
Timestamp:
May 19, 2011, 5:05:39 PM (14 years ago)
Author:
emillour
Message:

EM: suite mise au point discretisation verticale et quelques corrections de bugs dans le version de reference parallele.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/dyn3dpar/top_bound_p.F

    r110 r124  
    5050!     &   (/(0., i =1,llm-NDAMP),0.125E-5,.25E-5,.5E-5,1.E-5/)
    5151      LOGICAL,SAVE :: first=.true.
     52     
     53      REAL zkm
    5254      INTEGER j,l,jjb,jje
    5355
    … …  
    100102      IF (pole_sud) jje=jj_end-1
    101103
    102 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    103104      if (mode_top_bound.ge.2) then
     105!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    104106       do l=1,llm
    105107        do j=jjb,jje
    … …  
    116118        enddo
    117119       enddo
     120!$OMP END DO NOWAIT   
    118121      else
     122!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    119123       do l=1,llm
    120124        do j=jjb,jje
    … …  
    122126        enddo
    123127       enddo
    124       endif
    125 c$OMP END DO NOWAIT   
     128!$OMP END DO NOWAIT
     129      endif
    126130
    127131C   AMORTISSEMENTS LINEAIRES:
    128132
    129 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    130133      if (mode_top_bound.ge.1) then
     134!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    131135       do l=1,llm
    132136        do j=jjb,jje
    … …  
    136140        enddo
    137141       enddo
    138       endif
    139 c$OMP END DO NOWAIT
     142!$OMP END DO NOWAIT
     143      endif
    140144
    141145C POUR U ET H
    … …  
    148152      IF (pole_sud)  jje=jj_end-1
    149153
    150 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    151154      if (mode_top_bound.ge.2) then
     155!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    152156       do l=1,llm
    153157        do j=jjb,jje
    … …  
    161165        enddo
    162166       enddo
     167!$OMP END DO NOWAIT
    163168      else
     169!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    164170       do l=1,llm
    165171        do j=jjb,jje
    … …  
    167173        enddo
    168174       enddo
    169       endif
    170 c$OMP END DO NOWAIT
    171 
    172 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)   
     175!$OMP END DO NOWAIT
     176      endif
     177
    173178      if (mode_top_bound.ge.3) then
     179!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    174180       do l=1,llm
    175181        do j=jjb,jje
    … …  
    183189        enddo
    184190       enddo
    185       endif
    186 c$OMP END DO NOWAIT
     191!$OMP END DO NOWAIT
     192      endif
    187193
    188194C   AMORTISSEMENTS LINEAIRES:
    189195
    190 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    191196      if (mode_top_bound.ge.1) then
     197!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    192198       do l=1,llm
    193199        do j=jjb,jje
    … …  
    197203        enddo
    198204       enddo
    199       endif
    200 c$OMP END DO NOWAIT
     205!$OMP END DO NOWAIT
     206      endif
    201207     
    202 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    203208      if (mode_top_bound.ge.3) then
     209!$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    204210       do l=1,llm
    205211        do j=jjb,jje
    … …  
    209215        enddo
    210216       enddo
    211       endif
    212 c$OMP END DO NOWAIT
    213      
    214 
     217!$OMP END DO NOWAIT
     218      endif     
     219
     220!$OMP BARRIER
    215221      RETURN
    216222      END
Note: See TracChangeset for help on using the changeset viewer.