Changeset 3885 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- Apr 11, 2019 11:29:34 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r3806 r3885 25 25 ! ----------------- 26 26 ! $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 27 31 ! additional check for lateral boundary conditions added 28 32 ! … … 690 694 cpu_log_barrierwait, create_disturbances, & 691 695 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, & 693 699 disturbance_energy_limit, disturbance_level_b, & 694 700 disturbance_level_t, do2d_at_begin, do3d_at_begin, & … … 712 718 cpu_log_barrierwait, create_disturbances, & 713 719 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, & 715 723 disturbance_energy_limit, disturbance_level_b, & 716 724 disturbance_level_t, do2d_at_begin, do3d_at_begin, & … … 739 747 !-- First read values of environment variables (this NAMELIST file is 740 748 !-- generated by palmrun) 741 CALL location_message( 'reading environment parameters from ENVPAR', .FALSE.)749 CALL location_message( 'reading environment parameters from ENVPAR', 'start' ) 742 750 743 751 OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', IOSTAT=ioerr ) … … 762 770 ENDIF 763 771 764 CALL location_message( ' finished', .TRUE.)772 CALL location_message( 'reading environment parameters from ENVPAR', 'finished' ) 765 773 ! 766 774 !-- Calculate the number of groups into which parallel I/O is split. … … 794 802 io_group = MOD( global_id+1, io_blocks ) 795 803 796 CALL location_message( 'reading NAMELIST parameters from PARIN', .FALSE.)804 CALL location_message( 'reading NAMELIST parameters from PARIN', 'start' ) 797 805 ! 798 806 !-- Data is read in parallel by groups of PEs … … 1098 1106 ENDDO 1099 1107 1100 CALL location_message( ' finished', .TRUE.)1108 CALL location_message( 'reading NAMELIST parameters from PARIN', 'finished' ) 1101 1109 1102 1110 END SUBROUTINE parin
Note: See TracChangeset
for help on using the changeset viewer.