Changeset 236 for trunk/SRC/ReadWrite/readoldopadistcoast.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/ReadWrite/readoldopadistcoast.pro (modified) (3 diffs)

trunk/SRC/ReadWrite/readoldopadistcoast.pro

@@ -80 +80 @@
    iname_file = findfile(filename)
    if iname_file[0] EQ '' then begin
-      print, 'Bad file name'
+      ras = report( 'Bad file name')
       return, -1
    ENDIF ELSE iname_file = iname_file[0]
@@ -103 +103 @@
    size = numrec*reclen-toomuch
    if size NE filepamameters.size then begin
-      print, 'The size of the file is not the expected one!'
-      print, 'Check your file or the values of ibloc, jpiglo,'
-      print, 'jpjglo, jpk, jpbyt, numrec in this program'
+      ras = report( 'The size of the file is not the expected one!')
+      ras = report( 'Check your file or the values of ibloc, jpiglo,')
+      ras = report( 'jpjglo, jpk, jpbyt, numrec in this program')
       return, -1
    endif
@@ -116 +116 @@
    readu, numcost, iimlu, ijmlu, ikmlu
    if iimlu NE jpiglo then begin
-      print, 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1)
+      ras = report( 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1))
       return, -1
    endif
    if ijmlu NE jpjglo then begin
-      print, 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1)
+      ras = report( 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1))
       return, -1
    endif
    if ikmlu NE jpk then begin
-      print, 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1)
+      ras = report( 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1))
       return, -1
    endif