Changeset 1126 for palm/trunk
- Timestamp:
- Apr 10, 2013 5:07:24 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/NCL/profiles.ncl
r963 r1126 293 293 print(" ") 294 294 end if 295 if (no_files .GT. 1 .AND. var .EQ. ",cross_profiles,") then 296 var = "all" 297 print(" ") 298 print("If you have more than one input file - you cannot combine "+\ 299 "profiles with cross_profiles ") 300 print(" ") 301 end if 295 302 296 303 ;************************************************************************ … … 326 333 ; check if cross_profiles can be used 327 334 ;************************************************************************ 328 329 if ((var .EQ. ",cross_profiles,") .AND. cross_check .AND. (over .EQ. 0) .AND. (no_files .LT. 2)) then 335 336 VAR_LIST = firstfile@VAR_LIST 337 if ( var .EQ. ",cross_profiles," .AND. str_fields_count(VAR_LIST,"_") \ 338 .GT. str_fields_count(VAR_LIST,";") ) then 339 var = "all" 340 print(" ") 341 print("It is not possible to use var='cross_profiles' for"+\ 342 " statistic regions. Using var='all' instead.") 343 print(" ") 344 end if 345 346 if ( var .EQ. ",cross_profiles," .AND. cross_check .AND. (over .EQ. 0) \ 347 .AND. (no_files .LT. 2)) then 330 348 c_var_log = 1 331 349 else … … 535 553 do nof=0,no_files-1 536 554 537 if (com_i .EQ. 0) 538 555 if (com_i .EQ. 0) 539 556 files=new(end_f_t(nof)-start_f_t(nof)+1,string) 540 557 if (file_in_1(nof))then … … 643 660 end do 644 661 645 end if646 647 if (var .NE. "all" ) then662 end if 663 664 if (var .NE. "all" ) then 648 665 ;rearrange the order of the variables in vNam so that the variables 649 666 ;specified by "var" are in the top of vNam … … 3378 3395 3379 3396 if (no_files .GT. 1) then 3380 print("nof="+nof+" und n="+n)3397 ; print("nof="+nof+" und n="+n) 3381 3398 multi_plot(nof,n)=plot(n) 3382 3399 max_nof(nof,n)=max(data(varn,:,min_z_int:max_z_int))
Note: See TracChangeset
for help on using the changeset viewer.