Ignore:
Timestamp:
Oct 18, 2016 10:27:02 AM (5 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

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

    r2025 r2026  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Bugfix, enable output of s*2
    2323!
    2424! Former revisions:
     
    27992799             ENDIF
    28002800
     2801          CASE ( 's*2' )
     2802             IF (  .NOT.  passive_scalar )  THEN
     2803                message_string = 'data_output_pr = ' //                        &
     2804                                 TRIM( data_output_pr(i) ) // ' is not imp' // &
     2805                                 'lemented for passive_scalar = .FALSE.'
     2806                CALL message( 'check_parameters', 'PA0185', 1, 2, 0, 6, 0 )
     2807             ELSE
     2808                dopr_index(i) = 118
     2809                dopr_unit(i)  = 'kg2/kg2'
     2810                hom(:,2,118,:) = SPREAD( zu, 2, statistic_regions+1 )
     2811             ENDIF
     2812
    28012813 
    28022814
Note: See TracChangeset for help on using the changeset viewer.