source: trunk/SRC/ToBeReviewed/GRILLE/vmask.pro @ 142

Last change on this file since 142 was 142, checked in by navarro, 18 years ago

english and nicer header (2a)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Id
File size: 1.3 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5;
6; @file_comments
7; calculate fmask. Economize memory (we do not need to keep vmask anymore)
8;
9; @categories
10; Utilities
11;
12; @returns
13; A 3d array corresponding to vmask.
14;
15; @examples
16; Used like if vmask was a known array by substituing vmask by (vmask())
17; For example: Instaed of write vmask[domainef] we have to write (vmask())[domainef]
18;
19; @history
20; Sebastien Masson (smasson@lodyc.jussieu.fr)
21;                       11/12/98
22;                       20/9/99 cas jpk=1 (merci jpblod@ipsl.jussieu.fr)
23;
24; @version
25; $Id$
26;
27;-
28;------------------------------------------------------------
29;------------------------------------------------------------
30;------------------------------------------------------------
31FUNCTION vmask
32;
33  compile_opt idl2, strictarrsubs
34;
35@common
36  tempsun = systime(1)          ; For key_performance
37;
38  CASE size(tmask, /n_dimensions) OF
39    2:res = tmask*shift(tmask, 0, -1)
40    3:res = tmask*shift(tmask, 0, -1, 0)
41  ENDCASE
42;
43  res[*, jpj-1, *] = vmaskred
44  if keyword_set(key_performance) THEN print, 'temps vmask', systime(1)-tempsun
45;
46  return, res
47end
Note: See TracBrowser for help on using the repository browser.