Changeset 240 for trunk/SRC/Grid

Timestamp:

03/28/07 14:17:24 (17 years ago)

Author:

pinsard

Message:

replace some print by some report in some .pro (continuation)

Location:

trunk/SRC/Grid

Files:

• computegrid.pro (modified) (1 diff)
• micromeshmask.pro (modified) (1 diff)
• ncdf_meshread.pro (modified) (2 diffs)
• ncdf_meshroms.pro (modified) (1 diff)
• numbisland.pro (modified) (1 diff)
• smallmeshmask.pro (modified) (1 diff)

trunk/SRC/Grid/computegrid.pro

@@ -608 +608 @@
 ; check that xtest is now sorted in the increasing order
       IF array_equal(sort(xtest), lindgen(jpi)) EQ 0 THEN BEGIN
-        print, 'WARNING: we cannot sort the xaxis with a simple shift...'
-        print, 'we force key_periodic = 0 and key_shift = 0'
-        print, 'only horizontal plot may be ok...'
+        ras = report(['WARNING: we cannot sort the xaxis with a simple shift...', $
+        'we force key_periodic = 0 and key_shift = 0', $
+        'only horizontal plot may be ok...'])
         key_periodic = 0
         xnotsorted = 1

trunk/SRC/Grid/micromeshmask.pro

@@ -69 +69 @@
     filein_msk = (findfile(filein+'.mask.nc'))[0]
     IF filein_hgr EQ '' OR filein_zgr EQ '' OR filein_msk EQ ''  THEN BEGIN
-      ras = report( 'meshmask file(s) not found...')
-      ras = report( filein+' does not exist')
-      ras = report( filein+'.mesh_hgr.nc does not exist')
-      ras = report( filein+'.mesh_zgr.nc does not exist')
-      ras = report( filein+'.mask.nc does not exist')
+      ras = report(['meshmask file(s) not found...', $
+      filein+' does not exist', $
+      filein+'.mesh_hgr.nc does not exist', $
+      filein+'.mesh_zgr.nc does not exist', $
+      filein+'.mask.nc does not exist'])
       return
     ENDIF

trunk/SRC/Grid/ncdf_meshread.pro

@@ -101 +101 @@
   tempsun = systime(1)          ; for key_performance
   IF keyword_set(CHECKDAT) THEN BEGIN
-    print, ' The keyword CHECKDAT has been suppressed (it could create bugs).'
-    print, ' Remove it from the call of ncdf_meshread'
-    print, ' Please use smallmeshmask.pro or micromeshmask.pro to create a'
-    print, ' meshmask that has manageable size'
+    ras = report([' The keyword CHECKDAT has been suppressed (it could create bugs).', $
+    ' Remove it from the call of ncdf_meshread', $
+    ' Please use smallmeshmask.pro or micromeshmask.pro to create a', $
+    ' meshmask that has manageable size'])
     return
   ENDIF
@@ -218 +218 @@
 ;
       IF array_equal(sort(xaxis), lindgen(jpi)) NE 1 THEN BEGIN
-        print, 'the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift'
-        print, 'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...'
+        ras = report(['the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift', $
+        'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...'])
         widget_control, noticebase, bad_id = nothing, /destroy
         return

trunk/SRC/Grid/ncdf_meshroms.pro

@@ -196 +196 @@
 ;
       IF array_equal(sort(xaxis), lindgen(jpi)) NE 1 THEN BEGIN
-        print, 'the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift'
-        print, 'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...'
+        ras = report (['the x axis (1st line of glamt) is not sorted in the increasing order after the automatic definition of key_shift', $
+        'please use the keyword shift (and periodic) to suppress the automatic definition of key_shift (and key_periodic) and define by hand a more suitable value...'])
         widget_control, noticebase, bad_id = nothing, /destroy
         return

trunk/SRC/Grid/numbisland.pro

@@ -90 +90 @@
   land = (where(msk EQ 0, count))[0]
   WHILE count NE 0 DO BEGIN
-    IF (islnumb-9) MOD 10 EQ 0 THEN print,  'island number :'+strtrim(islnumb-9, 1)
-
+    IF (islnumb-9) MOD 10 EQ 0 THEN BEGIN
+       ras = report('island number :'+strtrim(islnumb-9, 1))
+    ENDIF
     mskneig, msk, nx, ny, land, islnumb
 

trunk/SRC/Grid/smallmeshmask.pro

@@ -78 +78 @@
     filein_msk = (findfile(filein+'.mask.nc'))[0]
     IF filein_hgr EQ '' OR filein_zgr EQ '' OR filein_msk EQ ''  THEN BEGIN
-      ras = report( 'meshmask file(s) not found...')
-      ras = report( filein+' does not exist')
-      ras = report( filein+'.mesh_hgr.nc does not exist')
-      ras = report( filein+'.mesh_zgr.nc does not exist')
-      ras = report( filein+'.mask.nc does not exist')
+      ras = report(['meshmask file(s) not found...', $
+      filein+' does not exist', $
+      filein+'.mesh_hgr.nc does not exist', $
+      filein+'.mesh_zgr.nc does not exist', $
+      filein+'.mask.nc does not exist'])
       return
     ENDIF