- Timestamp:
- Nov 1, 2010 9:59:01 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/profiles.ncl
r593 r594 124 124 exit 125 125 end if 126 start_f (1) = start_f_2127 end_f (1) = end_f_2126 start_f_t(1) = start_f_2 127 end_f_t(1) = end_f_2 128 128 end if 129 129 … … 157 157 exit 158 158 end if 159 start_f (2) = start_f_3160 end_f (2) = end_f_3159 start_f_t(2) = start_f_3 160 end_f_t(2) = end_f_3 161 161 end if 162 162 … … 190 190 exit 191 191 end if 192 start_f (3) = start_f_4193 end_f (3) = end_f_4192 start_f_t(3) = start_f_4 193 end_f_t(3) = end_f_4 194 194 end if 195 195 … … 223 223 exit 224 224 end if 225 start_f (4) = start_f_5226 end_f (4) = end_f_5225 start_f_t(4) = start_f_5 226 end_f_t(4) = end_f_5 227 227 end if 228 228 … … 256 256 exit 257 257 end if 258 start_f (5) = start_f_6259 end_f (5) = end_f_6258 start_f_t(5) = start_f_6 259 end_f_t(5) = end_f_6 260 260 end if 261 261 … … 585 585 if (no_files .GT. 1) then 586 586 multi_plot = new((/no_files,dim/),graphic) 587 max_nof = new((/no_files,dim/),float) 588 min_nof = new((/no_files,dim/),float) 587 if (check_vType) then 588 max_nof = new((/no_files,dim/),double) 589 min_nof = new((/no_files,dim/),double) 590 else 591 max_nof = new((/no_files,dim/),float) 592 min_nof = new((/no_files,dim/),float) 593 end if 589 594 name = new((/no_files,dim/),string) 590 595 unit_ = new((/no_files,dim/),string)
Note: See TracChangeset
for help on using the changeset viewer.