Changeset 226 for trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/PLOTS/DIVERS/determineminmax.pro
r163 r226 7 7 ; Determine the min and the max of a mask array 8 8 ; 9 ; @categories 9 ; @categories 10 10 ; Plotting 11 11 ; … … 14 14 ; 15 15 ; @param MASK {in}{required} 16 ; The mask array 16 ; The mask array 17 17 ; 18 18 ; @keyword MININ {type=scalar} … … 22 22 ; If it is not defined, it takes the value of VRAIMAX 23 23 ; 24 ; @keyword ZEROMIDDLE 24 ; @keyword ZEROMIDDLE 25 25 ; Force the middle of the colorbar to be equal 26 26 ; to 0 (force max=max(abs([min,max])) and min=-max) 27 ; 27 ; 28 28 ; @keyword _EXTRA 29 29 ; used to pass your keywords … … 31 31 ; @keyword USETRI 32 32 ; To force using triangulation. 33 ; 33 ; 34 34 ; @param VRAIMIN {out} 35 35 ; The min of the array … … 64 64 ;----------------------------------------------------------------------------- 65 65 ;----------------------------------------------------------------------------- 66 ; Type o fthe vertical grid:66 ; Type of the vertical grid: 67 67 if vargrid EQ 'W' then nz = nzw ELSE nz = nzt 68 68 ; liste des points mer 69 69 if (size(mask))[0] EQ 3 then mer = mask[*, *, 0] $ 70 70 ELSE mer = mask 71 ; If key_irregular eq 1, we mask also points which are not in the geographic 71 ; If key_irregular eq 1, we mask also points which are not in the geographic 72 72 ; domain defined by lon1,lon2,lat1,lat2 73 73 if keyword_set(key_irregular) AND n_elements(glam) NE 0 AND n_elements(gphi) NE 0 then begin … … 89 89 ; ma and mi : max and min on ocean points 90 90 vraimax = max(tab[mer], min = vraimin, _extra = ex) 91 sameminmax = testvar(var = minin) EQ testvar(var = maxin) 91 sameminmax = testvar(var = minin) EQ testvar(var = maxin) 92 92 if n_elements(maxin) EQ 0 OR sameminmax then maxin = vraimax 93 if n_elements(minin) EQ 0 OR sameminmax then BEGIN 93 if n_elements(minin) EQ 0 OR sameminmax then BEGIN 94 94 if keyword_set(intervalle) then minin = floor(vraimin/intervalle)*intervalle $ 95 95 ELSE minin = vraimin
Note: See TracChangeset
for help on using the changeset viewer.