Changeset 364

Timestamp:

07/31/08 14:49:27 (16 years ago)

Author:

smasson

Message:

small bugfix in ncdf_write

File:

• trunk/SRC/ReadWrite/write_ncdf.pro (modified) (1 diff)

trunk/SRC/ReadWrite/write_ncdf.pro

@@ -326 +326 @@
         com = 'strdtmp = strd'+strnbd
         if not execute(com) then message, 'ERR : attrib strdtmp 0d (dim'+iodp1st+', var'+nviv+')...stop'
-        if dnames_imposed eq 1 then if not (strdtmp.nomdim eq dnama) then $
+        if dnames_imposed eq 1 then if not (strdtmp.nomdim eq dnama[n_elements(dnama)-1]) then $
           message,'PB : on specifie 2 dimensions unlimited avec 2 noms differents... impossible... stop'