Ignore:
Timestamp:
06/19/06 16:14:56 (18 years ago)
Author:
smasson
Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/ToBeReviewed/CALCULS/div.pro

    r25 r114  
    5454;------------------------------------------------------------ 
    5555FUNCTION div, uu, vv 
     56; 
     57  compile_opt idl2, strictarrsubs 
     58; 
    5659   tempsun = systime(1)         ; pour key_performance 
    5760@common 
    … …  
    139142;------------------------------------------------------------ 
    140143         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin 
    141             zdiv(0, *, *) = !values.f_nan 
    142             zdiv(nx-1, *, *) = !values.f_nan 
     144            zdiv[0, *, *] = !values.f_nan 
     145            zdiv[nx-1, *, *] = !values.f_nan 
    143146         endif 
    144          zdiv(*, 0, *) = !values.f_nan 
    145          zdiv(*, ny-1, *) = !values.f_nan 
     147         zdiv[*, 0, *] = !values.f_nan 
     148         zdiv[*, ny-1, *] = !values.f_nan 
    146149; 
    147150         zdiv = temporary(zdiv) 
    … …  
    213216;------------------------------------------------------------ 
    214217         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin 
    215             zdiv(0, *, *) = !values.f_nan 
    216             zdiv(nx-1, *, *) = !values.f_nan 
     218            zdiv[0, *, *] = !values.f_nan 
     219            zdiv[nx-1, *, *] = !values.f_nan 
    217220         endif 
    218          zdiv(*, 0, *) = !values.f_nan 
    219          zdiv(*, ny-1, *) = !values.f_nan 
     221         zdiv[*, 0, *] = !values.f_nan 
     222         zdiv[*, ny-1, *] = !values.f_nan 
    220223; 
    221224         if n_elements(valmask) EQ 0 THEN valmask = 1e20 
    … …  
    286289;------------------------------------------------------------ 
    287290         if  NOT keyword_set(key_periodic) OR nx NE jpi then begin 
    288             zdiv(0, *) = !values.f_nan 
    289             zdiv(nx-1, *) = !values.f_nan 
     291            zdiv[0, *] = !values.f_nan 
     292            zdiv[nx-1, *] = !values.f_nan 
    290293         endif 
    291          zdiv(*, 0) = !values.f_nan 
    292          zdiv(*, ny-1) = !values.f_nan 
     294         zdiv[*, 0] = !values.f_nan 
     295         zdiv[*, ny-1] = !values.f_nan 
    293296; 
    294297         zdiv = temporary(zdiv)*1e6 
Note: See TracChangeset for help on using the changeset viewer.