Changeset 140 for trunk

Timestamp:

06/09/09 17:42:32 (15 years ago)

Author:

ericg

Message:

Added error message in trends if jpt MOD running <> 0

File:

• trunk/procs/trends.pro (modified) (3 diffs)

trunk/procs/trends.pro

@@ -114 +114 @@
          IF strlen(trend_type) GT 1 THEN $
           running = long(strmid(trend_type, 1, strlen(trend_type)-1)) ELSE running = 1
+
+         ; check that jpt is a multiple of running
+         IF NOT keyword_set(silent) THEN print, '      jpt MOD running = ', jpt, running, jpt MOD running
+
+         IF (jpt MOD running) NE 0 THEN BEGIN 
+            print, ' *** ERROR: jpt (number of dates) is not a multiple of <n> in @t4<n>', jpt, running, jpt MOD running
+            stop
+         ENDIF 
 
          IF (size(fld))[0] EQ 1 THEN BEGIN ; 1D time serie
@@ -202 +210 @@
          ENDIF ELSE BEGIN                  ; hovmoeller
             ; build array to remove from time serie
-            IF debug_w THEN print, '  anomaly = remove average running mean (hovmoeller)'
+            IF NOT keyword_set(silent)  THEN print, '  anomaly = remove average running mean (hovmoeller)'
             CASE type OF
                'xt': BEGIN
@@ -381 +389 @@
    ENDIF 
    
-   IF debug_w THEN print, '   Vargrid : ',  vargrid
-   IF debug_w THEN print, '   Leaving trends.pro'
+   IF NOT keyword_set(silent)  THEN print, '   Vargrid : ',  vargrid
+   IF NOT keyword_set(silent)  THEN print, '   Leaving trends.pro'
 
    return, fld