Changeset 236


Ignore:
Timestamp:
Feb 12, 2009 2:58:16 PM (12 years ago)
Author:
letzel
Message:
  • NCL scripts in trunk/SCRIPTS/NCL updated
Location:
palm/trunk/SCRIPTS/NCL
Files:
2 edited

Legend:

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

    r219 r236  
    3030
    3131
    32          file_1 = "file_1"
     32         file_1 = "File in"
    3333         
    3434         
     
    4141      ; data type: integer
    4242      ;
    43       ; example:   start_f = 3 (if first file: example_ts.3.nc)
     43      ; example:   start_f = 3 (if first file: example_xy_av.3.nc) and 0 (if first file: example_xy_av.nc)
    4444      ;
    4545      ; default:   -1 
     
    5959      ; data type: integer
    6060      ;
    61       ; example:   end_f = 48 (if last file: example_ts.48.nc)
     61      ; example:   end_f = 48 (if last file: example_xy_av.48.nc) and 0 (if last file: example_xy_av.nc)
    6262      ;
    6363      ; default:   -1 
     
    688688      ; data type: integer
    689689      ;
    690       ; example:   3 (if first file: example_ts.3.nc)
     690      ; example:   3 (if first file: example_pr.3.nc) and 0 (if first file: example_pr.nc)
    691691      ;
    692692      ; default:   -1 
     
    706706      ; data type: integer
    707707      ;
    708       ; example:   48 (if last file: example_ts.48.nc)
     708      ; example:   48 (if last file: example_pr.48.nc) and 0 (if last file: example_pr.nc)
    709709      ;
    710710      ; default:   -1 
     
    713713     
    714714         
    715          end_f_1 = -1 
     715         end_f_1 = -1
    716716         
    717717         
     
    829829     
    830830         
    831          legend = 0
     831         legend = 1
    832832         
    833833         
     
    16341634      ; data type: integer
    16351635      ;
    1636       ; example:   start_f = 3 (if first file: example_ts.3.nc)
     1636      ; example:   start_f = 3 (if first file: example_sp.3.nc) and 0 (if first file: example_sp.nc)
    16371637      ;
    16381638      ; default:   -1 
     
    16521652      ; data type: integer
    16531653      ;
    1654       ; example:   end_f = 48 (if last file: example_ts.48.nc)
     1654      ; example:   end_f = 48 (if last file: example_sp.48.nc) and 0 (if last file: example_sp.nc)
    16551655      ;
    16561656      ; default:   -1 
     
    20492049      ; data type: integer
    20502050      ;
    2051       ; example:   start_f = 3 (if first file: example_ts.3.nc)
     2051      ; example:   start_f = 3 (if first file: example_ts.3.nc) and 0 (if first file: example_ts.nc)
    20522052      ;
    20532053      ; default:   -1 
     
    20672067      ; data type: integer
    20682068      ;
    2069       ; example:   end_f = 48 (if last file: example_ts.48.nc)
     2069      ; example:   end_f = 48 (if last file: example_ts.48.nc) and 0 (if last file: example_ts.nc)
    20702070      ;
    20712071      ; default:   -1 
  • palm/trunk/SCRIPTS/NCL/profiles.ncl

    r219 r236  
    798798   if (prof3d .EQ. 1)then
    799799      t_all = f[:]->time
     800      nt    = dimsizes(t_all)
    800801   else
    801       t_all = f[:]->time(1:)
    802    end if
    803    nt    = dimsizes(t_all)
     802      t_all = f[:]->time
     803      nt    = dimsizes(t_all)
     804      t_null = False
     805      if (t_all(0) .EQ. 0 .AND. nt .GT. 1)then
     806         delete(t_all)
     807         t_all = f[:]->time(1:)
     808         nt    = dimsizes(t_all)
     809         t_null = True
     810      end if
     811   end if
     812   
    804813   delta_t=t_all(nt-1)/nt
     814   
     815   
     816   print(nt)
     817   print(t_all)
     818   
     819   
     820   ;exit
    805821
    806822   ; ****************************************************       
     
    898914   legend_label=new(nt,double)
    899915   do p=start_time_step,end_time_step
    900       if (t_all(p)/3600 .LT. 1) then
    901          legend_label(p-start_time_step)=decimalPlaces(t_all(p)/3600,3,True)
    902       else
    903          legend_label(p-start_time_step)=decimalPlaces(t_all(p)/3600,0,True)
    904       end if
     916      legend_label(p-start_time_step)=decimalPlaces(t_all(p)/3600,3,True)         
    905917   end do
    906918   
     
    14161428         if (com) then     
    14171429            if (prof3d .EQ. 0) then
    1418                temp = f[:]->$vNam(varn)$(1:,:)
     1430               if (t_null)then
     1431                  temp = f[:]->$vNam(varn)$(1:,:)
     1432               else
     1433                  temp = f[:]->$vNam(varn)$
     1434               end if
    14191435               temp_att = f_att->$vNam(varn)$
    14201436               if (log_z .EQ. 1) then
     
    14711487
    14721488         if (prof3d .EQ. 0) then
    1473             temp = f[:]->$vNam(varn)$(1:,:)
     1489            if (t_null)then
     1490               temp = f[:]->$vNam(varn)$(1:,:)
     1491            else
     1492               temp = f[:]->$vNam(varn)$
     1493            end if
    14741494            temp_att = f_att->$vNam(varn)$
    14751495         else
     
    15341554            end do           
    15351555         end if
    1536 
    1537          if (data(varn,0,0) .GT. 1.E35) then
    1538             data(varn,0,:) = data(varn,1,:)
    1539          end if
     1556         
    15401557         if (nof .EQ. 0) then
    15411558            z_(n,:)=z/norm_z
Note: See TracChangeset for help on using the changeset viewer.