Changeset 295 for trunk/SRC/Interpolation/extrapolate.pro
- Timestamp:
- 09/25/07 12:16:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/extrapolate.pro
r292 r295 3 3 ; @file_comments 4 4 ; extrapolate data (zinput) where maskinput equal 0 by filling step by 5 ; step the coastline points with the mean value of the 8 neighbo urgs6 ; (weighted by their mask value ).5 ; step the coastline points with the mean value of the 8 neighbors 6 ; (weighted by their mask values). 7 7 ; 8 8 ; @categories … … 129 129 endif 130 130 ; 131 ; we compute the weighted number of sea neighbo urgs.132 ; those 4 neighbo urs have a weight of 1:131 ; we compute the weighted number of sea neighbors. 132 ; those 4 neighbors have a weight of 1: 133 133 ; * 134 134 ; *+* 135 135 ; * 136 136 ; 137 ; those 4 neighbo urs have a weight of 1/sqrt(2):137 ; those 4 neighbors have a weight of 1/sqrt(2): 138 138 ; 139 139 ; * * … … 148 148 +sqrtinv*(msk[land+nx2+1]+msk[land+nx2-1] $ 149 149 +msk[land-nx2+1]+msk[land-nx2-1]) 150 ; list all the points that have sea neighbo urgs150 ; list all the points that have sea neighbors 151 151 ok = where(weight GT 0) 152 152 ; the coastline points 153 153 coast = land[ok] 154 ; their weighted number of sea neighbo urgs.154 ; their weighted number of sea neighbors. 155 155 weight = weight[temporary(ok)] 156 156 ;---------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.