Changeset 827
- Timestamp:
- Feb 20, 2012 1:09:00 PM (13 years ago)
- Location:
- palm/trunk/SCRIPTS/NCL
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/cross_sections.ncl
r770 r827 419 419 ; ********************************************* 420 420 421 t_all = f[:]->time 422 nt = dimsizes(t_all) 423 delta_t = t_all(nt-1)/nt 421 t_all = f[:]->time 422 nt = dimsizes(t_all) 423 424 if (nt .EQ. 1)then 425 delta_t=t_all(nt-1)/nt 426 else 427 delta_t_array = new(nt-1,double) 428 429 do i=0,nt-2 430 delta_t_array(i) = t_all(i+1)-t_all(i) 431 end do 432 433 delta_t = min(delta_t_array) 434 delete(delta_t_array) 435 end if 436 424 437 425 438 ; **************************************************** -
palm/trunk/SCRIPTS/NCL/profiles.ncl
r783 r827 1010 1010 nt = dimsizes(t_all) 1011 1011 1012 1013 1012 if (nt .EQ. 1)then 1014 1013 delta_t=t_all(nt-1)/nt 1015 1014 else 1016 delta_t=(t_all(nt-1)-t_all(0))/(nt-1) 1017 end if 1015 delta_t_array = new(nt-1,double) 1016 1017 do i=0,nt-2 1018 delta_t_array(i) = t_all(i+1)-t_all(i) 1019 end do 1020 1021 delta_t = min(delta_t_array) 1022 delete(delta_t_array) 1023 end if 1024 1018 1025 1019 1026 ; **************************************************** … … 1205 1212 resP = True 1206 1213 resP@txFont = "helvetica" 1207 resP@txString = f_att@title1214 ;resP@txString = f_att@title 1208 1215 resP@txFuncCode = "~" 1209 1216 resP@txFontHeightF = 0.015 -
palm/trunk/SCRIPTS/NCL/spectra.ncl
r769 r827 220 220 t_all = f[:]->time 221 221 nt = dimsizes(t_all) 222 delta_t=t_all(nt-1)/nt 222 223 if (nt .EQ. 1)then 224 delta_t=t_all(nt-1)/nt 225 else 226 delta_t_array = new(nt-1,double) 227 228 do i=0,nt-2 229 delta_t_array(i) = t_all(i+1)-t_all(i) 230 end do 231 232 delta_t = min(delta_t_array) 233 delete(delta_t_array) 234 end if 223 235 224 236 k_x=f_att->k_x -
palm/trunk/SCRIPTS/NCL/timeseries.ncl
r769 r827 193 193 t_all = f[:]->time 194 194 nt = dimsizes(t_all) 195 delta_t = t_all(nt-1)/nt 195 196 if (nt .EQ. 1)then 197 delta_t=t_all(nt-1)/nt 198 else 199 delta_t_array = new(nt-1,double) 200 201 do i=0,nt-2 202 delta_t_array(i) = t_all(i+1)-t_all(i) 203 end do 204 205 delta_t = min(delta_t_array) 206 delete(delta_t_array) 207 end if 196 208 197 209 if (nt .LE. 1) then
Note: See TracChangeset
for help on using the changeset viewer.