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/dyn3dpar/gcm.F

    r222 r227  
    599599c       write(78,*) 'q',q 
    600600 
    601 c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/) 
     601!c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/) 
     602!variable temps no longer exists 
     603c$OMP PARALLEL DEFAULT(SHARED) 
     604c$OMP1 COPYIN(/temps_r/,/temps_i/,/temps_c/,/logici/,/logicl/) 
    602605      CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,q, 
    603606     .              time_0) 
Note: See TracChangeset for help on using the changeset viewer.