Changeset 447 for trunk/SRC/Computation/e3t_3d.pro

Timestamp:

01/25/11 12:24:31 (13 years ago)

Author:

smasson

Message:

bugfix related to changeset:445

File:

• trunk/SRC/Computation/e3t_3d.pro (modified) (1 diff)

trunk/SRC/Computation/e3t_3d.pro

@@ -61 +61 @@
     IF ok[0]  NE -1 THEN BEGIN 
 ; the bottom of the ocean in 3D index is:
-      bottom  = lindgen(nx*ny) + nx*ny*(temporary(bottom ))[ok ]
+      bottom  = (lindgen(nx*ny))[ok ] + nx*ny*(temporary(bottom ))[ok ]
       e3t3d[temporary(bottom )] = arr2d[ok ] * (e3t_ps[fstx:lstx, fsty:lsty])[ok ]
     ENDIF
     IF ok2[0] NE -1 THEN BEGIN 
-      bottom2 = lindgen(nx*ny) + nx*ny*(temporary(bottom2))[ok2]
+      bottom2 = (lindgen(nx*ny))[ok2] + nx*ny*(temporary(bottom2))[ok2]
       e3t3d[temporary(bottom2)] = arr2d[ok2] * (e3t_ps[fstx:lstx, fsty:lsty])[ok2]
     ENDIF