Changeset 983 for palm/trunk/SCRIPTS/NCL

Timestamp:

Aug 21, 2012 2:17:57 PM (12 years ago)

Author:

hoffmann

Message:

Bugfix in netcdf.f90 and improvements in palmplot.

Location:

palm/trunk/SCRIPTS/NCL

Files:

• cross_sections.ncl (modified) (1 diff)
• spectra.ncl (modified) (1 diff)
• timeseries.ncl (modified) (1 diff)

palm/trunk/SCRIPTS/NCL/cross_sections.ncl

@@ -395 +395 @@
 
    cs_resP = True
-   cs_resP@txString               = f_att@title
-   cs_resP@txFuncCode             = "~"                 
-   cs_resP@txFontHeightF          = 0.015        
+   cs_resP@gsnMaximize                = True
+   cs_resP@gsnPanelXWhiteSpacePercent = 4.0
+   cs_resP@gsnPanelYWhiteSpacePercent = 4.0
+   cs_resP@txFont                     = "helvetica"
+   cs_resP@txString                   = f_att@title
+   cs_resP@txFuncCode                 = "~"             
+   cs_resP@txFontHeightF              = 0.0105        
   
    if ( mode .eq. "Fill" ) then

palm/trunk/SCRIPTS/NCL/spectra.ncl

@@ -721 +721 @@
    ; ***************************************************
 
-   resP                        = True
-   resP@txFont                 = "helvetica"
-   resP@txString               = f_att@title
-   resP@txFuncCode             = "~"
-   resP@txFontHeightF          = 0.015
+   resP                            = True
+   resP@gsnMaximize                = True 
+   resP@gsnPanelXWhiteSpacePercent = 4.0
+   resP@gsnPanelYWhiteSpacePercent = 4.0
+   resP@txFont                     = "helvetica"
+   resP@txString                   = f_att@title
+   resP@txFuncCode                 = "~"
+   resP@txFontHeightF              = 0.0105
 
    no_frames = 0

palm/trunk/SCRIPTS/NCL/timeseries.ncl

@@ -342 +342 @@
    res@lgLabelFontHeightF     = 0.02
 
-   resP                        = True
-   resP@txFont                 = "helvetica"
-   resP@txString               = f_att@title+" time series "
-   resP@txFuncCode             = "~" 
-   resP@txFontHeightF          = 0.015
-
+   resP                            = True
+   resP@gsnMaximize                = True
+   resP@gsnPanelXWhiteSpacePercent = 4.0
+   resP@gsnPanelYWhiteSpacePercent = 4.0
+   resP@txFont                     = "helvetica"
+   resP@txString                   = f_att@title+" time series "
+   resP@txFuncCode                 = "~" 
+   if (format_out .NE. "x11") then
+      if (no_rows .GE. 5) then
+         resP@txFontHeightF        = 0.0105
+      else
+         resP@txFontHeightF        = 0.015
+      end if
+   else
+      resP@txFontHeightF           = 0.015
+   end if
    res@tmXBMinorPerMajor = 4
    res@tmYLMinorPerMajor = 4