Changeset 969 for palm


Ignore:
Timestamp:
Aug 6, 2012 9:22:43 AM (12 years ago)
Author:
heinze
Message:

png output adjusted for NCL versions higher than 5.2.1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/NCL/timeseries.ncl

    r827 r969  
    13321332     png_output = new((/no_frames/), string)
    13331333     j = 0
    1334      do i=0, no_frames-1
    1335        j = i + 1
    1336        if (j .LE. 9) then
    1337          png_output(i) = file_out+".00000"+j+".png"
    1338        end if
    1339        if (j .GT. 9 .AND. j .LE. 99) then
    1340          png_output(i) = file_out+".0000"+j+".png"
    1341        end if
    1342        if (j .GT. 99 .AND. j .LE. 999) then
    1343          png_output(i) = file_out+".000"+j+".png"
    1344        end if
    1345        if (j .GT. 999) then
    1346          png_output(i) = file_out+".00"+j+".png"
    1347        end if
    1348 
    1349        ;using imagemagick's convert for reducing the white
    1350        ;space around the plot
    1351        cmd = "convert -geometry 1000x1000 -density 300 -trim " +  \
    1352               png_output(i) + " " + png_output(i)
     1334
     1335     if (no_frames .eq. 1) then
     1336        if (ncl_version .GE. 6 ) then
     1337           png_output(0) = file_out+".png"
     1338        else
     1339           png_output(0) = file_out+".00000"+1+".png"
     1340        end if
     1341        ;using imagemagick's convert for reducing the white
     1342        ;space around the plot
     1343        cmd = "convert -geometry 1000x1000 -density 300 -trim " +  \
     1344              png_output(0) + " " + png_output(0)
    13531345       system(cmd)
    1354      end do
     1346     else
     1347
     1348       do i=0, no_frames-1
     1349         j = i + 1
     1350         if (j .LE. 9) then
     1351           png_output(i) = file_out+".00000"+j+".png"
     1352         end if
     1353         if (j .GT. 9 .AND. j .LE. 99) then
     1354           png_output(i) = file_out+".0000"+j+".png"
     1355         end if
     1356         if (j .GT. 99 .AND. j .LE. 999) then
     1357           png_output(i) = file_out+".000"+j+".png"
     1358         end if
     1359         if (j .GT. 999) then
     1360           png_output(i) = file_out+".00"+j+".png"
     1361         end if
     1362
     1363         ;using imagemagick's convert for reducing the white
     1364         ;space around the plot
     1365         cmd = "convert -geometry 1000x1000 -density 300 -trim " +  \
     1366                png_output(i) + " " + png_output(i)
     1367         system(cmd)
     1368       end do
     1369     end if
    13551370
    13561371     print(" ")
     
    13621377     print(" ")
    13631378   end if
    1364  
    1365  
     1379
    13661380end
Note: See TracChangeset for help on using the changeset viewer.