Changeset 4234 for palm


Ignore:
Timestamp:
Sep 24, 2019 7:08:09 AM (5 years ago)
Author:
gronemeier
Message:

Check if a cross section is specified if any output cross-section quantity is given (check_parameters)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r4196 r4234  
    2525! -----------------
    2626! 4172 2019-08-20 11:55:33Z oliver.maas
     27! Check if a cross section is specified if any output cross-section quantity
     28! is given
     29!
     30! 11:55:33Z oliver.maas
    2731! Overwrite rotation_angle from namelist by value from static driver
    2832!
     
    25262530    section(:,3) = section_yz
    25272531
     2532    IF ( ANY( data_output_xy ) .AND. .NOT. ANY( section(:,1) /= -9999 ) )  THEN
     2533       WRITE( message_string, * )  'section_xy not defined for requested '  // &
     2534                                   'xy-cross section output.&At least one ' // &
     2535                                   'cross section must be given.'
     2536       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
     2537    ENDIF
     2538    IF ( ANY( data_output_xz ) .AND. .NOT. ANY( section(:,2) /= -9999 ) )  THEN
     2539       WRITE( message_string, * )  'section_xz not defined for requested '  // &
     2540                                   'xz-cross section output.&At least one ' // &
     2541                                   'cross section must be given.'
     2542       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
     2543    ENDIF
     2544    IF ( ANY( data_output_yz ) .AND. .NOT. ANY( section(:,3) /= -9999 ) )  THEN
     2545       WRITE( message_string, * )  'section_yz not defined for requested '  // &
     2546                                   'yz-cross section output.&At least one ' // &
     2547                                   'cross section must be given.'
     2548       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
     2549    ENDIF
    25282550!
    25292551!-- Upper plot limit for 3D arrays
Note: See TracChangeset for help on using the changeset viewer.