source:
trunk/grids/make_mask.pro
@
162
Last change on this file since 162 was 162, checked in by pinsard, 15 years ago | |
---|---|
File size: 222 bytes |
Line | |
---|---|
1 | ;+ |
2 | ; |
3 | ; @version |
4 | ; $Id$ |
5 | ; |
6 | ;- |
7 | lands=nc_get('/home/database/ERA_1y_00_00_t106.nc','land_sea',NCDF_DB = '') |
8 | result=round(lands) |
9 | unit=12 |
10 | openw,unit,'mask_t106',/get_lun,/f77,/swap_if_little_endian |
11 | writeu,unit,result |
12 | close,unit |
Note: See TracBrowser
for help on using the repository browser.