Changeset 178 for palm/trunk/SCRIPTS/NCL


Ignore:
Timestamp:
Jul 15, 2008 8:44:20 AM (16 years ago)
Author:
steinfeld
Message:

Updated version of the NCL-script for spectras

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/NCL/spectra.ncl

    r176 r178  
    354354      res@trXLog = True
    355355      res@trYLog = True
     356   else
     357      res@trXLog = False
     358      res@trYLog = False
    356359   end if
    357360
     
    395398   n=0
    396399   do varn =dim-1,0,1
    397 
     400     
    398401      check = True
    399402
     
    428431            end if
    429432         end do 
    430 
    431433         if (isStrSubset(vNam(varn),"x"))then
    432434            x_axis = f->k_x
     
    447449                        print(" ")
    448450                        res@trYLog = False
    449                      else
    450                         res@trYLog = True
    451451                     end if
    452452                  end do
    453453               end do
    454                res@trYMinF = min(temp(:,p,:))
    455                res@trYMaxF = max(temp(:,p,:))
    456454               res@trXMinF = min(x_axis)
    457455               res@trXMaxF = max(x_axis)
     
    478476                           print(" ")
    479477                           res@trYLog = False
    480                         else
    481                            res@trYLog = True
    482478                        end if
    483479                     end do
    484480                  end do
    485                   res@trYMinF = min(temp(p,:,:))
    486                   res@trYMaxF = max(temp(p,:,:))
    487481                  res@trXMinF = min(x_axis)
    488482                  res@trXMaxF = max(x_axis)
     
    506500         end if
    507501         delete(temp)
     502         delete(x_axis)
    508503      end if
    509504   end do
Note: See TracChangeset for help on using the changeset viewer.