Changeset 4157 for palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

Timestamp:

Aug 14, 2019 9:19:12 AM (5 years ago)

Author:

suehring

Message:

chem_emissions: Replace global arrays also in mode_emis branch; diagnostic output: restructure initialization in order to work also when data output during spin-up is enabled; radiation: give informative message on raytracing distance only by core zero not by all cores

File:

• palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Initialization restructured, in order to work also when data output during
+! spin-up is enabled. 
+! 
+! 4132 2019-08-02 12:34:17Z suehring
 ! Bugfix in masked data output
 ! 
@@ -158 +162 @@
            doq_output_mask,                                                    &
            doq_init,                                                           &
-           doq_prepare,                                                        &
            doq_wrd_local
 !          doq_rrd_local,                                                      &
@@ -816 +819 @@
     
     INTEGER(iwp) ::  ivar   !< loop index over all 2d/3d/mask output quantities
+
 !
 !-- Next line is to avoid compiler warnings about unused variables
     IF ( timestep_number_at_prev_calc == 0 )  CONTINUE
+!
+!-- Preparatory steps and initialization of output arrays
+    IF ( .NOT.  prepared_diagnostic_output_quantities )  CALL doq_prepare
 
     initialized_diagnostic_output_quantities = .FALSE.
@@ -882 +889 @@
 
 !     CALL cpu_log( log_point(41), 'calculate_quantities', 'start' )
-!
-!-- Preparatory steps and initialization of output arrays
-    IF ( .NOT.  prepared_diagnostic_output_quantities )     CALL doq_prepare
-    IF ( .NOT.  initialized_diagnostic_output_quantities )  CALL doq_init
+
 !
 !-- Save timestep number to check in time_integration if doq_calculate