Changeset 236 for trunk/SRC/Interpolation/get_gridparams.pro

Timestamp:

03/21/07 18:18:44 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro #2

File:

• trunk/SRC/Interpolation/get_gridparams.pro (modified) (6 diffs)

trunk/SRC/Interpolation/get_gridparams.pro

@@ -87 +87 @@
 ; get longitude and latitude
       IF file_test(in1) EQ 0 THEN BEGIN
-        print, 'file ' + in1 + ' does not exist'
+        ras = report('file ' + in1 + ' does not exist')
         stop
       ENDIF
@@ -102 +102 @@
     END
     ELSE:BEGIN
-      print, 'Bad nimber of input parameters'
+      ras = report('Bad number of input parameters')
       stop
     end
@@ -140 +140 @@
         1:BEGIN
           IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN
-            print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes'
+            ras = report('Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes')
             stop
           ENDIF
@@ -161 +161 @@
         1:BEGIN
           IF array_equal(lat, replicate(1, jpi) # lat[0, *]) NE 1 THEN BEGIN
-            print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes'
+            ras = report('Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes')
             stop
           ENDIF
@@ -182 +182 @@
         1:BEGIN
           IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN
-            print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes'
+            ras = report('Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes')
             stop
           ENDIF
           lon = lon[*, 0]
           IF array_equal(lat, replicate(1, jpi) # reform(lat[0, *])) NE 1 THEN BEGIN
-            print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes'
+            ras = report('Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes')
             stop
           ENDIF
@@ -199 +199 @@
 ; lon and lat are not 1D and/or 2D arrays
 ;-------
-    ELSE:stop
+    ELSE: BEGIN
+             ras = report('Longitudes and latitudes are not 1D and/or 2D arrays')
+             stop
+          END
   ENDCASE
 ;