Changeset 178 for palm

Timestamp:

Jul 15, 2008 8:44:20 AM (16 years ago)

Author:

steinfeld

Message:

Updated version of the NCL-script for spectras

File:

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

palm/trunk/SCRIPTS/NCL/spectra.ncl

@@ -354 +354 @@
       res@trXLog = True 
       res@trYLog = True 
+   else 
+      res@trXLog = False 
+      res@trYLog = False
    end if
 
@@ -395 +398 @@
    n=0
    do varn =dim-1,0,1 
-
+      
       check = True
 
@@ -428 +431 @@
             end if
          end do  
-
          if (isStrSubset(vNam(varn),"x"))then
             x_axis = f->k_x
@@ -447 +449 @@
                         print(" ")
                         res@trYLog = False
-                     else
-                        res@trYLog = True
                      end if
                   end do
                end do
-               res@trYMinF = min(temp(:,p,:))
-               res@trYMaxF = max(temp(:,p,:))
                res@trXMinF = min(x_axis)
                res@trXMaxF = max(x_axis)
@@ -478 +476 @@
                            print(" ")
                            res@trYLog = False
-                        else
-                           res@trYLog = True
                         end if
                      end do
                   end do
-                  res@trYMinF = min(temp(p,:,:))
-                  res@trYMaxF = max(temp(p,:,:))
                   res@trXMinF = min(x_axis)
                   res@trXMaxF = max(x_axis)
@@ -506 +500 @@
          end if
          delete(temp)
+         delete(x_axis)
       end if
    end do