Changeset 236


Ignore:
Timestamp:
03/21/07 18:18:44 (17 years ago)
Author:
pinsard
Message:

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

Location:
trunk/SRC
Files:
26 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Documentation/idldoc_assistant_output/Obsolete/jourdsmois.html

    r234 r236  
    6262 
    6363     
    64  used <a href=".//../../Calendar/daysinmonth.html">daysinmonth</a> instead 
     64 used <a href="../Calendar/daysinmonth.html">daysinmonth</a> instead 
    6565 
    6666 

  • trunk/SRC/Grid/checkperio.pro

    r232 r236  
    4747 
    4848  IF file_test(file) EQ 0 THEN BEGIN 
    49     print, 'file '+file+' not found' 
     49    ras = report( 'file '+file+' not found') 
    5050    RETURN 
    5151  ENDIF 
    … …  
    7878              part2 = reverse(shift(part2, -1)) 
    7979              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    80                 print, vinq.name+' bad y periodicity (1)' 
     80                ras = report( vinq.name+' bad y periodicity (1)') 
    8181                IF keyword_set(write) THEN $ 
    8282                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-1] 
    … …  
    8888              part2 = reverse(part2) 
    8989              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    90                 print, vinq.name+' bad y periodicity (1)' 
     90                ras = report( vinq.name+' bad y periodicity (1)') 
    9191                IF keyword_set(write) THEN $ 
    9292                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1], offset = [1, jpj-1] 
    9393              ENDIF 
    9494            END 
    95             ELSE:print, vinq.name+' nothing to check' 
     95            ELSE:ras = report( vinq.name+' nothing to check') 
    9696          ENDCASE 
    9797; y periodicity (2) 
    … …  
    102102              part2 = reverse(part2) 
    103103              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    104                 print, vinq.name+' bad y periodicity (2)' 
     104                ras = report( vinq.name+' bad y periodicity (2)') 
    105105                IF keyword_set(write) THEN $ 
    106106                   ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1], offset = [(jpi-1)/2+2, jpj-2] 
    … …  
    109109            array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05 
    110110            END 
    111             ELSE:print, vinq.name+' nothing to check' 
     111            ELSE:ras = report( vinq.name+' nothing to check') 
    112112          ENDCASE 
    113113; x periodicity (1) 
    … …  
    115115          ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [jpi-2, 0] 
    116116          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    117             print, vinq.name+' bad x periodicity (1)' 
     117            ras = report( vinq.name+' bad x periodicity (1)') 
    118118            IF keyword_set(write) THEN $ 
    119119               ncdf_varput, cdfid, vid, part2, count = [1, jpj], offset = [0, 0] 
    … …  
    123123          ncdf_varget, cdfid, vid, part2, count = [1, jpj], offset = [1, 0] 
    124124          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    125             print, vinq.name+' bad x periodicity (2)' 
     125            ras = report( vinq.name+' bad x periodicity (2)') 
    126126            IF keyword_set(write) THEN $ 
    127127               ncdf_varput, cdfid, vid, part2, count = [1, jpj], offset = [jpi-1, 0] 
    … …  
    141141              part2 = reverse(shift(part2, -1, 0, 0), 1) 
    142142              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    143                 print, vinq.name+' bad y periodicity (1)' 
     143                ras = report( vinq.name+' bad y periodicity (1)') 
    144144                IF keyword_set(write) THEN $ 
    145145                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk], offset = [1, jpj-1, 0] 
    … …  
    152152              part2 = reverse(part2, 1) 
    153153              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    154                 print, vinq.name+' bad y periodicity (1)' 
     154                ras = report( vinq.name+' bad y periodicity (1)') 
    155155                IF keyword_set(write) THEN $ 
    156156                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk], offset = [1, jpj-1, 0] 
    157157              ENDIF 
    158158            END 
    159             ELSE:print, vinq.name+' nothing to check' 
     159            ELSE:ras = report( vinq.name+' nothing to check') 
    160160          ENDCASE 
    161161; y periodicity (2) 
    … …  
    166166              part2 = reverse(part2, 1) 
    167167              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    168                 print, vinq.name+' bad y periodicity (2)' 
     168                ras = report( vinq.name+' bad y periodicity (2)') 
    169169                IF keyword_set(write) THEN $ 
    170170                   ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk], offset = [(jpi-1)/2+2, jpj-2, 0] 
    … …  
    173173            array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05 
    174174            END 
    175             ELSE:print, vinq.name+' nothing to check' 
     175            ELSE:ras = report( vinq.name+' nothing to check') 
    176176          ENDCASE 
    177177; x periodicity (1) 
    … …  
    179179          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-2, 0, 0] 
    180180          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    181             print, vinq.name+' bad x periodicity (1)' 
     181            ras = report( vinq.name+' bad x periodicity (1)') 
    182182            IF keyword_set(write) THEN $ 
    183183               ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk], offset = [0, 0, 0] 
    … …  
    187187          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk], offset = [1, 0, 0] 
    188188          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    189             print, vinq.name+' bad x periodicity (2)' 
     189            ras = report( vinq.name+' bad x periodicity (2)') 
    190190            IF keyword_set(write) THEN $ 
    191191               ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk], offset = [jpi-1, 0, 0] 
    … …  
    206206              part2 = reverse(shift(part2, -1, 0, 0, 0), 1) 
    207207              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    208                 print, vinq.name+' bad y periodicity (1)' 
     208                ras = report( vinq.name+' bad y periodicity (1)') 
    209209                IF keyword_set(write) THEN $ 
    210210                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk, jpt], offset = [1, jpj-1, 0, 0] 
    … …  
    217217              part2 = reverse(part2, 1) 
    218218              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    219                 print, vinq.name+' bad y periodicity (1)' 
     219                ras = report( vinq.name+' bad y periodicity (1)') 
    220220                IF keyword_set(write) THEN $ 
    221221                   ncdf_varput, cdfid, vid, part2, count = [jpi-2, 1, jpk, jpt], offset = [1, jpj-1, 0, 0] 
    222222              ENDIF 
    223223            END 
    224             ELSE:print, vinq.name+' nothing to check' 
     224            ELSE:ras = report( vinq.name+' nothing to check') 
    225225          ENDCASE 
    226226; y periodicity (2) 
    … …  
    231231              part2 = reverse(part2, 1) 
    232232              IF array_equal(part1, part2) NE 1 THEN BEGIN 
    233                 print, vinq.name+' bad y periodicity (2)' 
     233                ras = report( vinq.name+' bad y periodicity (2)') 
    234234                IF keyword_set(write) THEN $ 
    235235                   ncdf_varput, cdfid, vid, part2, count = [(jpi-1)/2-2+1, 1, jpk, jpt], offset = [(jpi-1)/2+2, jpj-2, 0, 0] 
    … …  
    238238            array_equal([722, 511], vdimsz[0:1]):BEGIN ; ORCA05 
    239239            END 
    240             ELSE:print, vinq.name+' nothing to check' 
     240            ELSE:ras = report( vinq.name+' nothing to check') 
    241241          ENDCASE 
    242242; x periodicity (1) 
    … …  
    244244          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [jpi-2, 0, 0, 0] 
    245245          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    246             print, vinq.name+' bad x periodicity (1)' 
     246            ras = report( vinq.name+' bad x periodicity (1)') 
    247247            IF keyword_set(write) THEN $ 
    248248               ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [0, 0, 0, 0] 
    … …  
    252252          ncdf_varget, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [1, 0, 0, 0] 
    253253          IF array_equal(part1, part2) NE 1 THEN BEGIN 
    254             print, vinq.name+' bad x periodicity (2)' 
     254            ras = report( vinq.name+' bad x periodicity (2)') 
    255255            IF keyword_set(write) THEN $ 
    256256               ncdf_varput, cdfid, vid, part2, count = [1, jpj, jpk, jpt], offset = [jpi-1, 0, 0, 0] 
    257257          ENDIF 
    258258        END 
    259         ELSE:print, vinq.name+' nothing to check' 
     259        ELSE:ras = report( vinq.name+' nothing to check') 
    260260      ENDCASE 
    261261    ENDIF 

  • trunk/SRC/Grid/computegrid.pro

    r232 r236  
    330330      1:nz = (size(zaxis))[1] 
    331331      ELSE:BEGIN 
    332         print, 'not coded' 
     332        ras = report( 'not coded') 
    333333        stop 
    334334      END 

  • trunk/SRC/Grid/micromeshmask.pro

    r231 r236  
    6464    filein_msk = (findfile(filein+'.mask.nc'))[0] 
    6565    IF filein_hgr EQ '' OR filein_zgr EQ '' OR filein_msk EQ ''  THEN BEGIN 
    66       print, 'meshmask file(s) not found...' 
    67       print, filein+' does not exist' 
    68       print, filein+'.mesh_hgr.nc does not exist' 
    69       print, filein+'.mesh_zgr.nc does not exist' 
    70       print, filein+'.mask.nc does not exist' 
     66      ras = report( 'meshmask file(s) not found...') 
     67      ras = report( filein+' does not exist') 
     68      ras = report( filein+'.mesh_hgr.nc does not exist') 
     69      ras = report( filein+'.mesh_zgr.nc does not exist') 
     70      ras = report( filein+'.mask.nc does not exist') 
    7171      return 
    7272    ENDIF 

  • trunk/SRC/Grid/smallmeshmask.pro

    r231 r236  
    7272    filein_msk = (findfile(filein+'.mask.nc'))[0] 
    7373    IF filein_hgr EQ '' OR filein_zgr EQ '' OR filein_msk EQ ''  THEN BEGIN 
    74       print, 'meshmask file(s) not found...' 
    75       print, filein+' does not exist' 
    76       print, filein+'.mesh_hgr.nc does not exist' 
    77       print, filein+'.mesh_zgr.nc does not exist' 
    78       print, filein+'.mask.nc does not exist' 
     74      ras = report( 'meshmask file(s) not found...') 
     75      ras = report( filein+' does not exist') 
     76      ras = report( filein+'.mesh_hgr.nc does not exist') 
     77      ras = report( filein+'.mesh_zgr.nc does not exist') 
     78      ras = report( filein+'.mask.nc does not exist') 
    7979      return 
    8080    ENDIF 

  • trunk/SRC/Interpolation/angle.pro

    r232 r236  
    111111  fileoce = findfile(fileoce, count = okfile) 
    112112  IF okfile NE 1 THEN BEGIN 
    113     print, 'the file '+fileoce+' is not found... we stop' 
     113    ras = report('the file '+fileoce+' is not found... we stop') 
    114114    stop 
    115115  ENDIF 

  • trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

    r232 r236  
    7272  IF n_elements(amsk) EQ 1 AND amsk[0] EQ -1 THEN amsk = replicate(1b, jpia, jpja) 
    7373  IF n_elements(omsk) NE jpio*jpjo THEN BEGIN 
    74     print, 'input grid mask do not have the good size' 
     74    ras = report('input grid mask do not have the good size') 
    7575    stop 
    7676  ENDIF 
    7777  IF n_elements(amsk) NE jpia*jpja THEN BEGIN 
    78     print, 'output grid mask do not have the good size' 
     78    ras = report('output grid mask do not have the good size') 
    7979    stop 
    8080  ENDIF 

  • trunk/SRC/Interpolation/extrapolate.pro

    r232 r236  
    7575  IF n_elements(maskinput) EQ 1 AND maskinput[0] EQ -1 THEN maskinput = replicate(1b, nx, ny) 
    7676  IF n_elements(maskinput) NE nx*ny THEN BEGIN 
    77     print, 'input grid mask do not have the good size' 
     77    ras = report('input grid mask do not have the good size') 
    7878    return, -1 
    7979  ENDIF 

  • trunk/SRC/Interpolation/extrapsmooth.pro

    r232 r236  
    5252  sz = size(reform(in)) 
    5353  IF sz[0] NE 2 THEN BEGIN 
    54     print, 'Input arrays must have 2 dimensions' 
     54    ras = report('Input arrays must have 2 dimensions') 
    5555    return, -1 
    5656  ENDIF 
    … …  
    5959  IF n_elements(mskin) EQ 1 AND mskin[0] EQ -1 THEN mskin = replicate(1b, nx, ny) 
    6060  IF n_elements(mskin) NE nx*ny THEN BEGIN 
    61     print, 'input grid mask do not have the good size' 
     61    ras = report('input grid mask do not have the good size') 
    6262    return, -1 
    6363  ENDIF 

  • trunk/SRC/Interpolation/fromirr.pro

    r231 r236  
    110110      'bilinear':compute_fromirr_bilinear_weigaddr, alon, alat, mskin, olon, olat, mskout, weig, addr 
    111111      ELSE:BEGIN 
    112         print, ' unknown interpolation method... we stop' 
     112        ras = report(' unknown interpolation method... we stop') 
    113113        stop 
    114114      ENDELSE 

  • trunk/SRC/Interpolation/fromreg.pro

    r231 r236  
    113113      'imoms3':  compute_fromreg_imoms3_weigaddr,   alon, alat, olon, olat, weig, addr, NONORTHERNLINE = nonorthernline, NOSOUTHERNLINE = nosouthernline 
    114114      ELSE:BEGIN 
    115         print, ' unknown interpolation method... we stop' 
     115        ras = report(' unknown interpolation method... we stop') 
    116116        stop 
    117117      ENDELSE 

  • trunk/SRC/Interpolation/get_gridparams.pro

    r231 r236  
    8787; get longitude and latitude 
    8888      IF file_test(in1) EQ 0 THEN BEGIN 
    89         print, 'file ' + in1 + ' does not exist' 
     89        ras = report('file ' + in1 + ' does not exist') 
    9090        stop 
    9191      ENDIF 
    … …  
    102102    END 
    103103    ELSE:BEGIN 
    104       print, 'Bad nimber of input parameters' 
     104      ras = report('Bad number of input parameters') 
    105105      stop 
    106106    end 
    … …  
    140140        1:BEGIN 
    141141          IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 
    142             print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 
     142            ras = report('Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes') 
    143143            stop 
    144144          ENDIF 
    … …  
    161161        1:BEGIN 
    162162          IF array_equal(lat, replicate(1, jpi) # lat[0, *]) NE 1 THEN BEGIN 
    163             print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 
     163            ras = report('Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes') 
    164164            stop 
    165165          ENDIF 
    … …  
    182182        1:BEGIN 
    183183          IF array_equal(lon, lon[*, 0] # replicate(1, jpj)) NE 1 THEN BEGIN 
    184             print, 'Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes' 
     184            ras = report('Longitudes are not the same for all latitudes, impossible to extract a 1D array of the longitudes') 
    185185            stop 
    186186          ENDIF 
    187187          lon = lon[*, 0] 
    188188          IF array_equal(lat, replicate(1, jpi) # reform(lat[0, *])) NE 1 THEN BEGIN 
    189             print, 'Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes' 
     189            ras = report('Latitudes are not the same for all longitudes, impossible to extract a 1D array of the latitudes') 
    190190            stop 
    191191          ENDIF 
    … …  
    199199; lon and lat are not 1D and/or 2D arrays 
    200200;------- 
    201     ELSE:stop 
     201    ELSE: BEGIN 
     202             ras = report('Longitudes and latitudes are not 1D and/or 2D arrays') 
     203             stop 
     204          END 
    202205  ENDCASE 
    203206; 

  • trunk/SRC/Interpolation/inquad.pro

    r232 r236  
    261261; points out of the cells 
    262262    IF (where(chtest EQ 0))[0] NE -1 THEN BEGIN 
    263       IF NOT keyword_set(noprint) THEN print, 'Points number '+strjoin(strtrim(where(chtest EQ 0), 1), ', ')+' are out of the grid' 
     263      IF NOT keyword_set(noprint) THEN BEGIN 
     264         ras = report('Points number '+strjoin(strtrim(where(chtest EQ 0), 1), ', ')+' are out of the grid') 
     265      ENDIF 
    264266      stop 
    265267    ENDIF 
    266268; points in more than one cell 
    267269    IF (where(chtest GT 1))[0] NE -1 THEN BEGIN 
    268       IF NOT keyword_set(noprint) THEN print, 'Points number '+strjoin(strtrim(where(chtest GT 1), 1), ', ')+' are in more than one cell' 
     270      IF NOT keyword_set(noprint) THEN BEGIN 
     271        ras = report('Points number '+strjoin(strtrim(where(chtest GT 1), 1), ', ')+' are in more than one cell') 
     272      ENDIF 
    269273      stop 
    270274    ENDIF 
    … …  
    277281    CASE 1 OF 
    278282      found[0] EQ -1:BEGIN 
    279         IF NOT keyword_set(noprint) THEN print, 'The point is out of the cells' 
     283        IF NOT keyword_set(noprint) THEN BEGIN 
     284           ras = report('The point is out of the cells') 
     285        ENDIF 
    280286        IF keyword_set(onsphere) THEN BEGIN 
    281287; restore old !map... 
    … …  
    289295      END 
    290296      n_elements(found) GT ntofind:BEGIN 
    291         IF NOT keyword_set(noprint) THEN print, 'The point is in more than one cell' 
     297        IF NOT keyword_set(noprint) THEN BEGIN 
     298          ras = report('The point is in more than one cell') 
     299        ENDIF 
    292300      END 
    293301      ELSE: 

  • trunk/SRC/Picture/imdisp.pro

    r232 r236  
    197197; @file_comments 
    198198;    Display an image on the current graphics device. 
    199 ;    IMDISP is an advanced replacement for TV and TVSCL. 
     199;    IMDISP is an advanced replacement for <prodil>TV</proidl> and 
     200;    <proidl>TVSCL</proidl>. 
    200201; 
    201202;    - Supports WIN, MAC, X, CGM, PCL, PRINTER, PS, and Z graphics devices, 

  • trunk/SRC/ReadWrite/read_grads.pro

    r232 r236  
    9797   if keyword_set(timestep) then BEGIN 
    9898      if date1 GT date2 then begin 
    99          print, 'date2 must be larger than date1' 
     99         ras = report( 'date2 must be larger than date1') 
    100100         return, -1 
    101101      endif 
    … …  
    106106      jdate2 = time[0] > date2jul(date2, /grads) 
    107107      if jdate1 GT jdate2 then begin 
    108          print, 'date2 must be larger than date1' 
     108         ras = report('date2 must be larger than date1') 
    109109         return, -1 
    110110      endif 
    … …  
    114114   ENDELSE 
    115115   if t2 LT t1 then begin 
    116       print, 'There is no date between date1 and date2' 
     116      ras = report('There is no date between date1 and date2') 
    117117      return, -1 
    118118   endif 
    … …  
    126126   varid = varid[0] 
    127127   if varid EQ -1 then begin 
    128       print, var+' not found in the variable list of '+filename 
     128      ras = report(var+' not found in the variable list of '+filename) 
    129129      return,  -1 
    130130   ENDIF 
    … …  
    159159    , swap_endian = swapbytes 
    160160   if err ne 0 then begin 
    161       print,!err_string 
     161      ras = report(!err_string) 
    162162      return, -1 
    163163   endif 
    … …  
    179179   infof2read=fstat(unit) 
    180180   if infof2read.size NE filesize then begin 
    181       print, 'According to '+filename+' the file size must be '+strtrim(filesize, 1)+' instead of '+strtrim(infof2read.size, 1) 
    182       print, 'jpi: '+strtrim(jpi, 2) 
    183       print, 'jpj: '+strtrim(jpj, 2) 
    184       print, 'jpt: '+strtrim(jpt, 2) 
    185       print, 'format size in byte: '+strtrim(fmtsz, 2) 
    186       print, 'number of xy arrays: '+strtrim(nxybloc, 2) 
     181      ras = report('According to '+filename+' the file size must be '+strtrim(filesize, 1)+' instead of '+strtrim(infof2read.size, 1)) 
     182      ras = report( 'jpi: '+strtrim(jpi, 2)) 
     183      ras = report( 'jpj: '+strtrim(jpj, 2)) 
     184      ras = report( 'jpt: '+strtrim(jpt, 2)) 
     185      ras = report( 'format size in byte: '+strtrim(fmtsz, 2)) 
     186      ras = report( 'number of xy arrays: '+strtrim(nxybloc, 2)) 
    187187      return, -1 
    188188   endif 

  • trunk/SRC/ReadWrite/read_oasis.pro

    r232 r236  
    4545    , error=err 
    4646   if err ne 0 then begin 
    47       print,!err_string 
     47      ras = report(!err_string) 
    4848      return, -1 
    4949   endif 
    … …  
    5757      readu, unit 
    5858      if EOF(unit) then begin 
    59          print, varname+' not found in '+filename 
     59         ras = report(varname+' not found in '+filename) 
    6060         return, -1 
    6161      endif 

  • trunk/SRC/ReadWrite/readbat.pro

    r232 r236  
    3232   iname_file = findfile(filename) 
    3333   if iname_file[0] EQ '' then begin 
    34       print, 'Bad file name' 
     34      ras = report( 'Bad file name') 
    3535      return, -1 
    3636   ENDIF ELSE iname_file = iname_file[0] 

  • trunk/SRC/ReadWrite/readoldopadistcoast.pro

    r232 r236  
    8080   iname_file = findfile(filename) 
    8181   if iname_file[0] EQ '' then begin 
    82       print, 'Bad file name' 
     82      ras = report( 'Bad file name') 
    8383      return, -1 
    8484   ENDIF ELSE iname_file = iname_file[0] 
    … …  
    103103   size = numrec*reclen-toomuch 
    104104   if size NE filepamameters.size then begin 
    105       print, 'The size of the file is not the expected one!' 
    106       print, 'Check your file or the values of ibloc, jpiglo,' 
    107       print, 'jpjglo, jpk, jpbyt, numrec in this program' 
     105      ras = report( 'The size of the file is not the expected one!') 
     106      ras = report( 'Check your file or the values of ibloc, jpiglo,') 
     107      ras = report( 'jpjglo, jpk, jpbyt, numrec in this program') 
    108108      return, -1 
    109109   endif 
    … …  
    116116   readu, numcost, iimlu, ijmlu, ikmlu 
    117117   if iimlu NE jpiglo then begin 
    118       print, 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1) 
     118      ras = report( 'iimlu = '+strtrim(iimlu, 1)+' differs from jpiglo ='+strtrim(jpiglo, 1)) 
    119119      return, -1 
    120120   endif 
    121121   if ijmlu NE jpjglo then begin 
    122       print, 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1) 
     122      ras = report( 'ijmlu = '+strtrim(ijmlu, 1)+' differs from jpjglo ='+strtrim(jpjglo, 1)) 
    123123      return, -1 
    124124   endif 
    125125   if ikmlu NE jpk then begin 
    126       print, 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1) 
     126      ras = report( 'ikmlu = '+strtrim(ikmlu, 1)+' differs from jpk ='+strtrim(jpk, 1)) 
    127127      return, -1 
    128128   endif 

  • trunk/SRC/ReadWrite/readoldoparestart.pro

    r231 r236  
    145145   iname_file = findfile(filename) 
    146146   if iname_file[0] EQ '' then begin 
    147       print, 'Bad file name' 
     147      ras = report( 'Bad file name') 
    148148      return 
    149149   ENDIF ELSE iname_file = iname_file[0] 
    … …  
    165165   size = numrec*reclen-toomuch 
    166166   if size NE filepamameters.size then begin 
    167       print, 'The size of the file is not the expected one!' 
    168       print, 'Check your file or the values of ibloc, jpiglo,' 
    169       print, 'jpjglo, jpk, jpbyt, numrec in this program' 
     167      ras = report( 'The size of the file is not the expected one!') 
     168      ras = report( 'Check your file or the values of ibloc, jpiglo,') 
     169      ras = report( 'jpjglo, jpk, jpbyt, numrec in this program') 
    170170      return 
    171171   endif 

  • trunk/SRC/ReadWrite/scanctl.pro

    r232 r236  
    5454   spawn, '\grep -i "^DTYPE" '+filename, notgood 
    5555   if keyword_set(notgood) then begin 
    56       print, 'This program is not adapted to data type station or grib. Sorry...' 
     56      ras = report( 'This program is not adapted to data type station or grib. Sorry...') 
    5757      stop 
    5858   endif 

  • trunk/SRC/ReadWrite/scanoasis.pro

    r232 r236  
    2828    , error=err 
    2929   if err ne 0 then begin 
    30       print,!err_string 
     30      ras = report(!err_string) 
    3131      return 
    3232   endif 
    … …  
    3535   WHILE NOT EOF(unit) DO BEGIN 
    3636      readu, unit, char8 
    37       print,  char8 
     37      ras = report(char8) 
    3838      readu, unit 
    3939   ENDWHILE 

  • trunk/SRC/ReadWrite/write_oasis.pro

    r231 r236  
    3939    , error=err, APPEND = append 
    4040   if err ne 0 then begin 
    41       print,!err_string 
     41      ras = report(!err_string) 
    4242      return 
    4343   endif 

  • trunk/SRC/ReadWrite/writebat.pro

    r231 r236  
    2626; basic checks 
    2727  IF n_params() NE 2 THEN BEGIN 
    28     print, 'bad number of arguments in the call of writebat' 
     28    ras = report( 'bad number of arguments in the call of writebat') 
    2929    return 
    3030  ENDIF 
    3131  IF size(filename, /type) NE 7 THEN BEGIN 
    32     print, 'the filename should be a string' 
     32    ras = report( 'the filename should be a string') 
    3333    return 
    3434  ENDIF 
    3535  sbat = size(zbat) 
    3636  IF sbat[0] NE 2 THEN BEGIN 
    37     print, 'bathymetry array should be 2d array' 
     37    ras = report( 'bathymetry array should be 2d array') 
    3838    return 
    3939  ENDIF 

  • trunk/SRC/ToBeReviewed/INIT/initncdf.pro

    r232 r236  
    9090  ncfile = isafile(FILENAME = ncfilein, IODIRECTORY = iodir, _extra = ex) 
    9191  if size(ncfile, /type) NE 7 then BEGIN 
    92     print, 'initncdf cancelled' 
     92    ras = report( 'initncdf cancelled') 
    9393    return 
    9494  endif 
    … …  
    139139    zvarid = (where(namevar EQ 'nav_lev' or namevar EQ zaxisname OR namevar EQ 'level' OR namevar EQ 'lev' OR strmid(namevar, 0, 5) EQ 'depth'))[0] 
    140140    if zvarid EQ -1 AND inside.ndims GT 3 then begin 
    141       print, 'initncdf: the zaxis was not found..., check the the use of ZAXISNAME keyword if you whant to find one...' 
     141      ras = report( 'initncdf: the zaxis was not found..., check the the use of ZAXISNAME keyword if you whant to find one...') 
    142142;     stop 
    143143    endif 
    … …  
    230230          tmask = finite(tmask) 
    231231          IF min(tmask) EQ 1 THEN BEGIN 
    232             print, 'missing or nan values not found...' 
     232            ras = report( 'missing or nan values not found...') 
    233233            tmask = -1 
    234234          ENDIF 

  • trunk/SRC/ToBeReviewed/LECTURE/GRIB/read_grib.pro

    r232 r236  
    4141  openr, num, gribfile, /GET_LUN, ERROR = err, /SWAP_IF_LITTLE_ENDIAN 
    4242  if err ne 0 then begin 
    43     print, !err_string 
     43    ras = report(!err_string) 
    4444    return, -1 
    4545  ENDIF 
    … …  
    6464  goodvar = where(codes EQ varcode) 
    6565  IF goodvar[0] EQ -1 THEN BEGIN 
    66     print, 'no var code '+strtrim(varcode, 2)+' in the file' 
     66    ras = report( 'no var code '+strtrim(varcode, 2)+' in the file') 
    6767    return, -1 
    6868  ENDIF 
    … …  
    7373  gooddate = where(dates GE date1 AND dates LE date2) 
    7474  IF gooddate[0] EQ -1 THEN BEGIN 
    75     print, 'no dates between '+strtrim(date1, 2)+' and '+strtrim(date2, 2)+' in the file' 
     75    ras = report( 'no dates between '+strtrim(date1, 2)+' and '+strtrim(date2, 2)+' in the file') 
    7676    return, -1 
    7777  ENDIF 

  • trunk/SRC/ToBeReviewed/PLOTS/DESSINE/tvplus.pro

    r232 r236  
    22; 
    33; @file_comments 
    4 ; Enhanced version of tvscl 
     4; Enhanced version of <proidl>tvscl</proidl> 
    55; 
    66; @categories 
    … …  
    6262; 
    6363; @keyword _EXTRA 
    64 ; Used to pass keywords to <proidl>TV</proidl>,  
    65 ; <proidl>PLOT</proidl>,  
     64; Used to pass keywords to <proidl>TV</proidl>, 
     65; <proidl>PLOT</proidl>, 
    6666; <pro>COLORBAR</pro> 
    6767; 
Note: See TracChangeset for help on using the changeset viewer.