Changeset 207 for trunk/SRC/Grid/computegrid.pro

Timestamp:

01/29/07 13:35:26 (17 years ago)

Author:

smasson

Message:

minor bugfix

File:

• trunk/SRC/Grid/computegrid.pro (modified) (1 diff)

trunk/SRC/Grid/computegrid.pro

@@ -984 +984 @@
   if NOT keyword_set(mask) then tmask = -1 ELSE tmask = mask
   IF keyword_set(romsh) AND tmask[0] NE -1 THEN tmask = tmask[0:jpiglo-1, 0:jpjglo-1]
-  IF array_equal(size(tmask, /dimensions), [jpiglo, jpjglo]) EQ 1 AND jpkglo GT 1 THEN BEGIN
+  IF n_elements(mask) EQ jpiglo*jpjglo AND jpkglo GT 1 THEN BEGIN
     tmask = tmask[*]#replicate(1, jpkglo)
     tmask = reform(tmask, jpiglo, jpjglo, jpkglo, /overwrite)