Changeset 114 for trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro

Timestamp:

06/19/06 16:14:56 (18 years ago)

Author:

smasson

Message:

new compilation options (compile_opt idl2, strictarrsubs) in each routine

File:

• trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/TRIANGULATION/drawsectionbottom.pro

@@ -46 +46 @@
                        , OVERPLOT = overplot, _extra = ex
 ;---------------------------------------------------------
+;
+  compile_opt idl2, strictarrsubs
+;
 @cm_general
   IF NOT keyword_set(key_forgetold) THEN BEGIN
@@ -92 +95 @@
 ; appens when the bottom limit is defined between T[k] and W[k]
 ; points)
-  IF min(depthsin) GT -1 THEN BEGIN
+  IF min(depthsin) GT -1 OR max(total(mask, 2)) EQ nz THEN BEGIN
     zmin = min(!y.range)-deltaz
     depths = [[replicate(zmin, nx)], [depths]]