Ignore:
Timestamp:
12/13/06 08:47:14 (18 years ago)
Author:
smasson
Message:

minor bugfixs

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/SRC/Interpolation/extrapolate.pro

    r157 r199  
    1818; @keyword MINVAL 
    1919; @keyword MAXVAL 
     20; @keyword GE0 
    2021; 
    2122; @version $Id$ 
    2223; 
    2324;- 
    24 FUNCTION extrapolate, zinput, maskinput, nb_iteration, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval 
     25FUNCTION extrapolate, zinput, maskinput, nb_iteration, x_periodic = x_periodic, MINVAL = minval, MAXVAL = maxval, GE0 = ge0 
    2526; 
    2627  compile_opt idl2, strictarrsubs 
    … …  
    122123                          +z[-nx2+1+coast]+z[-nx2-1+coast]) 
    123124; 
     125    IF keyword_set(ge0) THEN zcoast = 0. > temporary(zcoast) 
    124126    IF n_elements(minval) NE 0 THEN zcoast = minval > temporary(zcoast) 
    125127    IF n_elements(maxval) NE 0 THEN zcoast = temporary(zcoast) < maxval 
Note: See TracChangeset for help on using the changeset viewer.