Changeset 114 for trunk/SRC/Grid/micromeshmask.pro
- Timestamp:
- 06/19/06 16:14:56 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Grid/micromeshmask.pro
r103 r114 20 20 ;------------------------------------------------------ 21 21 PRO ncdf_transfer, inid, outid, inname, outname 22 ; 23 compile_opt idl2, strictarrsubs 24 ; 22 25 IF n_elements(outname) EQ 0 THEN outname = inname 23 26 ncdf_varget, inid, inname, zzz … … 42 45 ;- 43 46 PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 47 ; 48 ; 49 compile_opt idl2, strictarrsubs 44 50 ; 45 51 filein = isafile(FILE = ncfilein, IODIR = iodir, /NEW) … … 78 84 dimid = (where(strmid(listdims, 0, 5) EQ 'depth'))[0] 79 85 IF dimid NE -1 THEN ncdf_diminq, cdfid, dimid, name, jpk ELSE BEGIN 80 report, 'We could not find the vertical dimension..., its name must be z or start with depth'86 dummy = report('We could not find the vertical dimension..., its name must be z or start with depth') 81 87 return 82 88 ENDELSE
Note: See TracChangeset
for help on using the changeset viewer.