Changeset 226 for trunk/SRC/Grid/checkperio.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Grid/checkperio.pro (modified) (23 diffs)

trunk/SRC/Grid/checkperio.pro

@@ -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 +38 @@
 ; @history
 ; October 2006: Sebastien Masson (smasson\@locean-ipsl.upmc.fr)
-;    
+;
 ; @version
 ; $Id$
@@ -44 +44 @@
 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 +53 @@
 ;
   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 +68 @@
 ; 2D VAR
 ;------------------------------
-        2:BEGIN 
+        2:BEGIN
 ; y periodicity (1)
           CASE 1 OF
@@ -75 +75 @@
               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 +85 @@
               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 +99 @@
               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 +112 @@
           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 +120 @@
           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 +129 @@
 ; 3D VAR
 ;------------------------------
-        3:BEGIN 
+        3:BEGIN
           jpk = vdimsz[2]
 ; y periodicity (1)
@@ -138 +138 @@
               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 +149 @@
               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 +163 @@
               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 +176 @@
           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 +184 @@
           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 +193 @@
 ; 4D VAR
 ;------------------------------
-        4:BEGIN 
+        4:BEGIN
           jpk = vdimsz[2]
           jpt = vdimsz[3]
@@ -203 +203 @@
               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 +214 @@
               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 +228 @@
               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 +241 @@
           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 +249 @@
           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 +257 @@
         ELSE:print, vinq.name+' nothing to check'
       ENDCASE
-    ENDIF    
+    ENDIF
   ENDFOR