Ignore:
Timestamp:
01/20/17 21:33:40 (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

    r524 r525  
    505505         phi=f_geopot(ind) 
    506506         ue=f_ue(ind) 
    507          DO l=1,llm 
     507         DO l=ll_begin,ll_end 
    508508            DO ij=ij_begin,ij_end 
    509509               CALL relax(t_right, u_right) 
Note: See TracChangeset for help on using the changeset viewer.