Changeset 181 for trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

Timestamp:

09/15/06 10:24:36 (18 years ago)

Author:

smasson

Message:

bugfix tvplus + roms + xxx

File:

• trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro (modified) (3 diffs)

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -561 +561 @@
       ncdf_attget, cdfid, 'hc', hc, /global
 ; look for all variables names
-      allvarnames = strarr(varcontient.nvars)
-      FOR i = 0, varcontient.nvars-1 DO BEGIN
+      allvarnames = strarr(contient.nvars)
+      FOR i = 0, contient.nvars-1 DO BEGIN
         tmp = ncdf_varinq( cdfid, i)
         allvarnames[i] = tmp.name
@@ -568 +568 @@
       CASE 1 OF
         keyword_set(hfilename):  $
-           hroms = read_ncdf('h', 0, 0, FILENAME = hfile $
+           hroms = read_ncdf('h', 0, 0, FILENAME = hfilename $
                              , /TIMESTEP, /NOSTRUCT, CONT_NOFILL = CONT_NOFILL $
                              , GRID = vargrid, /CALLITSELF, _EXTRA = ex)
@@ -583 +583 @@
                             , /TIMESTEP, /NOSTRUCT, CONT_NOFILL = CONT_NOFILL $
                             , GRID = vargrid, /CALLITSELF, _EXTRA = ex)
-        (where(allvarnames EQ 'h'))[0] NE -1: $
+        (where(allvarnames EQ 'zeta'))[0] NE -1: $
            zeta = read_ncdf('zeta', firsttps, lasttps, FILENAME = filename $
                             , /TIMESTEP, /NOSTRUCT, CONT_NOFILL = CONT_NOFILL $