Ignore:
Timestamp:
07/16/14 18:05:01 (10 years ago)
Author:
milmd
Message:

Last LMDZ version (1315) with OpenMP directives and other stuff

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/setspv.F90

    r222 r227  
    6969         call abort 
    7070      endif 
    71      
     71         
     72!$OMP MASTER         
    7273      nb=0 
    7374      ierr=0 
    … …  
    9899      BWNV(L_NSPECTV)  =lastband(1) 
    99100      BWNV(L_NSPECTV+1)=lastband(2) 
    100  
     101!$OMP END MASTER 
     102!$OMP BARRIER 
    101103 
    102104      print*,'setspv: VI band limits:' 
Note: See TracChangeset for help on using the changeset viewer.