Changeset 203 for trunk/procs/mth_decode.pro

Timestamp:

01/25/10 14:44:20 (14 years ago)

Author:

pinsard

Message:

remove trailing blanks

File:

• trunk/procs/mth_decode.pro (modified) (2 diffs)

trunk/procs/mth_decode.pro

@@ -24 +24 @@
          '12': strd = [12]
          ELSE : CASE STRMID(stddev_mth, 0, 3) OF
-         'DJF': BEGIN & strd = [1, 2, 12] & ntxt = 'DJF' & END   
-         'MAM': BEGIN & strd = [3, 4, 5] & ntxt = 'MAM' & END 
-         'JJA': BEGIN & strd = [6, 7, 8] & ntxt = 'JJA' & END 
-         'SON': BEGIN & strd = [9, 10, 11] & ntxt = 'SON' & END 
+         'DJF': BEGIN & strd = [1, 2, 12] & ntxt = 'DJF' & END
+         'MAM': BEGIN & strd = [3, 4, 5] & ntxt = 'MAM' & END
+         'JJA': BEGIN & strd = [6, 7, 8] & ntxt = 'JJA' & END
+         'SON': BEGIN & strd = [9, 10, 11] & ntxt = 'SON' & END
             ELSE: CASE STRMID(stddev_mth, 0, 6) OF
-               'JASOND' : BEGIN & strd = [7, 8, 9, 10, 11, 12] & ntxt = 'JASOND' & END 
-               'JFMAMJ' : BEGIN & strd = [1, 2, 3, 4, 5, 6] & ntxt = 'JFMAMJ' & END 
-            ELSE : BEGIN & strd = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12] & ntxt = 'Annual' & END 
-            ENDCASE 
+               'JASOND' : BEGIN & strd = [7, 8, 9, 10, 11, 12] & ntxt = 'JASOND' & END
+               'JFMAMJ' : BEGIN & strd = [1, 2, 3, 4, 5, 6] & ntxt = 'JFMAMJ' & END
+            ELSE : BEGIN & strd = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12] & ntxt = 'Annual' & END
+            ENDCASE
          ENDCASE
       ENDCASE
@@ -38 +38 @@
       nmth = (size(strd))[1]
       njpt = n_elements((lindgen(jpt))[0:*:12])
-      IF debug_w THEN print, '   nmth,njpt', nmth, njpt 
-      
+      IF debug_w THEN print, '   nmth,njpt', nmth, njpt
+
       idxm = lonarr(nmth, njpt)
 
-      FOR imth = 0, nmth-1 DO BEGIN 
+      FOR imth = 0, nmth-1 DO BEGIN
          idxm[imth, *]= (lindgen(jpt))[strd[imth]-1:*:12]
-      ENDFOR 
+      ENDFOR
 
       IF nmth EQ 1 THEN ntxt = mth[strd-1]
-      
+
       print, '    Warning: monthly computation and average for following period: ', ntxt