Ignore:
Timestamp:
Apr 11, 2019 11:29:34 AM (2 years ago)
Author:
kanani
Message:

restructure/add location/debug messages

File:
1 edited

Legend:

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

    r3766 r3885  
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30! 3766 2019-02-26 16:23:41Z raasch
    2731! unused variables removed
    2832!
     
    298302    USE control_parameters,                                                    &
    299303        ONLY:  data_output_2d_on_each_pe,                                      &
    300                data_output_xy, data_output_xz, data_output_yz, do2d,           &
     304               data_output_xy, data_output_xz, data_output_yz,                 &
     305               debug_output, debug_string,                                     &
     306               do2d,                                                           &
    301307               do2d_xy_last_time, do2d_xy_time_count,                          &
    302308               do2d_xz_last_time, do2d_xz_time_count,                          &
     
    394400    REAL(wp), DIMENSION(:,:,:), POINTER ::  to_be_resorted  !< points to array which shall be output
    395401
     402
     403    IF ( debug_output )  THEN
     404       WRITE( debug_string, * ) 'data_output_2d'
     405       CALL debug_message( debug_string, 'start' )
     406    ENDIF
    396407!
    397408!-- Immediate return, if no output is requested (no respective sections
     
    22642275    CALL cpu_log( log_point(3), 'data_output_2d', 'stop' )
    22652276
     2277    IF ( debug_output )  THEN
     2278       WRITE( debug_string, * ) 'data_output_2d'
     2279       CALL debug_message( debug_string, 'end' )
     2280    ENDIF
     2281
    22662282 END SUBROUTINE data_output_2d
Note: See TracChangeset for help on using the changeset viewer.