Changeset 2026 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 18, 2016 10:27:02 AM (8 years ago)

Author:

suehring

Message:

Bugfix, enable output of s*2; calculation of domain_averaged perturbation energy; some formatting adjustments

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix, enable output of s*2
 ! 
 ! Former revisions:
@@ -2799 +2799 @@
              ENDIF
 
+          CASE ( 's*2' )
+             IF (  .NOT.  passive_scalar )  THEN
+                message_string = 'data_output_pr = ' //                        &
+                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
+                                 'lemented for passive_scalar = .FALSE.'
+                CALL message( 'check_parameters', 'PA0185', 1, 2, 0, 6, 0 )
+             ELSE
+                dopr_index(i) = 118
+                dopr_unit(i)  = 'kg2/kg2'
+                hom(:,2,118,:) = SPREAD( zu, 2, statistic_regions+1 )
+             ENDIF
+