Changeset 585 for palm/trunk/SCRIPTS/NCL/spectra.ncl
- Timestamp:
- Oct 14, 2010 11:15:06 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/spectra.ncl
r566 r585 203 203 204 204 vNam = getfilevarnames(f_att) 205 vType = getfilevartypes(f_att,vNam) 206 207 if ((all(vType .eq. "double"))) then ;distinction if data is double or float 208 check_vType = True 209 else 210 check_vType = False 211 end if 212 205 213 print(" ") 206 214 print("Variables in input file:") … … 530 538 end do 531 539 540 if (check_vType) then 541 min_y=new(dimz,double) 542 max_y=new(dimz,double) 543 else 544 min_y=new(dimz,float) 545 max_y=new(dimz,float) 546 end if 532 547 min_x=new(dimz,double) 533 548 max_x=new(dimz,double) 534 min_y=new(dimz,float) 535 max_y=new(dimz,float) 549 536 550 plot_h = new(dimz,graphic) 537 551
Note: See TracChangeset
for help on using the changeset viewer.