Index: trunk/SRC/Grid/checkperio.pro
===================================================================
--- trunk/SRC/Grid/checkperio.pro	(revision 197)
+++ trunk/SRC/Grid/checkperio.pro	(revision 226)
@@ -8,8 +8,8 @@
 ; @param file {in}{required}{type=scalar string}
 ; A string giving the name of the NetCdf file
-; 
+;
 ; @keyword WRITE {default=0}{type=scalar: 0 or 1}
 ; Define to 1 to write the good periodicity in the file.
-; By default print only mesage of periodicity errors
+; By default print only message of periodicity errors
 ;
 ; @restrictions
@@ -38,5 +38,5 @@
 ; @history
 ; October 2006: Sebastien Masson (smasson\@locean-ipsl.upmc.fr)
-;    
+;
 ; @version
 ; $Id$
@@ -44,5 +44,5 @@
 PRO checkperio, file, WRITE = write
 
-  IF file_test(file) EQ 0 THEN BEGIN 
+  IF file_test(file) EQ 0 THEN BEGIN
     print, 'file '+file+' not found'
     RETURN
@@ -53,10 +53,10 @@
 ;
   dimsz = lonarr(finq.ndims)
-  FOR did = 0, finq.ndims-1 DO BEGIN 
+  FOR did = 0, finq.ndims-1 DO BEGIN
     ncdf_diminq, cdfid, did, name, size
     dimsz[did] = size
   ENDFOR
 ;
-  FOR vid = 0, finq.nvars-1 DO BEGIN 
+  FOR vid = 0, finq.nvars-1 DO BEGIN
     vinq =  ncdf_varinq(cdfid, vid)
     IF vinq.ndims GE 2 THEN BEGIN
@@ -68,5 +68,5 @@
 ; 2D VAR
 ;------------------------------
-        2:BEGIN 
+        2:BEGIN
 ; y periodicity (1)
           CASE 1 OF
@@ -75,5 +75,5 @@
               ncdf_varget, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-3]
               part2 = reverse(shift(part2, -1))
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -85,5 +85,5 @@
               ncdf_varget, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-2]
               part2 = reverse(part2)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -99,5 +99,5 @@
               ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1], offset = [          2, jpj-2]
               part2 = reverse(part2)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (2)'
                 IF keyword_set(write) THEN $
@@ -112,5 +112,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj], offset = [0, 0]
           ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [jpi-2, 0]
-          IF array_equal(part1, part2) NE 1 THEN BEGIN 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (1)'
             IF keyword_set(write) THEN $
@@ -120,5 +120,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj], offset = [jpi-1, 0]
           ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [1, 0]
-          IF array_equal(part1, part2) NE 1 THEN BEGIN 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (2)'
             IF keyword_set(write) THEN $
@@ -129,5 +129,5 @@
 ; 3D VAR
 ;------------------------------
-        3:BEGIN 
+        3:BEGIN
           jpk = vdimsz[2]
 ; y periodicity (1)
@@ -138,5 +138,5 @@
               IF jpk EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, /over)
               part2 = reverse(shift(part2, -1, 0, 0), 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -149,5 +149,5 @@
               IF jpk EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, /over)
               part2 = reverse(part2, 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -163,5 +163,5 @@
               ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk], offset = [          2, jpj-2, 0]
               part2 = reverse(part2, 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (2)'
                 IF keyword_set(write) THEN $
@@ -176,5 +176,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk], offset = [0, 0, 0]
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-2, 0, 0]
-          IF array_equal(part1, part2) NE 1 THEN BEGIN 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (1)'
             IF keyword_set(write) THEN $
@@ -184,5 +184,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk], offset = [jpi-1, 0, 0]
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [1, 0, 0]
-          IF array_equal(part1, part2) NE 1 THEN BEGIN 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (2)'
             IF keyword_set(write) THEN $
@@ -193,5 +193,5 @@
 ; 4D VAR
 ;------------------------------
-        4:BEGIN 
+        4:BEGIN
           jpk = vdimsz[2]
           jpt = vdimsz[3]
@@ -203,5 +203,5 @@
               IF jpt EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, jpt, /over)
               part2 = reverse(shift(part2, -1, 0, 0, 0), 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -214,5 +214,5 @@
               IF jpt EQ 1 THEN part2 = reform(part2, jpi-2, 1, jpk, jpt, /over)
               part2 = reverse(part2, 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (1)'
                 IF keyword_set(write) THEN $
@@ -228,5 +228,5 @@
               ncdf_varget, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk, jpt], offset = [          2, jpj-2, 0, 0]
               part2 = reverse(part2, 1)
-              IF array_equal(part1, part2) NE 1 THEN BEGIN 
+              IF array_equal(part1, part2) NE 1 THEN BEGIN
                 print, vinq.name+' bad y periodicity (2)'
                 IF keyword_set(write) THEN $
@@ -241,5 +241,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk, jpt], offset = [0, 0, 0, 0]
           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 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (1)'
             IF keyword_set(write) THEN $
@@ -249,5 +249,5 @@
           ncdf_varget, cdfid, vid, part1, count = [1, jpj, jpk, jpt], offset = [jpi-1, 0, 0, 0]
           ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [1, 0, 0, 0]
-          IF array_equal(part1, part2) NE 1 THEN BEGIN 
+          IF array_equal(part1, part2) NE 1 THEN BEGIN
             print, vinq.name+' bad x periodicity (2)'
             IF keyword_set(write) THEN $
@@ -257,5 +257,5 @@
         ELSE:print, vinq.name+' nothing to check'
       ENDCASE
-    ENDIF    
+    ENDIF
   ENDFOR
 
