source: trunk/GRILLE/vmask.pro @ 2

Last change on this file since 2 was 2, checked in by opalod, 22 years ago

Initial revision
  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 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   if jpk EQ 1 then begin
31      res = tmask*shift(tmask, 0, -1)
32      res[*, jpj-1] = vmaskred
33   ENDIF ELSE BEGIN
34      res = tmask*shift(tmask, 0, -1, 0)
35      res[*, jpj-1, *] = vmaskred
36   ENDELSE
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.