Changeset 376 for palm/trunk/SOURCE

Timestamp:

Sep 3, 2009 10:12:29 AM (15 years ago)

Author:

raasch

Message:

bugfix concerning output of averaged 2d/3d quantities

Location:

palm/trunk/SOURCE

Files:

• CURRENT_MODIFICATIONS (modified) (1 diff)
• check_parameters.f90 (modified) (2 diffs)

palm/trunk/SOURCE/CURRENT_MODIFICATIONS

@@ -121 +121 @@
 Errors:
 ------
+Bugfix: output of averaged 2d/3d quantities requires that an avaraging
+interval has been set, respective error message is included (check_parameters)
+
 Bugfix: Output on unit 14 only if requested by write_binary.
 (user_last_actions)

palm/trunk/SOURCE/check_parameters.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! Bugfix: output of averaged 2d/3d quantities requires that an avaraging
+! interval has been set, respective error message is included
 ! bc_lr_cyc and bc_ns_cyc are set,
 ! initializing_actions='read_data_for_recycling' renamed to 'cyclic_fill'
@@ -2478 +2480 @@
 
 !
+!-- Averaged 2d or 3d output requires that an averaging interval has been set
+    IF ( doav_n > 0  .AND.  averaging_interval == 0.0 )  THEN
+       WRITE( message_string, * )  'output of averaged quantity "',            &
+                                   TRIM( doav(1) ), '_av" requires to set a ', &
+                                   'non-zero & averaging interval'
+       CALL message( 'check_parameters', 'PA0323', 1, 2, 0, 6, 0 )
+    ENDIF
+
+!
 !-- Check sectional planes and store them in one shared array
     IF ( ANY( section_xy > nz + 1 ) )  THEN