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

    r3806 r3885  
    2525! -----------------
    2626! $Id$
     27! Changes related to global restructuring of location messages and introduction
     28! of additional debug messages
     29!
     30! 3806 2019-03-21 12:45:50Z raasch
    2731! additional check for lateral boundary conditions added
    2832!
     
    690694             cpu_log_barrierwait, create_disturbances,                         &
    691695             cross_profiles, data_output, data_output_masks,                   &
    692              data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, &
     696             data_output_pr, data_output_2d_on_each_pe,                        &
     697             debug_output,                                                     &
     698             disturbance_amplitude,                                            &
    693699             disturbance_energy_limit, disturbance_level_b,                    &
    694700             disturbance_level_t, do2d_at_begin, do3d_at_begin,                &
     
    712718             cpu_log_barrierwait, create_disturbances,                         &
    713719             cross_profiles, data_output, data_output_masks,                   &
    714              data_output_pr, data_output_2d_on_each_pe, disturbance_amplitude, &
     720             data_output_pr, data_output_2d_on_each_pe,                        &
     721             debug_output,                                                     &
     722             disturbance_amplitude,                                            &
    715723             disturbance_energy_limit, disturbance_level_b,                    &
    716724             disturbance_level_t, do2d_at_begin, do3d_at_begin,                &
     
    739747!-- First read values of environment variables (this NAMELIST file is
    740748!-- generated by palmrun)
    741     CALL location_message( 'reading environment parameters from ENVPAR', .FALSE. )
     749    CALL location_message( 'reading environment parameters from ENVPAR', 'start' )
    742750
    743751    OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', IOSTAT=ioerr )
     
    762770    ENDIF
    763771
    764     CALL location_message( 'finished', .TRUE. )
     772    CALL location_message( 'reading environment parameters from ENVPAR', 'finished' )
    765773!
    766774!-- Calculate the number of groups into which parallel I/O is split.
     
    794802    io_group  = MOD( global_id+1, io_blocks )
    795803   
    796     CALL location_message( 'reading NAMELIST parameters from PARIN', .FALSE. )
     804    CALL location_message( 'reading NAMELIST parameters from PARIN', 'start' )
    797805!
    798806!-- Data is read in parallel by groups of PEs
     
    10981106    ENDDO
    10991107
    1100     CALL location_message( 'finished', .TRUE. )
     1108    CALL location_message( 'reading NAMELIST parameters from PARIN', 'finished' )
    11011109
    11021110 END SUBROUTINE parin
Note: See TracChangeset for help on using the changeset viewer.