Changeset 169 for trunk/tools/density_binning/density_bin_IDL_gm/msf.pro

Timestamp:

11/16/09 15:39:10 (15 years ago)

Author:

pinsard

Message:

add compile_opt idl2, strictarrsubs and subsequent modifications

File:

• trunk/tools/density_binning/density_bin_IDL_gm/msf.pro (modified) (4 diffs)

trunk/tools/density_binning/density_bin_IDL_gm/msf.pro

@@ -14 +14 @@
 PRO msf, v, sf $
     , MSK=msk
+;
+  compile_opt idl2, strictarrsubs
 ;
 @common
@@ -34 +36 @@
 IF n_elements(msk) NE 0 THEN BEGIN 
       zvmask = boundperio( (msk +shift(msk, 0, -1) ) < 1 )
-      zvmask = zvmask(*)#vert
+      zvmask = zvmask[*]#vert
       zv = zv*zvmask
 ENDIF 
@@ -44 +46 @@
 ;  calcul du flux
 ;
-FOR i = 0, jpi-1 DO BEGIN for j= 0, jpj-1 do begin ze1v(i,j,*) = replicate(e1v(i,j),jpk) & endfor &endfor
-FOR k = 0, jpk-1 DO BEGIN ze3v(*,*,k)=replicate(e3t(k),jpi*jpj) & endfor
+FOR i = 0, jpi-1 DO BEGIN for j= 0, jpj-1 do begin ze1v[i,j,*] = replicate(e1v[i,j],jpk) & endfor &endfor
+FOR k = 0, jpk-1 DO BEGIN ze3v[*,*,k]=replicate(e3t[k],jpi*jpj) & endfor
 ;
 z= -v*ze1v*ze3v
@@ -55 +57 @@
 ;  calcul de la msf en integrant depuis le fond
 ;
-FOR k = jpk-2, 0, -1 DO begin sf(*, k) = sf(*, k+1)+fm(*, k) & endfor
+FOR k = jpk-2, 0, -1 DO begin sf[*, k] = sf[*, k+1]+fm[*, k] & endfor
 ;
 ;  msfmsk est le masque associe a msf (utilise pour les graphiques)