Changeset 4234 for palm/trunk/SOURCE
- Timestamp:
- Sep 24, 2019 7:08:09 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r4196 r4234 25 25 ! ----------------- 26 26 ! 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 27 31 ! Overwrite rotation_angle from namelist by value from static driver 28 32 ! … … 2526 2530 section(:,3) = section_yz 2527 2531 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 2528 2550 ! 2529 2551 !-- Upper plot limit for 3D arrays
Note: See TracChangeset
for help on using the changeset viewer.