Changeset 226 for trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/depth2floatlevel.pro
r163 r226 4 4 ;+ 5 5 ; @file_comments 6 ; Rather comparable to depth2level but here, the calculated level is in float. 7 ; For example, the level 5.4 correspond to a depth equal 6 ; Rather comparable to depth2level but here, the calculated level is in float. 7 ; For example, the level 5.4 correspond to a depth equal 8 8 ; to gdep[5]+.4*(gdep[6]-gdep[5]) 9 9 ; 10 ; @categories 10 ; @categories 11 11 ; Without loop 12 12 ; … … 32 32 ; ->champ nul a 1e-6 pres 33 33 ; 34 ; @history 34 ; @history 35 35 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 36 36 ; 15/06/2000 37 ; 37 ; 38 38 ; @version 39 39 ; $Id$ … … 57 57 levellow = depth2level(depthin, /lower, /nomask) 58 58 depthlow = level2depth(levellow, /nomask) 59 ; calculate the distance depthlow-depthup and management of the case 60 ; of this distance is null or eq al to !values.f_nan59 ; calculate the distance depthlow-depthup and management of the case 60 ; of this distance is null or equal to !values.f_nan 61 61 divi = depthlow-depthup 62 62 nan = where(finite(divi) EQ 0) … … 74 74 endif 75 75 ;------------------------------------------------------------ 76 if keyword_set(key_performance) THEN print, 'temps depth2floatlevel', systime(1)-tempsun 76 if keyword_set(key_performance) THEN print, 'temps depth2floatlevel', systime(1)-tempsun 77 77 ; 78 78 return, res
Note: See TracChangeset
for help on using the changeset viewer.