Changeset 205 for trunk/procs/mask_z.pro

Timestamp:

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

Author:

pinsard

Message:

homegenize THEN BEGIN ... ENDIF

File:

• trunk/procs/mask_z.pro (modified) (8 diffs)

trunk/procs/mask_z.pro

@@ -179 +179 @@
       'oce': BEGIN
 
-         IF splot EQ 1 THEN vertical_domain = [sig_min, sig_max] ELSE vertical_domain = [0, depth_z]
+         IF splot EQ 1 THEN BEGIN
+          vertical_domain = [sig_min, sig_max]
+         ENDIF ELSE BEGIN
+          vertical_domain = [0, depth_z]
+         ENDELSE
 
          CASE data_domain OF
             'equator': BEGIN
                tmask[*, *, *] = 1
-               IF dimplot EQ 1 THEN boite_pltz = box_h
-               IF dimplot EQ 2 THEN boite_pltz = [box_h, vertical_domain]
+               IF dimplot EQ 1 THEN BEGIN
+                boite_pltz = box_h
+               ENDIF
+               IF dimplot EQ 2 THEN BEGIN
+                boite_pltz = [box_h, vertical_domain]
+               ENDIF
             END
             'zonal': BEGIN
@@ -192 +200 @@
                 boite_pltz = zbox
                 IF dimplot EQ 2 THEN BEGIN
-                   IF n_elements(boite_pltz) EQ 4 THEN boite_pltz = [zbox, vertical_domain]
+                   IF n_elements(boite_pltz) EQ 4 THEN BEGIN
+                    boite_pltz = [zbox, vertical_domain]
+                   ENDIF
                 ENDIF
-;               IF dimplot EQ 1 THEN boite_pltz = box_h
-;               IF dimplot EQ 2 THEN boite_pltz = [box_h,
-;               vertical_domain]
+;               IF dimplot EQ 1 THEN BEGIN
+;                boite_pltz = box_h
+;               ENDIF
+;               IF dimplot EQ 2 THEN BEGIN
+;                boite_pltz = [box_h,vertical_domain]
+;               ENDIF
+
                 idxmsk=where(fld eq valmask)
                 IF idxmsk[0] ne -1 THEN BEGIN
@@ -220 +234 @@
                         tmask = tmask*maskzm
                      ENDIF
-                     IF dimplot EQ 1 THEN boite_pltz = box_h
+                     IF dimplot EQ 1 THEN BEGIN
+                      boite_pltz = box_h
+                     ENDIF
                      IF dimplot EQ 2 THEN BEGIN
                         CASE strmid(cmd.plt, 1, 1) OF
@@ -251 +267 @@
                            maskzm = maskread(full_name, 'orca', /D3)
                            tmask = tmask*maskzm
-                           IF dimplot EQ 1 THEN boite_pltz = box_h
+                           IF dimplot EQ 1 THEN BEGIN
+                            boite_pltz = box_h
+                           ENDIF
                            IF dimplot EQ 2 THEN BEGIN
                               CASE strmid(cmd.plt, 1, 1) OF
@@ -275 +293 @@
                            CASE strmid(cmd.plt, 1, 1) OF
                               't': boite_pltz = zbox
-                              ELSE : IF n_elements(boite_pltz) EQ 4 THEN boite_pltz = [zbox, vertical_domain]
+                              ELSE : IF n_elements(boite_pltz) EQ 4 THEN BEGIN
+                                      boite_pltz = [zbox, vertical_domain]
+                                     ENDIF
                            ENDCASE
                         ENDIF
@@ -285 +305 @@
                                     'x': boite_pltz = zbox
                                     'y': boite_pltz = zbox
-                                    ELSE: IF n_elements(boite_pltz) EQ 4 THEN boite_pltz = [zbox, vertical_domain]
+                                    ELSE: IF n_elements(boite_pltz) EQ 4 THEN BEGIN
+                                            boite_pltz = [zbox, vertical_domain]
+                                          ENDIF
                                  ENDCASE
                               END
@@ -312 +334 @@
       ELSE: BEGIN ; atmosphere or data
 
-;         IF masked_data EQ 0 THEN tmask[*] = 1
+;         IF masked_data EQ 0 THEN BEGIN
+;          tmask[*] = 1
+;         ENDIF
          CASE strmid(cmd.plt, 0, 2) OF
             'xy': BEGIN & char = strmid(cmd.plt,3, 1) & ideb = 4 & END
@@ -356 +380 @@
                CASE strmid(cmd.plt, 1, 1) OF
                   't': boite_pltz = zbox
-                  ELSE : IF n_elements(boite_pltz) EQ 4 THEN boite_pltz = [zbox, pres_min, pres_max]
+                  ELSE : IF n_elements(boite_pltz) EQ 4 THEN BEGIN
+                          boite_pltz = [zbox, pres_min, pres_max]
+                         ENDIF
                ENDCASE
             ENDIF