Changeset 442 for trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
- Timestamp:
- 12/23/10 11:09:15 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/grossemoyenne.pro
r441 r442 47 47 ; To make an integral rather than an average 48 48 ; 49 ; @keyword MASK2D 50 ; an optional 2d mask array (containing only 0 and 1) that can be use 51 ; to modified each levels of the default mask. 52 ; 49 53 ; @keyword SPATIALFIRST 50 54 ; when performing at the same time … … 93 97 ;- 94 98 FUNCTION grossemoyenne, tab, direc, BOXZOOM=boxzoom, INTEGRATION=integration, KEEPBOTTOM = keepbottom $ 95 , NAN=nan, NODOMDEF=nodomdef, WDEPTH=wdepth, ssh=ssh$99 , NAN=nan, NODOMDEF=nodomdef, WDEPTH=wdepth, SSH=ssh, MASK2D=mask2d $ 96 100 , SPATIALFIRST=spatialfirst, TEMPORALFIRST=temporalfirst $ 97 101 , _EXTRA=ex … … 168 172 ;--------------------------------------------------------------- 169 173 grille, mask, glam, gphi, gdep, nx, ny, nz, firstx, firsty, firstz, lastx, lasty, lastz, e1, e2, e3, WDEPTH = wdepth 174 IF keyword_set(mask2D) THEN BEGIN 175 IF taille[1] eq jpi and taille[2] eq jpj THEN $ 176 mmm = mask2D[firstx:lastx, firsty:lasty] ELSE mmm = mask2D 177 mask = mask * ( mmm[*] # replicate(1., nz) ) 178 ENDIF 170 179 ;--------------------------------------------------------------- 171 180 ; check the use of ssh keyword...
Note: See TracChangeset
for help on using the changeset viewer.