Changeset 107 for trunk/SRC/ReadWrite

Timestamp:

06/12/06 21:43:20 (18 years ago)

Author:

smasson

Message:

bugfix in ead/write_oasis

Location:

trunk/SRC/ReadWrite

Files:

• .idlwave_catalog (modified) (2 diffs)
• read_oasis.pro (modified) (2 diffs)
• write_oasis.pro (modified) (2 diffs)

trunk/SRC/ReadWrite/.idlwave_catalog

@@ -8 +8 @@
  '(("ncdf_timeget" fun nil (lib "ncdf_timeget.pro" nil "saxo") "Result = %s(cdfid, timeid)" (nil ("_extra") ("YYYYMMDD")))
    ("read_grads" fun nil (lib "read_grads.pro" nil "saxo") "Result = %s(var, date1, date2)" (nil ("_EXTRA") ("BOX") ("EVERYTHING") ("FILENAME") ("NOSTRUCT") ("TIMESTEP")))
-   ("read_oasis" fun nil (lib "read_oasis.pro" nil "saxo") "Result = %s(filename, varname, jpi, jpj, I2)" (nil ("I4") ("I8") ("R4")))
+   ("read_oasis" fun nil (lib "read_oasis.pro" nil "saxo") "Result = %s(filename, varname, jpi, jpj)" (nil ("I2") ("I4") ("I8") ("R4")))
    ("readbat" fun nil (lib "readbat.pro" nil "saxo") "Result = %s(filename)" (nil ("ZERO")))
    ("read3fromopa" fun nil (lib "readoldopadistcoast.pro" nil "saxo") "Result = %s(unit, params, num)" (nil))
@@ -17 +17 @@
    ("scanctl" pro nil (lib "scanctl.pro" nil "saxo") "%s, filename, filesname, jpt1file, varsname, varslev, swapbytes, bigendian, littleendian, f77sequential, fileheader, theader, xyheader" (nil ("_EXTRA") ("VARFMT")))
    ("scanoasis" pro nil (lib "scanoasis.pro" nil "saxo") "%s, filename" (nil))
-   ("write_oasis" pro nil (lib "write_oasis.pro" nil "saxo") "%s, filename, varname, z2d, I2" (nil ("APPEND") ("I4") ("I8") ("R4")))
+   ("write_oasis" pro nil (lib "write_oasis.pro" nil "saxo") "%s, filename, varname, z2d" (nil ("APPEND") ("I2") ("I4") ("I8") ("R4")))
    ("writebat" pro nil (lib "writebat.pro" nil "saxo") "%s, zbat, filename" (nil))))

trunk/SRC/ReadWrite/read_oasis.pro

@@ -13 +13 @@
 ;        the size of the 2d array to be read
 ;
-; @keyword /I2 ++ param ou mot clef
+; @keyword /I2
 ; @keyword /I4
 ; @keyword /I8
@@ -35 +35 @@
 
 
-FUNCTION read_oasis, filename, varname, jpi, jpj, I2, I4 = i4, I8 = i8, R4 = r4
+FUNCTION read_oasis, filename, varname, jpi, jpj, I2 = I2, I4 = i4, I8 = i8, R4 = r4
 
    openr, unit, filename, /f77_unformatted, /get_lun, /swap_if_little_endian $

trunk/SRC/ReadWrite/write_oasis.pro

@@ -10 +10 @@
 ; @param z2d {in}{required} the variable (2D array) to be written
 ;
-; @keyword /I2 ++ param ou mot clef
+; @keyword /I2
 ; @keyword /I4
 ; @keyword /I8
@@ -31 +31 @@
 
 
-PRO write_oasis, filename, varname, z2d, I2, I4 = i4, I8 = i8, R4 = r4, APPEND = append
+PRO write_oasis, filename, varname, z2d, I2 = i2, I4 = i4, I8 = i8, R4 = r4, APPEND = append
    openw, unit, filename , /F77_UNFORMATTED, /GET_LUN, /SWAP_IF_LITTLE_ENDIAN $
     , error=err, APPEND = append