source: trunk/SRC/ToBeReviewed/CALCULS/depth2mask.pro @ 268

Last change on this file since 268 was 268, checked in by pinsard, 17 years ago

typo and links in header in some pro files
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.3 KB
Line 
1;+
2;
3; @file_comments
4; Allows to pass from a 2d depth sill array to a 3d array of mask
5; with one of levels above the sill depth and 0s below.
6;
7; @categories
8; Without loop
9;
10; @param TAB {type=3d array}
11; 2d sill depth array (or a structure respecting <pro>litchamp</pro> criterions)
12;
13; @keyword _EXTRA
14; Used to pass keywords
15;
16; @returns
17; It is a 3d array containing the mask associated to the 2d sill depth array
18;
19; @uses
20; common.pro
21;
22; @history
23; Sebastien Masson (smasson\@lodyc.jussieu.fr)
24;                       17/6/1999
25;
26; @version
27; $Id$
28;
29;-
30;
31FUNCTION depth2mask, tab, _EXTRA = ex
32;
33  compile_opt idl2, strictarrsubs
34;
35   tempsun = systime(1)         ; For key_performance
36@common
37;------------------------------------------------------------
38; We transform the 2d depth value in a 2d array of levels corresponding to depths
39;------------------------------------------------------------
40   niveaux = depth2level(tab, _extra = ex)
41   IF niveaux[0] EQ -1 THEN return,  -1
42;------------------------------------------------------------
43; We transform the 2d array in a 3d array of mask
44;------------------------------------------------------------
45   mask = level2mask(niveaux)
46;------------------------------------------------------------
47   if keyword_set(key_performance) NE 0 THEN print, 'temps depth2mask', systime(1)-tempsun
48   return, mask
49end
Note: See TracBrowser for help on using the repository browser.