Changeset 308


Ignore:
Timestamp:
Apr 29, 2009 9:26:10 AM (13 years ago)
Author:
letzel
Message:
  • Check for illegal entries in section_xy|xz|yz that exceed nz+1|ny+1|nx+1 (check_parameters)
Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/DOC/tec/message_identifiers

    r292 r308  
    583583                      because &the inversion height calculated by the prerun
    584584                      is zero
    585    
     585    PA0319            section_xy must be <= nz + 1 = ...   
     586    PA0320            section_xz must be <= ny + 1 = ...   
     587    PA0321            section_yz must be <= nx + 1 = ...   
    586588
    587589    UI0001            unknown location "..."
  • palm/trunk/SOURCE/CURRENT_MODIFICATIONS

    r305 r308  
    11New:
    22---
     3Check for illegal entries in section_xy|xz|yz that exceed nz+1|ny+1|nx+1
     4(check_parameters)
     5
    36Clipping of dvrp output implemented. Default colourtable for particles
    47implemented, particle attributes (color, dvrp_size) can be set with new
  • palm/trunk/SOURCE/check_parameters.f90

    r291 r308  
    44! Actual revisions:
    55! -----------------
     6! Check for illegal entries in section_xy|xz|yz that exceed nz+1|ny+1|nx+1
    67! Coupling with independent precursor runs.
    78! Check particle_color, particle_dvrpsize, color_interval, dvrpsize_interval
     
    24592460
    24602461!
    2461 !-- Store sectional planes in one shared array
     2462!-- Check sectional planes and store them in one shared array
     2463    IF ( ANY( section_xy > nz + 1 ) )  THEN
     2464       WRITE( message_string, * )  'section_xy must be <= nz + 1 = ', nz + 1
     2465       CALL message( 'check_parameters', 'PA0319', 1, 2, 0, 6, 0 )
     2466    ENDIF
     2467    IF ( ANY( section_xz > ny + 1 ) )  THEN
     2468       WRITE( message_string, * )  'section_xz must be <= ny + 1 = ', ny + 1
     2469       CALL message( 'check_parameters', 'PA0320', 1, 2, 0, 6, 0 )
     2470    ENDIF
     2471    IF ( ANY( section_yz > nx + 1 ) )  THEN
     2472       WRITE( message_string, * )  'section_yz must be <= nx + 1 = ', nx + 1
     2473       CALL message( 'check_parameters', 'PA0321', 1, 2, 0, 6, 0 )
     2474    ENDIF
    24622475    section(:,1) = section_xy
    24632476    section(:,2) = section_xz
Note: See TracChangeset for help on using the changeset viewer.