Changeset 1127 for palm/trunk/SCRIPTS

Timestamp:

Apr 11, 2013 3:17:34 PM (12 years ago)

Author:

hoffmann

Message:

bugfix in palmplot pr

File:

• palm/trunk/SCRIPTS/NCL/profiles.ncl (modified) (6 diffs)

palm/trunk/SCRIPTS/NCL/profiles.ncl

@@ -1499 +1499 @@
       res@lgLabelFontHeightF      = font_size_legend
       res@lgTitleString           = "Time (h)"
-      res@lgTitleFontHeightF      = font_size   
+      res@lgTitleFontHeightF      = font_size
       res@txFontHeightF           = font_size
       res@tiXAxisFontHeightF      = font_size
@@ -1538 +1538 @@
 
       resP                            = True
-      resP@gsnMaximize                = True 
-      resP@gsnPanelXWhiteSpacePercent = 6.0
-      resP@gsnPanelYWhiteSpacePercent = 6.0
+      resP@gsnMaximize                = True
+      if ( no_files .EQ. 1 )  then
+         resP@gsnPanelXWhiteSpacePercent = 6.0
+         resP@gsnPanelYWhiteSpacePercent = 6.0
+      else
+         resP@gsnPanelXWhiteSpacePercent = 6.0
+         resP@gsnPanelYWhiteSpacePercent = 0.0
+      end if
       resP@txFont                     = "helvetica"
       resP@txString                   = f_att@title
@@ -3464 +3469 @@
             res@trXMinF = min(min_nof(:,pl))
             res@trXMaxF = max(max_nof(:,pl))
+            res@xyDashPattern=0
             res@gsnLeftString  = " "; name(0,pl)
             res@gsnRightString = " ";unit_(0,pl) 
@@ -3469 +3475 @@
             data_0(:,:) = min(min_nof(:,pl))
 
-            if (mod(no_plots - pl + 1, no_rows * no_columns) .EQ. 2) then
+            if ( (mod(no_plots - pl, no_rows * no_columns) .EQ. 1) .OR. (no_rows * no_columns .EQ. 1) ) then
                 res@pmLegendDisplayMode  = "Always"
             else
@@ -3478 +3484 @@
 
             ; ***************************************************
-            ; legend for combined plot
+            ; legend for combined plot (File 1, File 2, ...)
             ; ***************************************************
 
-            if (mod(no_plots - pl + 1, no_rows * no_columns) .EQ. 2)then
+            if ( (mod(no_plots - pl, no_rows * no_columns) .EQ. 1) .OR. (no_rows * no_columns .EQ. 1) )then
                 lgres                    = True
                 lgMonoDashIndex          = False
@@ -3487 +3493 @@
                 lgres@lgLabelFontHeightF = font_size_legend * 10.0       
                 lgres@vpWidthF           = max(string_len)*0.02;0.015           
-                lgres@vpHeightF          = 0.03*no_files    
+                lgres@vpHeightF          = 0.035*no_files    
                 lgres@lgDashIndexes      = multi_dash(no_files-1:0)
+                lgres@lgLineDashSegLenF  = 0.075
                 lbid = gsn_create_legend(\
                                     wks,no_files,multi_legend(no_files-1:0),lgres)