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

Legend:

Unmodified
Added
Removed
  • 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.