Changeset 4234 for palm

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:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! 4172 2019-08-20 11:55:33Z oliver.maas
+! Check if a cross section is specified if any output cross-section quantity
+! is given
+! 
+! 11:55:33Z oliver.maas
 ! Overwrite rotation_angle from namelist by value from static driver
 ! 
@@ -2526 +2530 @@
     section(:,3) = section_yz
 
+    IF ( ANY( data_output_xy ) .AND. .NOT. ANY( section(:,1) /= -9999 ) )  THEN
+       WRITE( message_string, * )  'section_xy not defined for requested '  // &
+                                   'xy-cross section output.&At least one ' // &
+                                   'cross section must be given.'
+       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
+    ENDIF
+    IF ( ANY( data_output_xz ) .AND. .NOT. ANY( section(:,2) /= -9999 ) )  THEN
+       WRITE( message_string, * )  'section_xz not defined for requested '  // &
+                                   'xz-cross section output.&At least one ' // &
+                                   'cross section must be given.'
+       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
+    ENDIF
+    IF ( ANY( data_output_yz ) .AND. .NOT. ANY( section(:,3) /= -9999 ) )  THEN
+       WRITE( message_string, * )  'section_yz not defined for requested '  // &
+                                   'yz-cross section output.&At least one ' // &
+                                   'cross section must be given.'
+       CALL message( 'check_parameters', 'PA0681', 1, 2, 0, 6, 0 )
+    ENDIF
 !
 !-- Upper plot limit for 3D arrays