Changeset 957 for palm/trunk/SCRIPTS/NCL
- Timestamp:
- Jul 20, 2012 10:57:49 AM (12 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 3 edited
-
cross_sections.ncl (modified) (2 diffs)
-
profiles.ncl (modified) (2 diffs)
-
spectra.ncl (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r827 r957 2220 2220 png_output = new((/no_frames/), string) 2221 2221 j = 0 2222 do i=0, no_frames-1 2223 j = i + 1 2224 if (j .LE. 9) then 2225 png_output(i) = file_out+".00000"+j+".png" 2226 end if 2227 if (j .GT. 9 .AND. j .LE. 99) then 2228 png_output(i) = file_out+".0000"+j+".png" 2229 end if 2230 if (j .GT. 99 .AND. j .LE. 999) then 2231 png_output(i) = file_out+".000"+j+".png" 2232 end if 2233 if (j .GT. 999) then 2234 png_output(i) = file_out+".00"+j+".png" 2235 end if 2236 2237 ;using imagemagick's convert for reducing the white 2238 ;space around the plot 2239 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 2240 png_output(i) + " " + png_output(i) 2222 2223 if (no_frames .eq. 1) then 2224 if (ncl_version .GE. 6 ) then 2225 png_output(0) = file_out+".png" 2226 else 2227 png_output(0) = file_out+".00000"+1+".png" 2228 end if 2229 ;using imagemagick's convert for reducing the white 2230 ;space around the plot 2231 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 2232 png_output(0) + " " + png_output(0) 2241 2233 system(cmd) 2242 end do 2234 else 2235 2236 do i=0, no_frames-1 2237 j = i + 1 2238 if (j .LE. 9) then 2239 png_output(i) = file_out+".00000"+j+".png" 2240 end if 2241 if (j .GT. 9 .AND. j .LE. 99) then 2242 png_output(i) = file_out+".0000"+j+".png" 2243 end if 2244 if (j .GT. 99 .AND. j .LE. 999) then 2245 png_output(i) = file_out+".000"+j+".png" 2246 end if 2247 if (j .GT. 999) then 2248 png_output(i) = file_out+".00"+j+".png" 2249 end if 2250 2251 ;using imagemagick's convert for reducing the white 2252 ;space around the plot 2253 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 2254 png_output(i) + " " + png_output(i) 2255 system(cmd) 2256 end do 2257 end if 2243 2258 2244 2259 print(" ") … … 2250 2265 print(" ") 2251 2266 end if 2252 2267 2253 2268 end -
palm/trunk/SCRIPTS/NCL/profiles.ncl
r951 r957 1377 1377 res@tmYLMinorPerMajor = 4 1378 1378 1379 resP = True 1380 resP@txFont = "helvetica" 1381 resP@txString = f_att@title 1382 resP@txFuncCode = "~" 1383 resP@txFontHeightF = 0.015 1379 resP = True 1380 resP@gsnMaximize = True 1381 resP@gsnPanelXWhiteSpacePercent = 3.0 1382 resP@gsnPanelYWhiteSpacePercent = 2.0 1383 resP@txFont = "helvetica" 1384 resP@txString = f_att@title 1385 resP@txFuncCode = "~" 1386 resP@txFontHeightF = 0.015 1384 1387 1385 1388 ; *************************************************** … … 4637 4640 end if 4638 4641 4639 if (format_out .EQ. "png" ) then 4642 4643 if (format_out .EQ. "png" ) then 4640 4644 png_output = new((/no_frames/), string) 4641 4645 j = 0 4642 do i=0, no_frames-1 4643 j = i + 1 4644 if (j .LE. 9) then 4645 png_output(i) = file_out+".00000"+j+".png" 4646 end if 4647 if (j .GT. 9 .AND. j .LE. 99) then 4648 png_output(i) = file_out+".0000"+j+".png" 4649 end if 4650 if (j .GT. 99 .AND. j .LE. 999) then 4651 png_output(i) = file_out+".000"+j+".png" 4652 end if 4653 if (j .GT. 999) then 4654 png_output(i) = file_out+".00"+j+".png" 4655 end if 4656 4657 ;using imagemagick's convert for reducing the white 4658 ;space around the plot 4659 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 4660 png_output(i) + " " + png_output(i) 4646 4647 if (no_frames .eq. 1) then 4648 if (ncl_version .GE. 6 ) then 4649 png_output(0) = file_out+".png" 4650 else 4651 png_output(0) = file_out+".00000"+1+".png" 4652 end if 4653 ;using imagemagick's convert for reducing the white 4654 ;space around the plot 4655 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 4656 png_output(0) + " " + png_output(0) 4661 4657 system(cmd) 4662 end do 4658 else 4659 4660 do i=0, no_frames-1 4661 j = i + 1 4662 if (j .LE. 9) then 4663 png_output(i) = file_out+".00000"+j+".png" 4664 end if 4665 if (j .GT. 9 .AND. j .LE. 99) then 4666 png_output(i) = file_out+".0000"+j+".png" 4667 end if 4668 if (j .GT. 99 .AND. j .LE. 999) then 4669 png_output(i) = file_out+".000"+j+".png" 4670 end if 4671 if (j .GT. 999) then 4672 png_output(i) = file_out+".00"+j+".png" 4673 end if 4674 4675 ;using imagemagick's convert for reducing the white 4676 ;space around the plot 4677 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 4678 png_output(i) + " " + png_output(i) 4679 system(cmd) 4680 end do 4681 end if 4663 4682 4664 4683 print(" ") -
palm/trunk/SCRIPTS/NCL/spectra.ncl
r827 r957 751 751 png_output = new((/no_frames/), string) 752 752 j = 0 753 do i=0, no_frames-1 754 j = i + 1 755 if (j .LE. 9) then 756 png_output(i) = file_out+".00000"+j+".png" 757 end if 758 if (j .GT. 9 .AND. j .LE. 99) then 759 png_output(i) = file_out+".0000"+j+".png" 760 end if 761 if (j .GT. 99 .AND. j .LE. 999) then 762 png_output(i) = file_out+".000"+j+".png" 763 end if 764 if (j .GT. 999) then 765 png_output(i) = file_out+".00"+j+".png" 766 end if 767 768 ;using imagemagick's convert for reducing the white 769 ;space around the plot 770 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 771 png_output(i) + " " + png_output(i) 753 754 if (no_frames .eq. 1) then 755 if (ncl_version .GE. 6 ) then 756 png_output(0) = file_out+".png" 757 else 758 png_output(0) = file_out+".00000"+1+".png" 759 end if 760 ;using imagemagick's convert for reducing the white 761 ;space around the plot 762 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 763 png_output(0) + " " + png_output(0) 772 764 system(cmd) 773 end do 765 else 766 767 do i=0, no_frames-1 768 j = i + 1 769 if (j .LE. 9) then 770 png_output(i) = file_out+".00000"+j+".png" 771 end if 772 if (j .GT. 9 .AND. j .LE. 99) then 773 png_output(i) = file_out+".0000"+j+".png" 774 end if 775 if (j .GT. 99 .AND. j .LE. 999) then 776 png_output(i) = file_out+".000"+j+".png" 777 end if 778 if (j .GT. 999) then 779 png_output(i) = file_out+".00"+j+".png" 780 end if 781 782 ;using imagemagick's convert for reducing the white 783 ;space around the plot 784 cmd = "convert -geometry 1000x1000 -density 300 -trim " + \ 785 png_output(i) + " " + png_output(i) 786 system(cmd) 787 end do 788 end if 774 789 775 790 print(" ")
Note: See TracChangeset
for help on using the changeset viewer.
