Ignore:
Timestamp:
Aug 14, 2019 9:19:12 AM (2 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:
1 edited

Legend:

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

    r4132 r4157  
    2525! -----------------
    2626! $Id$
     27! Initialization restructured, in order to work also when data output during
     28! spin-up is enabled.
     29!
     30! 4132 2019-08-02 12:34:17Z suehring
    2731! Bugfix in masked data output
    2832!
     
    158162           doq_output_mask,                                                    &
    159163           doq_init,                                                           &
    160            doq_prepare,                                                        &
    161164           doq_wrd_local
    162165!          doq_rrd_local,                                                      &
     
    816819   
    817820    INTEGER(iwp) ::  ivar   !< loop index over all 2d/3d/mask output quantities
     821
    818822!
    819823!-- Next line is to avoid compiler warnings about unused variables
    820824    IF ( timestep_number_at_prev_calc == 0 )  CONTINUE
     825!
     826!-- Preparatory steps and initialization of output arrays
     827    IF ( .NOT.  prepared_diagnostic_output_quantities )  CALL doq_prepare
    821828
    822829    initialized_diagnostic_output_quantities = .FALSE.
     
    882889
    883890!     CALL cpu_log( log_point(41), 'calculate_quantities', 'start' )
    884 !
    885 !-- Preparatory steps and initialization of output arrays
    886     IF ( .NOT.  prepared_diagnostic_output_quantities )     CALL doq_prepare
    887     IF ( .NOT.  initialized_diagnostic_output_quantities )  CALL doq_init
     891
    888892!
    889893!-- Save timestep number to check in time_integration if doq_calculate
Note: See TracChangeset for help on using the changeset viewer.