Ignore:
Timestamp:
Sep 20, 2006, 12:12:39 PM (18 years ago)
Author:
Laurent Fairhead
Message:

Nouvelles versions de la dynamique YM
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/V3_test/libf/dyn3dpar/tourpot_p.F

    r630 r709  
    3131      INTEGER l, ij ,ije,ijb,jje,jjb
    3232
    33       EXTERNAL filtreg_p
    34 
    3533
    3634      ijb=ij_begin-iip1
    … …  
    4543
    4644c    ........  Calcul du rotationnel du vent V  puis filtrage  ........
    47 
     45c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)
    4846      DO 5 l = 1,llm
    4947
    … …  
    6563
    6664   5  CONTINUE
    67 
     65c$OMP END DO NOWAIT
    6866      jjb=jj_begin-1
    6967      jje=jj_end
    … …  
    7371      CALL  filtreg_p( rot, jjb,jje,jjm, llm, 2, 1, .FALSE., 1 )
    7472
    75      
     73c$OMP DO SCHEDULE(STATIC,OMP_CHUNK)     
    7674      DO 10 l = 1, llm
    7775     
    … …  
    9189
    9290  10  CONTINUE
    93 
     91c$OMP END DO NOWAIT
    9492      RETURN
    9593      END
Note: See TracChangeset for help on using the changeset viewer.