Changeset 286 for palm/trunk/SCRIPTS/NCL


Ignore:
Timestamp:
Apr 9, 2009 8:52:42 AM (13 years ago)
Author:
weinreis
Message:

ncl-script cross_sections.ncl modified

File:
1 edited

Legend:

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

    r267 r286  
    923923      end do
    924924   end if
    925  
     925
    926926   if( shape .eq. 1 ) then
    927927      if (xyc .EQ. 1)then
     
    931931         vecres@vpHeightF   = 1
    932932         if (xe-xs .GT. ye-ys)then
    933             cs_res@gsnPaperOrientation     = "landscape"
    934             vecres@gsnPaperOrientation     = "landscape"
    935             cs_res@lbOrientation = "Horizontal"   
     933            if (no_rows .LE. no_columns)then
     934               cs_res@gsnPaperOrientation     = "landscape"
     935               vecres@gsnPaperOrientation     = "landscape"
     936               cs_res@lbOrientation = "Horizontal"
     937            else
     938               cs_res@gsnPaperOrientation     = "portrait"
     939               vecres@gsnPaperOrientation     = "portrait"
     940               cs_res@lbOrientation = "Vertical"
     941            end if 
    936942         else
    937             cs_res@gsnPaperOrientation     = "portrait"
    938             vecres@gsnPaperOrientation     = "portrait"
    939             cs_res@lbOrientation = "Vertical"
     943            if (no_rows .GE. no_columns)then
     944               cs_res@gsnPaperOrientation     = "portrait"
     945               vecres@gsnPaperOrientation     = "portrait"
     946               cs_res@lbOrientation = "Vertical"
     947            else
     948               cs_res@gsnPaperOrientation     = "landscape"
     949               vecres@gsnPaperOrientation     = "landscape"
     950               cs_res@lbOrientation = "Horizontal"
     951            end if
    940952         end if
    941953      end if
     
    946958         vecres@vpHeightF   = 1
    947959         if (xe-xs .GT. (delta_x*(ze-zs)))then
    948             cs_res@gsnPaperOrientation     = "landscape"
    949             vecres@gsnPaperOrientation     = "landscape"
    950             cs_res@lbOrientation = "Horizontal"   
     960            if (no_rows .LE. no_columns)then
     961               cs_res@gsnPaperOrientation     = "landscape"
     962               vecres@gsnPaperOrientation     = "landscape"
     963               cs_res@lbOrientation = "Horizontal"
     964            else
     965               cs_res@gsnPaperOrientation     = "portrait"
     966               vecres@gsnPaperOrientation     = "portrait"
     967               cs_res@lbOrientation = "Vertical"
     968            end if 
    951969         else
    952             cs_res@gsnPaperOrientation     = "portrait"
    953             vecres@gsnPaperOrientation     = "portrait"
    954             cs_res@lbOrientation = "Vertical"
     970            if (no_rows .GE. no_columns)then
     971               cs_res@gsnPaperOrientation     = "portrait"
     972               vecres@gsnPaperOrientation     = "portrait"
     973               cs_res@lbOrientation = "Vertical"
     974            else
     975               cs_res@gsnPaperOrientation     = "landscape"
     976               vecres@gsnPaperOrientation     = "landscape"
     977               cs_res@lbOrientation = "Horizontal"
     978            end if
    955979         end if
    956980      end if
     
    961985         vecres@vpHeightF   = 1
    962986         if (ye-ys .GT. (delta_y*(ze-zs)))then
    963             cs_res@gsnPaperOrientation     = "landscape"
    964             vecres@gsnPaperOrientation     = "landscape"
    965             cs_res@lbOrientation = "Horizontal"   
     987            if (no_rows .LE. no_columns)then
     988               cs_res@gsnPaperOrientation     = "landscape"
     989               vecres@gsnPaperOrientation     = "landscape"
     990               cs_res@lbOrientation = "Horizontal"
     991            else
     992               cs_res@gsnPaperOrientation     = "portrait"
     993               vecres@gsnPaperOrientation     = "portrait"
     994               cs_res@lbOrientation = "Vertical"
     995            end if 
    966996         else
    967             cs_res@gsnPaperOrientation     = "portrait"
    968             vecres@gsnPaperOrientation     = "portrait"
    969             cs_res@lbOrientation = "Vertical"
     997            if (no_rows .GE. no_columns)then
     998               cs_res@gsnPaperOrientation     = "portrait"
     999               vecres@gsnPaperOrientation     = "portrait"
     1000               cs_res@lbOrientation = "Vertical"
     1001            else
     1002               cs_res@gsnPaperOrientation     = "landscape"
     1003               vecres@gsnPaperOrientation     = "landscape"
     1004               cs_res@lbOrientation = "Horizontal"
     1005            end if
    9701006         end if
    9711007      end if
Note: See TracChangeset for help on using the changeset viewer.