source: trunk/ToBeReviewed/GRILLE/vmask.pro @ 13

Last change on this file since 13 was 13, checked in by pinsard, 18 years ago

upgrade of GRILLE/Utilities according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1;------------------------------------------------------------
2;------------------------------------------------------------
3;------------------------------------------------------------
4;+
5; NAME:vmask
6;
7; PURPOSE:calcule vmask
8;
9; CATEGORY:fonction economisatrice de memoire (plus besion de garder
10; vmask) 
11;
12; CALLING SEQUENCE:res=vmask()
13;
14; OUTPUTS:un tableau 3d correspondant a vmask
15;
16; EXAMPLE:s''utilise comme si vmask etait un tableau connu en
17; replacant ds la syntaxe vmask par vmask(). par ex:
18; au lieu de taper vmask[domainef] il faut taper vmask()[domainef]
19;
20; MODIFICATION HISTORY: Sebastien Masson (smasson@lodyc.jussieu.fr)
21;                       11/12/98
22;                       20/9/99 cas jpk=1 (merci jpblod@ipsl.jussieu.fr)
23;-
24;------------------------------------------------------------
25;------------------------------------------------------------
26;------------------------------------------------------------
27FUNCTION vmask
28@common
29  tempsun = systime(1)          ; pour key_performance
30;
31  CASE size(tmask, /n_dimensions) OF
32    2:res = tmask*shift(tmask, 0, -1)
33    3:res = tmask*shift(tmask, 0, -1, 0)
34  ENDCASE
35;
36  res[*, jpj-1, *] = vmaskred
37  if keyword_set(key_performance) THEN print, 'temps vmask', systime(1)-tempsun
38;
39  return, res
40end
Note: See TracBrowser for help on using the repository browser.