Changeset 286 for palm/trunk/SCRIPTS/NCL

Timestamp:

Apr 9, 2009 8:52:42 AM (16 years ago)

Author:

weinreis

Message:

ncl-script cross_sections.ncl modified

File:

• palm/trunk/SCRIPTS/NCL/cross_sections.ncl (modified) (4 diffs)

palm/trunk/SCRIPTS/NCL/cross_sections.ncl

@@ -923 +923 @@
       end do 
    end if
-  
+
    if( shape .eq. 1 ) then 
       if (xyc .EQ. 1)then
@@ -931 +931 @@
          vecres@vpHeightF   = 1
          if (xe-xs .GT. ye-ys)then
-            cs_res@gsnPaperOrientation     = "landscape"
-            vecres@gsnPaperOrientation     = "landscape"
-            cs_res@lbOrientation = "Horizontal"   
+            if (no_rows .LE. no_columns)then
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal" 
+            else 
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical"
+            end if  
          else
-            cs_res@gsnPaperOrientation     = "portrait"
-            vecres@gsnPaperOrientation     = "portrait"
-            cs_res@lbOrientation = "Vertical" 
+            if (no_rows .GE. no_columns)then
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical" 
+            else
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal"
+            end if
          end if
       end if
@@ -946 +958 @@
          vecres@vpHeightF   = 1
          if (xe-xs .GT. (delta_x*(ze-zs)))then
-            cs_res@gsnPaperOrientation     = "landscape"
-            vecres@gsnPaperOrientation     = "landscape"
-            cs_res@lbOrientation = "Horizontal"   
+            if (no_rows .LE. no_columns)then
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal" 
+            else 
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical"
+            end if  
          else
-            cs_res@gsnPaperOrientation     = "portrait"
-            vecres@gsnPaperOrientation     = "portrait"
-            cs_res@lbOrientation = "Vertical" 
+            if (no_rows .GE. no_columns)then
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical" 
+            else
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal"
+            end if
          end if
       end if
@@ -961 +985 @@
          vecres@vpHeightF   = 1
          if (ye-ys .GT. (delta_y*(ze-zs)))then
-            cs_res@gsnPaperOrientation     = "landscape"
-            vecres@gsnPaperOrientation     = "landscape"
-            cs_res@lbOrientation = "Horizontal"   
+            if (no_rows .LE. no_columns)then
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal" 
+            else 
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical"
+            end if  
          else
-            cs_res@gsnPaperOrientation     = "portrait"
-            vecres@gsnPaperOrientation     = "portrait"
-            cs_res@lbOrientation = "Vertical" 
+            if (no_rows .GE. no_columns)then
+               cs_res@gsnPaperOrientation     = "portrait"
+               vecres@gsnPaperOrientation     = "portrait"
+               cs_res@lbOrientation = "Vertical" 
+            else
+               cs_res@gsnPaperOrientation     = "landscape"
+               vecres@gsnPaperOrientation     = "landscape"
+               cs_res@lbOrientation = "Horizontal"
+            end if
          end if
       end if