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/data_output_profiles.f90

    r2001 r2026  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Formatting adjustment
    2323!
    2424! Former revisions:
     
    164164!--          runs, has a negative value
    165165             DO  i = 1, dopr_n
    166              IF ( dopr_initial_index(i) /= 0 )  THEN
    167                 nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,  &
    168                                         (/ -coupling_start_time /), &
     166                IF ( dopr_initial_index(i) /= 0 )  THEN
     167                   nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,          &
     168                                        (/ -coupling_start_time /),            &
    169169                                        start = (/ 1 /), count = (/ 1 /) )
    170170                   CALL netcdf_handle_error( 'data_output_profiles', 329 )
Note: See TracChangeset for help on using the changeset viewer.