Changeset 236 for trunk/SRC/Grid


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/Grid
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.