Changeset 338 for trunk/SRC/ReadWrite

Timestamp:

03/20/08 23:06:02 (16 years ago)

Author:

smasson

Message:

update documentation

Location:

trunk/SRC/ReadWrite

Files:

• .idlwave_catalog (modified) (2 diffs)
• ncdf_getatt.pro (modified) (3 diffs)

trunk/SRC/ReadWrite/.idlwave_catalog

@@ -6 +6 @@
 (setq idlwave-library-catalog-libname "saxo")
 (setq idlwave-library-catalog-routines
- '(("ncdf_getatt" pro nil (lib "ncdf_getatt.pro" nil "saxo") "%s, fileid, varid" (nil ("add_offset") ("calendar") ("missing_value") ("scale_factor") ("units")))
+ '(("ncdf_getatt" pro nil (lib "ncdf_getatt.pro" nil "saxo") "%s, fileid, varid" (nil ("_extra") ("ADD_OFFSET") ("CALENDAR") ("DOUBLE") ("LONG_NAME") ("MISSING_VALUE") ("SCALE_FACTOR") ("STANDARD_NAME") ("UNITS")))
    ("ncdf_getaxis" pro nil (lib "ncdf_getaxis.pro" nil "saxo") "%s, fileid, dimidx, dimidy, xaxis, yaxis" (nil ("_EXTRA") ("ROMSGRID") ("START1") ("XAXISNAME") ("XDIMNAME") ("XYINDEX") ("YAXISNAME") ("YDIMNAME")))
    ("ncdf_getmask" fun nil (lib "ncdf_getmask.pro" nil "saxo") "Result = %s(fileid)" (nil ("_EXTRA") ("ADDSCL_BEFORE") ("INVMASK") ("MASKNAME") ("MISSING_VALUE") ("USEASMASK")))
@@ -24 +24 @@
    ("writenc_strlc2str" fun nil (lib "write_ncdf.pro" nil "saxo") "Result = %s(strwlist)" (nil))
    ("write_ncdf" pro nil (lib "write_ncdf.pro" nil "saxo") "%s, var01, var02, var03, var04, var05, var06, var07, var08, var09, var10, var11, var12, var13, var14, var15, var16, var17, var18, var19, var20, var21, var22, var23, var24, var25, var26, var27, var28, var29, var30" (nil ("FILENAME") ("GLOBATTR") ("NOT_OUASSALU") ("NOT_SDISV") ("OKNAN") ("VARNAME")))
-   ("write_oasis" pro nil (lib "write_oasis.pro" nil "saxo") "%s, filename, varname, z2d" (nil ("APPEND") ("I2") ("I4") ("I8") ("R4")))
+   ("write_oasis" pro nil (lib "write_oasis.pro" nil "saxo") "%s, filename, varname, z2d" (nil ("APPEND") ("ENDING") ("HEADER") ("I2") ("I4") ("I8") ("POSITION") ("R4") ("RECSIZE") ("TEMPORARY")))
    ("writebat" pro nil (lib "writebat.pro" nil "saxo") "%s, zbat, filename" (nil))))

trunk/SRC/ReadWrite/ncdf_getatt.pro

@@ -49 +49 @@
 ; does not exist.
 ;
+; @keyword DOUBLE {default=0} {type=1 or 0}
+; activate to force double-precision floating-point value of
+; add_offset and scale_factor
+;
 ; @keyword standard_name
 ; Set this keyword to a named variable in which the value of
 ; standard_name (CF convention) is returned. Return empty string 
 ; if this attribute does not exist.
+;
+; @keyword _EXTRA
+; defined only to be able to call ncdf_getatt with the _extra keyword
 ;
 ; @examples
@@ -64 +71 @@
 ;
 ;-
-PRO ncdf_getatt, fileid, varid, add_offset = add_offset, scale_factor = scale_factor $
-                 , missing_value = missing_value, units = units, calendar = calendar $
-                 , long_name = long_name, standard_name = standard_name
+PRO ncdf_getatt, fileid, varid, ADD_OFFSET = add_offset, SCALE_FACTOR = scale_factor $
+                 , MISSING_VALUE = missing_value, UNITS = units, CALENDAR = calendar $
+                 , LONG_NAME = long_name, STANDARD_NAME = standard_name, DOUBLE = double $
+                 , _extra = ex
 ;
   compile_opt idl2, strictarrsubs
@@ -131 +139 @@
     ENDELSE
   ENDIF
-
+;
+  IF keyword_set(double) THEN BEGIN
+    add_offset = double(add_offset)
+    scale_factor = double(scale_factor)
+  ENDIF ELSE BEGIN 
+    add_offset = float(add_offset)
+    scale_factor = float(scale_factor)
+  ENDELSE
+;
   IF size(fileid, /type) EQ 7 THEN ncdf_close, cdfid