Changeset 205 for trunk/procs/macros/make_transfo.pro

Timestamp:

01/26/10 10:46:13 (14 years ago)

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/macros/make_transfo.pro (modified) (2 diffs)

trunk/procs/macros/make_transfo.pro

@@ -106 +106 @@
    idxt=where(sst eq valmask)
    idxs=where(sss eq valmask)
-   IF idxt[0] NE -1 THEN sst[idxt]=0.
-   IF idxs[0] NE -1 THEN sss[idxs]=0.
+   IF idxt[0] NE -1 THEN BEGIN
+    sst[idxt]=0.
+   ENDIF
+   IF idxs[0] NE -1 THEN BEGIN
+    sss[idxs]=0.
+   ENDIF
 
 ; Compute potential density (sigma_0)
 
    rho0 = eos[sst, sss]-1000.
-   IF idxs[0] NE -1 THEN rho0[idxt] = valmask
+   IF idxs[0] NE -1 THEN BEGIN
+    rho0[idxt] = valmask
+   ENDIF
 
 ; Define density grid
@@ -125 +131 @@
    jpj = sizef[2]
    jpt = 1
-   IF sizef[0] EQ 3 THEN jpt = sizef[3]
+   IF sizef[0] EQ 3 THEN BEGIN
+    jpt = sizef[3]
+   ENDIF
 
    dt = 1./float(jpt)            ; integration delta time