Changeset 167 for trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

Timestamp:

09/05/06 14:24:07 (18 years ago)

Author:

smasson

Message:

clean div, curl, grad + minors bugfix

File:

• trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/WIDGET/COMPOUND_WIDGET/cw_domain.pro

@@ -662 +662 @@
 ;
   min2 = gdep2[indice1]
-  if indice2 EQ jpk-1 then BEGIN 
-    max2 = max([gdept, gdepw])
-    max2 = strtrim(string(max2, format = '(e8.0)'), 1)
-    max2 = float('1'+strmid(max2, 1))+float(max2)
-  ENDIF ELSE max2 = gdep1[indice2+1]
-  if max2 EQ min2 then max2 = min2+1
+  if indice2 EQ jpk-1 then max2 = ceil(max([gdept, gdepw])) $
+  ELSE max2 = gdep1[indice2+1]
+  if floor(max2) LE floor(min2) then max2 = min2+1
   rien = cw_slider_pm(basez, value = (min2 > boxzoom[4]) > boxzoom[5] < max2 $
                       , uvalue = {name:'depth2'}, minimum = min2, maximum =  max2 $