Ignore:
Timestamp:
06/27/13 15:52:55 (11 years ago)
Author:
dubos
Message:

Minor additions

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r159 r161  
    105105    err=0. 
    106106 
    107     dd=0 
     107    IF(comp) THEN 
     108       dd=1 
     109    ELSE 
     110       dd=0 
     111    END IF 
    108112 
    109113    DO l = ll_begin, ll_end 
Note: See TracChangeset for help on using the changeset viewer.