Ignore:
Timestamp:
01/20/17 17:56:04 (7 years ago)
Author:
dubos
Message:

OMP fix for Rayleigh friction

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/trunk/src/dissip_gcm.f90

    r523 r524  
    3434  INTEGER, SAVE :: rayleigh_friction_type, rayleigh_shear 
    3535!$OMP THREADPRIVATE(rayleigh_friction_type) 
     36!$OMP THREADPRIVATE(rayleigh_shear) 
    3637  REAL, SAVE    :: rayleigh_tau 
    37 !$OMP THREADPRIVATE(rayleigh_shear) 
     38!$OMP THREADPRIVATE(rayleigh_tau) 
    3839   
    3940  REAL,SAVE    :: dtdissip 
Note: See TracChangeset for help on using the changeset viewer.