Changeset 2147 for palm/trunk/SCRIPTS/NCL

Timestamp:

Feb 9, 2017 4:52:29 PM (8 years ago)

Author:

scharf

Message:

improved palmplot, added two imuk hosts, changed allocation of resources for lcbullhh and corrected land surface parameters

File:

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

palm/trunk/SCRIPTS/NCL/cross_sections.ncl

@@ -416 +416 @@
    cs_res@tmYLMode                ="Automatic"
   
-   cs_res@cnLevelSelectionMode    = "ManualLevels"
+   cs_res@cnLevelSelectionMode    = "AutomaticLevels"
    cs_res@lbLabelFontHeightF = font_size_legend
    cs_res@lbLabelStride = legend_label_stride
@@ -1819 +1819 @@
       if(check) then
 
-         space=(MaxVal(varn)-MinVal(varn))/24
+         space=(decimalPlaces(MaxVal(varn),3,True)-decimalPlaces(MinVal(varn),3,True))/24
   
-         cs_res@cnMinLevelValF = MinVal(varn)
-         cs_res@cnMaxLevelValF = MaxVal(varn) 
-
-         cs_res@cnLevelSpacingF = space
+         ;cs_res@cnMinLevelValF = decimalPlaces(MinVal(varn),3,True)
+         ;cs_res@cnMaxLevelValF = decimalPlaces(MaxVal(varn),3,True)
+
+         ;cs_res@cnLevelSpacingF = space
+         cs_res@cnMaxLevelCount = 26
       
          ; ****************************************************
@@ -1980 +1981 @@
                      end if
 
+                     ;if (topo .EQ. 0) then
+                        ;nothing to be done
+                     ;else
+                     ;   print("'topo' is set to " + topo)
+
+                        ;plot(n) = gsn_csm_contour(wks_ps,\
+                                            ;data(varn,lo,li-lis,:,:),cs_res)
+                        ;if(vNam(varn) .EQ. "zwwi" .OR. \
+                         ;  vNam(varn) .EQ. "zusi") then
+                          ; to_res@cnFillPalette = "GMT_gray"
+                           ;plot_topo = gsn_csm_contour(wks_ps,\
+                            ;  data(varn,lo,li-lis,:,:),to_res)
+                         ;end if
+                        ;overlay(plot(n), plot_topo) 
+                     ;end if
+
                      if (vector .EQ. 1 .AND. plotvec .EQ. "plotvec") then
                         ;nothing to be done