Changeset 125 for trunk/SRC/Interpolation/extrapolate.pro

Timestamp:

07/06/06 16:10:25 (18 years ago)

Author:

pinsard

Message:

improvements of Interpolation/*.pro header

File:

• trunk/SRC/Interpolation/extrapolate.pro (modified) (8 diffs)

trunk/SRC/Interpolation/extrapolate.pro

@@ -1 +1 @@
 ;+
-; @file_comments extrapolate data (zinput) where maskinput eq 0 by filling 
+; @file_comments 
+; extrapolate data (zinput) where maskinput eq 0 by filling
 ; step by step the coastline points with the mean value of the 8 neighbourgs.
 ;
@@ -20 +21 @@
 FUNCTION extrapolate, zinput, maskinput, nb_iteration, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval
 ;
-  compile_opt idl2, strictarrsubs 
+  compile_opt idl2, strictarrsubs
 ;
 ; check the number of iteration used in the extrapolation.
@@ -28 +29 @@
   ny = (size(zinput))[2]
 ; take care of the boundary conditions...
-; 
+;
 ; for the x direction, we put 2 additional columns at the left and
-; right side of the array. 
+; right side of the array.
 ; for the y direction, we put 2 additional lines at the bottom and
-; top side of the array. 
+; top side of the array.
 ; These changes allow us to use shift function without taking care of
 ; the x and y periodicity.
@@ -54 +55 @@
 ;---------------------------------------------------------------
 ;---------------------------------------------------------------
-; extrapolation 
+; extrapolation
 ;---------------------------------------------------------------
   sqrtinv = 1./sqrt(2)
 ;
   cnt = 1
-; When we look for the coast line, we don't whant to select the
+; When we look for the coast line, we don't want to select the
 ; borderlines of the array. -> we force the value of the mask for
 ; those lines.
@@ -86 +87 @@
 ; we compute the weighted number of sea neighbourgs.
 ; those 4 neighbours have a weight of 1:
-;    *    
-;   *+*        
-;    *     
+;    *
+;   *+*
+;    *
 ;
 ; those 4 neighbours have a weight of 1/sqrt(2):
 ;
 ;    * *
-;     +       
+;     +
 ;    * *
 ;
@@ -117 +118 @@
              +1./sqrt(2)*(z[nx2+1+coast]+z[nx2-1+coast] $
                           +z[-nx2+1+coast]+z[-nx2-1+coast])
-;    
+;
     IF n_elements(minval) NE 0 THEN zcoast = minval > temporary(zcoast)
     IF n_elements(maxval) NE 0 THEN zcoast = temporary(zcoast) < maxval
@@ -132 +133 @@
 ;
     cnt = cnt + 1
-; When we look for the coast line, we don't whant to select the
+; When we look for the coast line, we don't want to select the
 ; borderlines of the array. -> we force the value of the mask for
 ; those lines.
@@ -146 +147 @@
 ; we return the original size of the array
 ;---------------------------------------------------------------
-  
+;
   return, z[1:nx, 1:ny]
-END 
+END