Index: trunk/SRC/Grid/checkperio.pro
===================================================================
--- trunk/SRC/Grid/checkperio.pro	(revision 232)
+++ trunk/SRC/Grid/checkperio.pro	(revision 236)
@@ -47,5 +47,5 @@
 
   IF file_test(file) EQ 0 THEN BEGIN
-    print, 'file '+file+' not found'
+    ras = report( 'file '+file+' not found')
     RETURN
   ENDIF
@@ -78,5 +78,5 @@
               part2 = reverse(shift(part2, -1))
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-1]
@@ -88,10 +88,10 @@
               part2 = reverse(part2)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-1]
               ENDIF
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; y periodicity (2)
@@ -102,5 +102,5 @@
               part2 = reverse(part2)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (2)'
+                ras = report( vinq.name+' bad y periodicity (2)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1], offset = [(jpi-1)/2+2, jpj-2]
@@ -109,5 +109,5 @@
             array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; x periodicity (1)
@@ -115,5 +115,5 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [jpi-2, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (1)'
+            ras = report( vinq.name+' bad x periodicity (1)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj], offset = [0, 0]
@@ -123,5 +123,5 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [1, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (2)'
+            ras = report( vinq.name+' bad x periodicity (2)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj], offset = [jpi-1, 0]
@@ -141,5 +141,5 @@
               part2 = reverse(shift(part2, -1, 0, 0), 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk], offset = [1, jpj-1, 0]
@@ -152,10 +152,10 @@
               part2 = reverse(part2, 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk], offset = [1, jpj-1, 0]
               ENDIF
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; y periodicity (2)
@@ -166,5 +166,5 @@
               part2 = reverse(part2, 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (2)'
+                ras = report( vinq.name+' bad y periodicity (2)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk], offset = [(jpi-1)/2+2, jpj-2, 0]
@@ -173,5 +173,5 @@
             array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; x periodicity (1)
@@ -179,5 +179,5 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-2, 0, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (1)'
+            ras = report( vinq.name+' bad x periodicity (1)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk], offset = [0, 0, 0]
@@ -187,5 +187,5 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [1, 0, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (2)'
+            ras = report( vinq.name+' bad x periodicity (2)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-1, 0, 0]
@@ -206,5 +206,5 @@
               part2 = reverse(shift(part2, -1, 0, 0, 0), 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk, jpt], offset = [1, jpj-1, 0, 0]
@@ -217,10 +217,10 @@
               part2 = reverse(part2, 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (1)'
+                ras = report( vinq.name+' bad y periodicity (1)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk, jpt], offset = [1, jpj-1, 0, 0]
               ENDIF
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; y periodicity (2)
@@ -231,5 +231,5 @@
               part2 = reverse(part2, 1)
               IF array_equal(part1, part2) NE 1 THEN BEGIN
-                print, vinq.name+' bad y periodicity (2)'
+                ras = report( vinq.name+' bad y periodicity (2)')
                 IF keyword_set(write) THEN $
                    ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk, jpt], offset = [(jpi-1)/2+2, jpj-2, 0, 0]
@@ -238,5 +238,5 @@
             array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05
             END
-            ELSE:print, vinq.name+' nothing to check'
+            ELSE:ras = report( vinq.name+' nothing to check')
           ENDCASE
 ; x periodicity (1)
@@ -244,5 +244,5 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [jpi-2, 0, 0, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (1)'
+            ras = report( vinq.name+' bad x periodicity (1)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [0, 0, 0, 0]
@@ -252,10 +252,10 @@
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [1, 0, 0, 0]
           IF array_equal(part1, part2) NE 1 THEN BEGIN
-            print, vinq.name+' bad x periodicity (2)'
+            ras = report( vinq.name+' bad x periodicity (2)')
             IF keyword_set(write) THEN $
                ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [jpi-1, 0, 0, 0]
           ENDIF
         END
-        ELSE:print, vinq.name+' nothing to check'
+        ELSE:ras = report( vinq.name+' nothing to check')
       ENDCASE
     ENDIF
