Ignore:
Timestamp:
07/18/14 18:39:52 (10 years ago)
Author:
ymipsl
Message:

Small fix for openMP

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r227 r240  
    205205         IF(.not.ALLOCATED(nueffrad)) allocate(nueffrad(ngrid,nlayer,naerkind)) 
    206206 
     207!$OMP MASTER 
    207208         call system('rm -f surf_vals_long.out') 
    208  
     209!$OMP END MASTER 
    209210         if(naerkind.gt.4)then 
    210211            print*,'Code not general enough to deal with naerkind > 4 yet.' 
Note: See TracChangeset for help on using the changeset viewer.