Changeset 226 for trunk/SRC/ToBeReviewed/CALCULS/depth2level.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/CALCULS/depth2level.pro
r163 r226 4 4 ;+ 5 5 ; 6 ; @file_comments 6 ; @file_comments 7 7 ; Allows to pass from a 2d depth array to a corresponding 2d level array. 8 8 ; … … 11 11 ; 12 12 ; @param TAB {type=2d array} 13 ; 2d depth array (or a structure respecting litchamp crit rions)13 ; 2d depth array (or a structure respecting litchamp criterions) 14 14 ; 15 15 ; @keyword UPPER … … 17 17 ; 18 18 ; @keyword LOWER 19 ; We select the level just below the depth 19 ; We select the level just below the depth 20 20 ; 21 ; @keyword CLOSER 22 ; We select the depth's closer level 21 ; @keyword CLOSER 22 ; We select the depth's closer level 23 23 ; 24 ; @keyword NOMASK 24 ; @keyword NOMASK 25 25 ; To do not mask land points 26 26 ; 27 ; @returns 27 ; @returns 28 28 ; It is a 2d array containing level's values. 29 29 ; … … 31 31 ; common.pro 32 32 ; 33 ; @restrictions 33 ; @restrictions 34 34 ; For depths out of gdep's values, the value !values.f_nan is sent back. 35 ; if the depth is superior to this one of the bottom, we send back jpk-1 in 35 ; if the depth is superior to this one of the bottom, we send back jpk-1 in 36 36 ; the upper case, and !values.f_nan in the lower case. 37 37 ; … … 80 80 if notanumber[0] NE -1 then in[notanumber] = 0 81 81 ;------------------------------------------------------------ 82 ; We transform the 2d de th value in a 2d array of levels corresponding to depthes82 ; We transform the 2d depth value in a 2d array of levels corresponding to depths 83 83 ;------------------------------------------------------------ 84 84 ; We go on array who have the size of 3d arrays 85 prof=replicate(1,nx*ny)#gdep[firstz:lastz] 85 prof=replicate(1,nx*ny)#gdep[firstz:lastz] 86 86 in = in[*]#replicate(1, nz) 87 87 ; … … 116 116 ;------------------------------------------------------------ 117 117 ;------------------------------------------------------------ 118 if keyword_set(key_performance) THEN print, 'temps depth2level', systime(1)-tempsun 118 if keyword_set(key_performance) THEN print, 'temps depth2level', systime(1)-tempsun 119 119 return, levels 120 120 end
Note: See TracChangeset
for help on using the changeset viewer.