Changeset 224 for trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro
- Timestamp:
- 03/15/07 11:22:28 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/level2depth.pro
r163 r224 17 17 ; To do not mask land points. 18 18 ; 19 ; @returns 19 ; @returns 20 20 ; 2d array containing depths 21 21 ; … … 50 50 ;--------------------------------------------------------------- 51 51 taille = size(niveaux) 52 if taille[0] NE 2 then return, report(' le champ en entree doit contenir un tableau 2d')52 if taille[0] NE 2 then return, report('input field must be a 2d array') 53 53 case 1 of 54 54 taille[1] eq jpi and taille[2] eq jpj:niveaux=niveaux[firstx:lastx, firsty:lasty] … … 73 73 endif 74 74 ; 75 if keyword_set(key_performance) THEN print, 'temps level2depth', systime(1)-tempsun 75 if keyword_set(key_performance) THEN print, 'temps level2depth', systime(1)-tempsun 76 76 return, gdep 77 77 end
Note: See TracChangeset
for help on using the changeset viewer.