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

Timestamp:

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

Author:

suehring

Message:

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

File:

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

palm/trunk/SOURCE/data_output_profiles.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Formatting adjustment
 ! 
 ! Former revisions:
@@ -164 +164 @@
 !--          runs, has a negative value
              DO  i = 1, dopr_n
-             IF ( dopr_initial_index(i) /= 0 )  THEN
-                nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,  &
-                                        (/ -coupling_start_time /), &
+                IF ( dopr_initial_index(i) /= 0 )  THEN
+                   nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,          &
+                                        (/ -coupling_start_time /),            &
                                         start = (/ 1 /), count = (/ 1 /) )
                    CALL netcdf_handle_error( 'data_output_profiles', 329 )