Changeset 114 for trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

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

File:

• trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/PLOTS/VECTEUR/ajoutvect.pro

@@ -54 +54 @@
 ;------------------------------------------------------------
 pro ajoutvect,vecteur, vectlegende, UNVECTSUR=unvectsur,VECTMIN=vectmin, VECTMAX=vectmax, _EXTRA = ex
+;
+  compile_opt idl2, strictarrsubs
+;
 @common
    tempsun = systime(1)         ; pour key_performance
@@ -128 +131 @@
 ; construction de u et v aux pts T
 ;-----------------------------------------------------------
-      a=u(0,*)
+      a=u[0,*]
       u=(u+shift(u,1,0))/2.
-      if NOT keyword_set(key_periodic) OR nx NE jpi then u(0,*)=a
-      a=v(*,0)
+      if NOT keyword_set(key_periodic) OR nx NE jpi then u[0,*]=a
+      a=v[*,0]
       v=(v+shift(v,0,1))/2.
-      if NOT keyword_set(key_periodic) OR nx NE jpi then v(*,0)=a
+      if NOT keyword_set(key_periodic) OR nx NE jpi then v[*,0]=a
 ;----------------------------------------------------------------------------
 ; attribution du mask et des tableau de longitude et latitude
@@ -191 +194 @@
    if interpolle then t2 = msku*shift(msku,1,0)*mskv*shift(mskv,0,1) $
    ELSE t2 = tmask[firstxt:lastxt,firstyt:lastyt,firstzt]
-   if NOT keyword_set(key_periodic) OR nx NE jpi then t2(0, *)=0.
-   t2(*,0)=0.
+   if NOT keyword_set(key_periodic) OR nx NE jpi then t2[0, *]=0.
+   t2[*,0]=0.
    terre=where(t2 eq 0)
    if terre[0] ne -1 then begin
-      u(terre)=1e5
-      v(terre)=1e5
+      u[terre]=1e5
+      v[terre]=1e5
    ENDIF
 ;-----------------------------------------------------------