Changeset 238 for trunk/SRC/Utilities/fitintobox.pro

Timestamp:

03/27/07 15:43:18 (17 years ago)

Author:

pinsard

Message:

improvements/corrections of some *.pro headers

File:

• trunk/SRC/Utilities/fitintobox.pro (modified) (5 diffs)

trunk/SRC/Utilities/fitintobox.pro

@@ -47 +47 @@
     RETURN, report(['Error: ' $
                   , 'the vector size (' + tostr(sz) + ') is incompatible' $
-                  , 'with the the domain dimensions ' $
+                  , 'with the domain dimensions ' $
                   , '[jpi/nx, jpj/ny, jpk/nz, jpt] = [' $
                   + strtrim(jpi, 1) + '/' + strtrim(nx, 1) $
@@ -55 +55 @@
   RETURN, report(['Error: ' $
                   , 'the array dimensions ' + tostr(sz) + ' are incompatible' $
-                  , 'with the the domain dimensions ' $
+                  , 'with the domain dimensions ' $
                   , '[jpi/nx, jpj/ny, jpk/nz, jpt] = [' $
                   + strtrim(jpi, 1) + '/' + strtrim(nx, 1) $
@@ -97 +97 @@
 ; or -1 if there is an error...
 ;
-; @uses 
+; @uses
 ; cm_4mesh
 ; cm_4cal
@@ -107 +107 @@
 ; Error:
 ; the array dimensions [180,148,78] are incompatible
-; with the the domain dimensions
+; with the domain dimensions
 ; [jpi/nx, jpj/ny, jpk/nz, jpt] = [180/41, 148/3, 31/31, 1]
 ; <Expression>    INT       =       -1
@@ -118 +118 @@
 ; @version
 ; $Id$
+;
 ;-
 ;