Changeset 226 for trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro
- Timestamp:
- 03/16/07 10:22:26 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/ToBeReviewed/HOPE/computehopegrid.pro
r157 r226 8 8 ; @categories 9 9 ; Grid 10 ; 10 ; 11 11 ; @param XAXIS 12 12 ; … … 68 68 if NOT keyword_set(lasts) then lasts = [jpi-1, jpj-1, jpk-1] 69 69 ; 70 ; de permination of the grid type and of the point type70 ; determination of the grid type and of the point type 71 71 ; 72 72 if keyword_set(pttype) then vargrid = pttype … … 129 129 gphiv = gphit+(gphit[0, 1]-gphit[0, 0])/2. 130 130 gphif = gphit+(gphit[0, 1]-gphit[0, 0])/2. 131 ENDIF ELSE BEGIN 131 ENDIF ELSE BEGIN 132 132 gphiv = gphit 133 133 gphif = gphit … … 181 181 e2f = e2t 182 182 ; 183 ; mask 183 ; mask 184 184 ; 185 185 tmask = replicate(1b, jpi, jpj, jpk) … … 239 239 IF NOT keyword_set(key_forgetold) THEN BEGIN 240 240 @updateold 241 ENDIF 241 ENDIF 242 242 ;------------------------------------------------------------ 243 243 return
Note: See TracChangeset
for help on using the changeset viewer.