Changeset 443 for trunk/SRC/Interpolation/file_interp.pro
- Timestamp:
- 01/14/11 14:08:26 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/file_interp.pro
r433 r443 27 27 , INIRR = inirr, METHOD = method, SMOOTH = smooth $ 28 28 , WEIG = weig, ADDR = addr, MISSING_VALUE = missing_value $ 29 , DIVX = divx, DIVY = divy $29 , DIVX = divx, DIVY = divy, OUTMASK = outmask $ 30 30 , GETHAN = gethan, LETHAN = lethan, _EXTRA = ex 31 31 ; … … 75 75 76 76 if intype LE 3 THEN data = round(temporary(data)) 77 IF outmask[0] NE -1 THEN data = temporary(data) * outmask 77 78 78 79 RETURN, data … … 438 439 IF varinq.ndims EQ 0 THEN BEGIN ; scalar variable 439 440 outvarid[i] = ncdf_vardef(outid, varinq.name $ 440 , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 441 , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' $ 441 ; , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 442 , CHAR = varinq.datatype EQ 'CHAR' $ 443 , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' OR varinq.datatype EQ 'BYTE' $ 442 444 , LONG = varinq.datatype EQ 'LONG' $ 443 445 , FLOAT = varinq.datatype EQ 'FLOAT', DOUBLE = varinq.datatype EQ 'DOUBLE') … … 458 460 IF dimvar[0] NE -1 THEN BEGIN 459 461 outvarid[i] = ncdf_vardef(outid, varinq.name, dimvar $ 460 , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 461 , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' $ 462 ; , BYTE = varinq.datatype EQ 'BYTE', CHAR = varinq.datatype EQ 'CHAR' $ 463 , CHAR = varinq.datatype EQ 'CHAR' $ 464 , SHORT = varinq.datatype EQ 'INT' OR varinq.datatype EQ 'SHORT' OR varinq.datatype EQ 'BYTE' $ 462 465 , LONG = varinq.datatype EQ 'LONG' $ 463 466 , FLOAT = varinq.datatype EQ 'FLOAT', DOUBLE = varinq.datatype EQ 'DOUBLE') … … 511 514 , INIRR = inirr, METHOD = method, SMOOTH = smooth $ 512 515 , WEIG = weig, ADDR = addr, MISSING_VALUE = var_missing_value $ 513 , DIVX = divx, DIVY = divy $516 , DIVX = divx, DIVY = divy, OUTMASK = outmask $ 514 517 , GETHAN = gethan, LETHAN = lethan, _extra = ex) 515 518 IF interp AND n_elements(data) EQ 1 THEN data = replicate(data, jpiout, jpjout) … … 530 533 , INIRR = inirr, METHOD = method, SMOOTH = smooth $ 531 534 , WEIG = weig, ADDR = addr, MISSING_VALUE = var_missing_value $ 532 , DIVX = divx, DIVY = divy $535 , DIVX = divx, DIVY = divy, OUTMASK = outmask $ 533 536 , GETHAN = gethan, LETHAN = lethan, _extra = ex) 534 537 IF interp AND n_elements(data) EQ 1 THEN data = replicate(data, jpiout, jpjout) … … 550 553 , INIRR = inirr, METHOD = method, SMOOTH = smooth $ 551 554 , WEIG = weig, ADDR = addr, MISSING_VALUE = var_missing_value $ 552 , DIVX = divx, DIVY = divy $555 , DIVX = divx, DIVY = divy, OUTMASK = outmask $ 553 556 , GETHAN = gethan, LETHAN = lethan, _extra = ex) 554 557 IF interp AND n_elements(data) EQ 1 THEN data = replicate(data, jpiout, jpjout)
Note: See TracChangeset
for help on using the changeset viewer.