Changeset 334

Timestamp:

03/07/08 15:39:18 (16 years ago)

Author:

smasson

Message:

add long_name and short_name in ncdf_getatt

File:

• trunk/SRC/ReadWrite/ncdf_getatt.pro (modified) (4 diffs)

trunk/SRC/ReadWrite/ncdf_getatt.pro

@@ -44 +44 @@
 ; doesn't exist.
 ;
+; @keyword long_name
+; Set this keyword to a named variable in which the value of
+; long_name is returned. Return empty string if this attribute
+; does not exist.
+;
+; @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.
+;
 ; @examples
 ; IDL> ncdf_getatt, cdfid, 'sst', add_offset = add_offset, scale_factor = scale_factor, units = units
@@ -54 +64 @@
 ;
 ;-
-PRO ncdf_getatt, fileid, varid, add_offset=add_offset $
-               , scale_factor=scale_factor, missing_value=missing_value $
-               , units=units, calendar=calendar
+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
 ;
   compile_opt idl2, strictarrsubs
@@ -68 +78 @@
   missing_value = 'no'
   calendar = 'greg'
+  long_name = ''
+  standard_name = ''
 ; 
   varinq = ncdf_varinq(cdfid, varid)
@@ -90 +102 @@
             END
           ENDCASE
+        END
+        'long_name':BEGIN
+           ncdf_attget, cdfid, varid, attname, tmp
+           long_name = strtrim(tmp, 2)           
+        END
+        'standard_name':BEGIN
+           ncdf_attget, cdfid, varid, attname, tmp
+           standard_name = strtrim(tmp, 2)           
         END
         'add_offset':ncdf_attget, cdfid, varid, attname, add_offset