Changeset 3046 for palm/trunk
- Timestamp:
- May 29, 2018 8:02:15 AM (6 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 38 edited
-
check_for_restart.f90 (modified) (3 diffs)
-
check_parameters.f90 (modified) (11 diffs)
-
cpulog_mod.f90 (modified) (4 diffs)
-
data_output_2d.f90 (modified) (4 diffs)
-
data_output_3d.f90 (modified) (2 diffs)
-
init_3d_model.f90 (modified) (2 diffs)
-
init_grid.f90 (modified) (8 diffs)
-
init_masks.f90 (modified) (2 diffs)
-
init_pegrid.f90 (modified) (9 diffs)
-
land_surface_model_mod.f90 (modified) (3 diffs)
-
large_scale_forcing_nudging_mod.f90 (modified) (10 diffs)
-
lpm_droplet_condensation.f90 (modified) (3 diffs)
-
lpm_exchange_horiz.f90 (modified) (2 diffs)
-
lpm_init.f90 (modified) (2 diffs)
-
lpm_read_restart_file.f90 (modified) (2 diffs)
-
model_1d_mod.f90 (modified) (2 diffs)
-
netcdf_data_input_mod.f90 (modified) (3 diffs)
-
netcdf_interface_mod.f90 (modified) (46 diffs)
-
package_parin.f90 (modified) (2 diffs)
-
parin.f90 (modified) (6 diffs)
-
plant_canopy_model_mod.f90 (modified) (3 diffs)
-
pmc_interface_mod.f90 (modified) (5 diffs)
-
pmc_parent_mod.f90 (modified) (2 diffs)
-
pmc_particle_interface.f90 (modified) (3 diffs)
-
radiation_model_mod.f90 (modified) (5 diffs)
-
read_restart_data_mod.f90 (modified) (12 diffs)
-
spectra_mod.f90 (modified) (6 diffs)
-
surface_coupler.f90 (modified) (2 diffs)
-
synthetic_turbulence_generator_mod.f90 (modified) (3 diffs)
-
temperton_fft_mod.f90 (modified) (2 diffs)
-
timestep.f90 (modified) (2 diffs)
-
urban_surface_mod.f90 (modified) (2 diffs)
-
user_data_output_dvrp.f90 (modified) (2 diffs)
-
user_parin.f90 (modified) (3 diffs)
-
user_spectra.f90 (modified) (2 diffs)
-
vertical_nesting_mod.f90 (modified) (4 diffs)
-
virtual_flight_mod.f90 (modified) (2 diffs)
-
wind_turbine_model_mod.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_for_restart.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 144 144 IF ( terminate_run .AND. myid == 0 ) THEN 145 145 WRITE( message_string, * ) 'run will be terminated because it is ', & 146 'running out of job cpu limit , ',&147 'remaining time: ', remaining_time, ' s ',&146 'running out of job cpu limit & ', & 147 'remaining time: ', remaining_time, ' s &', & 148 148 'termination time needed:', termination_time_needed, ' s' 149 149 CALL message( 'check_for_restart', 'PA0163', 0, 1, 0, 6, 0 ) … … 187 187 'forced a job finalization using a flag', & 188 188 'file:', & 189 ' 190 ' 189 '&DO_STOP_NOW: ', do_stop_now, & 190 '&DO_RESTART_NOW: ', do_restart_now 191 191 CALL message( 'check_for_restart', 'PA0398', 0, 0, 0, 6, 0 ) 192 192 -
palm/trunk/SOURCE/check_parameters.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 1210 1210 aerosol_nh4no3 = .TRUE. 1211 1211 ELSE 1212 message_string = 'unknown aerosol ="' // & 1213 TRIM( aerosol_bulk ) // '"' 1212 message_string = 'unknown aerosol = "' // TRIM( aerosol_bulk ) // '"' 1214 1213 CALL message( 'check_parameters', 'PA0469', 1, 2, 0, 6, 0 ) 1215 1214 ENDIF … … 1842 1841 ELSE 1843 1842 WRITE( message_string, * ) 'cfl_factor = ', cfl_factor, & 1844 ' out of range 0.0 < cfl_factor <= 1.0 is required'1843 ' out of range &0.0 < cfl_factor <= 1.0 is required' 1845 1844 CALL message( 'check_parameters', 'PA0045', 1, 2, 0, 6, 0 ) 1846 1845 ENDIF … … 1886 1885 ELSE 1887 1886 message_string = 'variable translation speed used for Galilei-' // & 1888 'transformation, which may cause instabilities in stably ' //&1887 'transformation, which may cause & instabilities in stably ' // & 1889 1888 'stratified regions' 1890 1889 CALL message( 'check_parameters', 'PA0048', 0, 1, 0, 6, 0 ) … … 2062 2061 surface_heatflux /= 0.0_wp ) THEN 2063 2062 message_string = 'boundary_condition: bc_pt_b = "' // TRIM( bc_pt_b ) //& 2064 ' is not allowed with constant_heatflux = .TRUE.'2063 '& is not allowed with constant_heatflux = .TRUE.' 2065 2064 CALL message( 'check_parameters', 'PA0065', 1, 2, 0, 6, 0 ) 2066 2065 ENDIF … … 3378 3377 IF ( k == 0 .OR. data_output(i)(ilen-2:ilen) /= '_xy' ) THEN 3379 3378 message_string = 'illegal value for data_output: "' // & 3380 TRIM( var ) // '" only 2d-horizontal ' //&3379 TRIM( var ) // '" & only 2d-horizontal ' // & 3381 3380 'cross sections are allowed for this value' 3382 3381 CALL message( 'check_parameters', 'PA0111', 1, 2, 0, 6, 0 ) … … 3637 3636 '5 (parallel netCDF 4) and ' // & 3638 3637 '6 (parallel netCDF 4 Classic model) '// & 3639 ' are currently not supported (not yet tested) ' //&3640 'for masked data. Using respective non-parallel' //&3638 '& are currently not supported (not yet tested) ' //& 3639 'for masked data. &Using respective non-parallel' //& 3641 3640 ' output for masked data.' 3642 3641 CALL message( 'check_parameters', 'PA0383', 0, 0, 0, 6, 0 ) … … 3653 3652 #else 3654 3653 message_string = 'netCDF: netCDF4 format requested but no ' // & 3655 'cpp-directive __netcdf4 given switch ' //&3654 'cpp-directive __netcdf4 given & switch ' // & 3656 3655 'back to 64-bit offset format' 3657 3656 CALL message( 'check_parameters', 'PA0171', 0, 1, 0, 6, 0 ) … … 3664 3663 #else 3665 3664 message_string = 'netCDF: netCDF4 parallel output requested but no ' // & 3666 'cpp-directive __netcdf4_parallel given , switch ' //&3665 'cpp-directive __netcdf4_parallel given & switch ' //& 3667 3666 'back to netCDF4 non-parallel output' 3668 3667 CALL message( 'check_parameters', 'PA0099', 0, 1, 0, 6, 0 ) … … 4188 4187 message_string = 'complex_terrain requires topography' // & 4189 4188 ' = ''read_from_file''' 4190 CALL message( 'check_parameters', 'PA0 472', 1, 2, 0, 6, 0 )4189 CALL message( 'check_parameters', 'PA0295', 1, 2, 0, 6, 0 ) 4191 4190 ENDIF 4192 4191 … … 4227 4226 IF ( dt_fixed ) THEN 4228 4227 WRITE( message_string, '(A,F9.4,A)' ) 'Output at every ' // & 4229 'timestep is wanted (' // dt_do_name // ' = 0.0). 4228 'timestep is wanted (' // dt_do_name // ' = 0.0).&'// & 4230 4229 'The output interval is set to the fixed timestep dt '// & 4231 4230 '= ', dt, 's.' -
palm/trunk/SOURCE/cpulog_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 262 262 IF ( ( mtime - log_event%mtime ) < 0.0 .AND. first ) THEN 263 263 WRITE( message_string, * ) 'negative time interval occured', & 264 ' 264 '&PE',myid,' L=PAUSE "',TRIM(log_event%place), & 265 265 '" new=', mtime,' last=',log_event%mtime 266 266 CALL message( 'cpu_log', 'PA0176', 0, 1, -1, 6, 0 ) … … 273 273 first ) THEN 274 274 WRITE( message_string, * ) 'negative time interval occured', & 275 ' 275 '&PE',myid,' L=STOP "',TRIM(log_event%place),'" new=', & 276 276 mtime,' last=',log_event%mtime,' isum=',log_event%isum 277 277 CALL message( 'cpu_log', 'PA0177', 0, 1, -1, 6, 0 ) … … 283 283 IF ( log_event%sum < 0.0 .AND. first ) THEN 284 284 WRITE( message_string, * ) 'negative time interval occured', & 285 ' 285 '&PE',myid,' L=STOP "',TRIM(log_event%place),'" sum=', & 286 286 log_event%sum,' mtime=',log_event%mtime 287 287 CALL message( 'cpu_log', 'PA0178', 0, 1, -1, 6, 0 ) -
palm/trunk/SOURCE/data_output_2d.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 465 465 ntdim_2d_xy(av) ) THEN 466 466 WRITE ( message_string, * ) 'Output of xy cross-sections is not ', & 467 'given at t=', simulated_time, ' 467 'given at t=', simulated_time, '&because the', & 468 468 ' maximum number of output time levels is exceeded.' 469 469 CALL message( 'data_output_2d', 'PA0384', 0, 1, 0, 6, 0 ) … … 474 474 ntdim_2d_xz(av) ) THEN 475 475 WRITE ( message_string, * ) 'Output of xz cross-sections is not ', & 476 'given at t=', simulated_time, ' 476 'given at t=', simulated_time, '&because the', & 477 477 ' maximum number of output time levels is exceeded.' 478 478 CALL message( 'data_output_2d', 'PA0385', 0, 1, 0, 6, 0 ) … … 483 483 ntdim_2d_yz(av) ) THEN 484 484 WRITE ( message_string, * ) 'Output of yz cross-sections is not ', & 485 'given at t=', simulated_time, ' 485 'given at t=', simulated_time, '&because the', & 486 486 ' maximum number of output time levels is exceeded.' 487 487 CALL message( 'data_output_2d', 'PA0386', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/data_output_3d.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 312 312 IF ( do3d_time_count(av) + 1 > ntdim_3d(av) ) THEN 313 313 WRITE ( message_string, * ) 'Output of 3d data is not given at t=', & 314 simulated_time, ' 314 simulated_time, '&because the maximum ', & 315 315 'number of output time levels is ', & 316 316 'exceeded.' -
palm/trunk/SOURCE/init_3d_model.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 2614 2614 WRITE( message_string, * ) 'number of time series quantities exceeds', & 2615 2615 ' its maximum of dots_max = ', dots_max, & 2616 ' 2616 '&Please increase dots_max in modules.f90.' 2617 2617 CALL message( 'init_3d_model', 'PA0194', 1, 2, 0, 6, 0 ) 2618 2618 ENDIF -
palm/trunk/SOURCE/init_grid.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 655 655 WRITE( message_string, * ) 'nzb_local values are outside the', & 656 656 ' model domain', & 657 ' 658 ' 657 '&MINVAL( nzb_local ) = ', nzb_local_min, & 658 '&MAXVAL( nzb_local ) = ', nzb_local_max 659 659 CALL message( 'init_grid', 'PA0210', 1, 2, 0, 6, 0 ) 660 660 ENDIF … … 1500 1500 ( bys < 1 ) .OR. ( byn > ny-1 ) .OR. ( byn < bys+3 ) ) THEN 1501 1501 WRITE( message_string, * ) 'inconsistent building parameters:', & 1502 ' 1502 '&bxl=', bxl, 'bxr=', bxr, 'bys=', bys, & 1503 1503 'byn=', byn, 'nx=', nx, 'ny=', ny 1504 1504 CALL message( 'init_grid', 'PA0203', 1, 2, 0, 6, 0 ) … … 1592 1592 ( ch < 3 ) ) THEN 1593 1593 WRITE( message_string, * ) 'inconsistent canyon parameters:', & 1594 ' 1594 '&cxl=', cxl, ' cxr=', cxr, & 1595 1595 ' cwx=', cwx, & 1596 1596 ' ch=', ch, ' nx=', nx, ' ny=', ny … … 1601 1601 ( ch < 3 ) ) THEN 1602 1602 WRITE( message_string, * ) 'inconsistent canyon parameters:', & 1603 ' 1603 '&cys=', cys, ' cyn=', cyn, & 1604 1604 ' cwy=', cwy, & 1605 1605 ' ch=', ch, ' nx=', nx, ' ny=', ny … … 1610 1610 canyon_width_y /= 9999999.9_wp ) THEN 1611 1611 message_string = 'inconsistent canyon parameters:' // & 1612 ' 1612 '&street canyon can only be oriented' // & 1613 1613 ' either in x- or in y-direction' 1614 1614 CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 ) … … 1903 1903 WRITE( message_string, * ) & 1904 1904 'The value for "topography_grid_convention" ', & 1905 'is not set. Its default value is only valid for ',&1905 'is not set. Its default value is & only valid for ', & 1906 1906 '"topography" = ''single_building'', ''tunnel'' ', & 1907 '''single_street_canyon'' or ''read_from_file''.',&1908 ' Choose ''cell_edge'' or ''cell_center''.'1907 '''single_street_canyon'' & or ''read_from_file''.', & 1908 '& Choose ''cell_edge'' or ''cell_center''.' 1909 1909 CALL message( 'init_grid', 'PA0239', 1, 2, 0, 6, 0 ) 1910 1910 ELSE … … 1923 1923 WRITE( message_string, * ) & 1924 1924 'The value for "topography_grid_convention" is ', & 1925 'not recognized. Choose ''cell_edge'' or ''cell_center''.'1925 'not recognized.& Choose ''cell_edge'' or ''cell_center''.' 1926 1926 CALL message( 'init_grid', 'PA0240', 1, 2, 0, 6, 0 ) 1927 1927 ENDIF -
palm/trunk/SOURCE/init_masks.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 732 732 'mask_loop(',mid,',',dim,',2)=', mask_loop(mid,dim,2), & 733 733 ' exceeds dz_stretch_level=',dz_stretch_level, & 734 '. 734 '.&Vertical mask locations will not ', & 735 735 'match the desired heights within the stretching ', & 736 736 'region.' -
palm/trunk/SOURCE/init_pegrid.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 345 345 IF ( ( npex * npey ) /= numprocs ) THEN 346 346 WRITE( message_string, * ) 'number of PEs of the prescribed ', & 347 'topology (', npex*npey,') does not match the number of ',&347 'topology (', npex*npey,') does not match & the number of ', & 348 348 'PEs available to the job (', numprocs, ')' 349 349 CALL message( 'init_pegrid', 'PA0221', 1, 2, 0, 6, 0 ) … … 357 357 !-- PEs must be given in both directions 358 358 message_string = 'if the processor topology is prescribed by th' // & 359 'e user both values of "npex" and "npey" must be given' //&359 'e user & both values of "npex" and "npey" must be given' // & 360 360 ' in the &NAMELIST-parameter file' 361 361 CALL message( 'init_pegrid', 'PA0222', 1, 2, 0, 6, 0 ) … … 458 458 IF ( MOD( nx+1 , pdims(1) ) /= 0 ) THEN 459 459 WRITE( message_string, * ) 'x-direction: gridpoint number (',nx+1,') ', & 460 'is not an integral divisor of the number ', &460 'is not an& integral divisor of the number ', & 461 461 'of processors (', pdims(1),')' 462 462 CALL message( 'init_pegrid', 'PA0225', 1, 2, 0, 6, 0 ) … … 476 476 IF ( MOD( ny+1 , pdims(2) ) /= 0 ) THEN 477 477 WRITE( message_string, * ) 'y-direction: gridpoint number (',ny+1,') ', & 478 'is not an integral divisor of the number of', &478 'is not an& integral divisor of the number of', & 479 479 'processors (', pdims(2),')' 480 480 CALL message( 'init_pegrid', 'PA0227', 1, 2, 0, 6, 0 ) … … 522 522 IF ( MOD( nz , pdims(1) ) /= 0 ) THEN 523 523 WRITE( message_string, * ) 'transposition z --> x:', & 524 ' nz=',nz,' is not an integral divisior of pdims(1)=',&524 '& nz=',nz,' is not an integral divisior of pdims(1)=', & 525 525 pdims(1) 526 526 CALL message( 'init_pegrid', 'PA0230', 1, 2, 0, 6, 0 ) … … 544 544 IF ( MOD( nx+1 , pdims(2) ) /= 0 ) THEN 545 545 WRITE( message_string, * ) 'transposition x --> y:', & 546 ' nx+1=',nx+1,' is not an integral divisor of ',&546 '& nx+1=',nx+1,' is not an integral divisor of ', & 547 547 'pdims(2)=',pdims(2) 548 548 CALL message( 'init_pegrid', 'PA0231', 1, 2, 0, 6, 0 ) … … 573 573 IF ( MOD( ny+1 , pdims(1) ) /= 0 ) THEN 574 574 WRITE( message_string, * ) 'transposition y --> z:', & 575 ' ny+1=',ny+1,' is not an integral divisor of',&575 '& ny+1=',ny+1,' is not an integral divisor of',& 576 576 ' pdims(1)=',pdims(1) 577 577 CALL message( 'init_pegrid', 'PA0232', 1, 2, 0, 6, 0 ) … … 584 584 IF ( MOD( ny+1 , pdims(1) ) /= 0 ) THEN 585 585 WRITE( message_string, * ) 'transposition x --> y:', & 586 ' ny+1=',ny+1,' is not an integral divisor of',&586 '& ny+1=',ny+1,' is not an integral divisor of',& 587 587 ' pdims(1)=',pdims(1) 588 588 CALL message( 'init_pegrid', 'PA0233', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/land_surface_model_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 1377 1377 message_string = 'vegetation_type = 1 (bare soil)'// & 1378 1378 ' requires vegetation_coverage = 0' 1379 CALL message( 'lsm_check_parameters', 'PA0 471', 1, 2, 0, 6, 0 )1379 CALL message( 'lsm_check_parameters', 'PA0294', 1, 2, 0, 6, 0 ) 1380 1380 ENDIF 1381 1381 ENDIF … … 4825 4825 4826 4826 message_string = 'namelist lsm_par is deprecated and will be ' // & 4827 'removed in near future. Please &use namelist ' //&4827 'removed in near future. Please use namelist ' // & 4828 4828 'land_surface_parameters instead' 4829 4829 CALL message( 'lsm_parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 735 735 !-- Check nudging and large scale forcing from external file 736 736 IF ( nudging .AND. ( .NOT. large_scale_forcing ) ) THEN 737 message_string = 'Nudging requires large_scale_forcing = .T.. '//&738 'Surface fluxes and geostrophic wind should be '//&737 message_string = 'Nudging requires large_scale_forcing = .T.. &'// & 738 'Surface fluxes and geostrophic wind should be &'// & 739 739 'prescribed in file LSF_DATA' 740 740 CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 ) … … 743 743 IF ( large_scale_forcing .AND. ( bc_lr /= 'cyclic' .OR. & 744 744 bc_ns /= 'cyclic' ) ) THEN 745 message_string = 'Non-cyclic lateral boundaries do not allow for 745 message_string = 'Non-cyclic lateral boundaries do not allow for &'//& 746 746 'the usage of large scale forcing from external file.' 747 747 CALL message( 'check_parameters', 'PA0375', 1, 2, 0, 6, 0 ) … … 749 749 750 750 IF ( large_scale_forcing .AND. ( .NOT. humidity ) ) THEN 751 message_string = 'The usage of large scale forcing from external 751 message_string = 'The usage of large scale forcing from external &'//& 752 752 'file LSF_DATA requires humidity = .T..' 753 753 CALL message( 'check_parameters', 'PA0376', 1, 2, 0, 6, 0 ) … … 755 755 756 756 IF ( large_scale_forcing .AND. passive_scalar ) THEN 757 message_string = 'The usage of large scale forcing from external '// &757 message_string = 'The usage of large scale forcing from external &'// & 758 758 'file LSF_DATA is not implemented for passive scalars' 759 759 CALL message( 'check_parameters', 'PA0440', 1, 2, 0, 6, 0 ) … … 762 762 IF ( large_scale_forcing .AND. topography /= 'flat' & 763 763 .AND. .NOT. lsf_exception ) THEN 764 message_string = 'The usage of large scale forcing from external 764 message_string = 'The usage of large scale forcing from external &'//& 765 765 'file LSF_DATA is not implemented for non-flat topography' 766 766 CALL message( 'check_parameters', 'PA0377', 1, 2, 0, 6, 0 ) … … 768 768 769 769 IF ( large_scale_forcing .AND. ocean ) THEN 770 message_string = 'The usage of large scale forcing from external '//&770 message_string = 'The usage of large scale forcing from external &'//& 771 771 'file LSF_DATA is not implemented for ocean runs' 772 772 CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 ) … … 1284 1284 IF ( ierrn /= 0 ) THEN 1285 1285 WRITE ( message_string, * ) 'No time dependent surface ' // & 1286 'variables in LSF_DATA for end of run found'1286 'variables in & LSF_DATA for end of run found' 1287 1287 1288 1288 CALL message( 'ls_forcing', 'PA0363', 1, 2, 0, 6, 0 ) … … 1292 1292 IF ( time_surf(1) > end_time ) THEN 1293 1293 WRITE ( message_string, * ) 'Time dependent surface variables in ' // & 1294 ' LSF_DATA set in after end of ' ,&1294 '&LSF_DATA set in after end of ' , & 1295 1295 'simulation - lsf_surf is set to FALSE' 1296 1296 CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 ) … … 1319 1319 IF ( ierrn < 0 ) THEN 1320 1320 WRITE( message_string, * ) 'No time dependent vertical profiles',& 1321 ' in LSF_DATA for end of run found'1321 ' in & LSF_DATA for end of run found' 1322 1322 CALL message( 'ls_forcing', 'PA0372', 1, 2, 0, 6, 0 ) 1323 1323 ENDIF -
palm/trunk/SOURCE/lpm_droplet_condensation.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 384 384 IF ( ql_c(kp,jp,ip) > 100.0_wp ) THEN 385 385 WRITE( message_string, * ) 'k=',kp,' j=',jp,' i=',ip, & 386 ' ql_c=',ql_c(kp,jp,ip), ' 386 ' ql_c=',ql_c(kp,jp,ip), '&part(',n,')%wf=', & 387 387 particles(n)%weight_factor,' delta_r=',delta_r 388 388 CALL message( 'lpm_droplet_condensation', 'PA0143', 2, 2, -1, 6, 1 ) … … 395 395 WRITE( message_string, * ) '#1 k=',kp,' j=',jp,' i=',ip, & 396 396 ' e_s=',e_s, ' e_a=',e_a,' t_int=',t_int, & 397 ' 397 '&delta_r=',delta_r, & 398 398 ' particle_radius=',particles(n)%radius 399 399 CALL message( 'lpm_droplet_condensation', 'PA0144', 2, 2, -1, 6, 1 ) -
palm/trunk/SOURCE/lpm_exchange_horiz.f90
r2809 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 1165 1165 THEN 1166 1166 WRITE( message_string, * ) & 1167 'Particle violated CFL-criterion: particle with id ',&1168 particles(n)%id, ' will be deleted!'1167 'Particle violated CFL-criterion: &particle with id ', & 1168 particles(n)%id, ' will be deleted!' 1169 1169 CALL message( 'lpm_check_cfl', 'PA0475', 0, 1, -1, 6, 0 ) 1170 1170 particles(n)%particle_mask= .FALSE. -
palm/trunk/SOURCE/lpm_init.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 338 338 WRITE( message_string, * ) 'max_number_of_particle_groups =', & 339 339 max_number_of_particle_groups , & 340 ' 340 '&number_of_particle_groups reset to ', & 341 341 max_number_of_particle_groups 342 342 CALL message( 'lpm_init', 'PA0213', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/lpm_read_restart_file.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 130 130 IF ( TRIM( version_on_file ) /= TRIM( particle_binary_version ) ) THEN 131 131 message_string = 'version mismatch concerning data from prior ' // & 132 'run version on file = "' //&132 'run &version on file = "' // & 133 133 TRIM( version_on_file ) // & 134 ' 134 '&version in program = "' // & 135 135 TRIM( particle_binary_version ) // '"' 136 136 CALL message( 'lpm_read_restart_file', 'PA0214', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/model_1d_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 1035 1035 stop_dt_1d = .TRUE. 1036 1036 1037 WRITE( message_string, * ) 'timestep has exceeded the lower limit 1037 WRITE( message_string, * ) 'timestep has exceeded the lower limit&', & 1038 1038 'dt_1d = ',dt_1d,' s simulation stopped!' 1039 1039 CALL message( 'timestep_1d', 'PA0192', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 1897 1897 '(level of detail) is not set ' // & 1898 1898 'properly for buildings_2d.' 1899 CALL message( 'netcdf_data_input_mod', ' NDI000', &1899 CALL message( 'netcdf_data_input_mod', 'PA0457', & 1900 1900 1, 2, 0, 6, 0 ) 1901 1901 ENDIF … … 1935 1935 '(level of detail) is not set ' // & 1936 1936 'properly for buildings_3d.' 1937 CALL message( 'netcdf_data_input_mod', ' NDI001', &1937 CALL message( 'netcdf_data_input_mod', 'PA0457', & 1938 1938 1, 2, 0, 6, 0 ) 1939 1939 ENDIF -
palm/trunk/SOURCE/netcdf_interface_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 712 712 IF ( netcdf_deflate < 0 .OR. netcdf_deflate > 9 ) THEN 713 713 WRITE ( message_string, '(A,I3,A)' ) 'netcdf_deflate out of ' // & 714 'range given value: ', netcdf_deflate,&714 'range & given value: ', netcdf_deflate, & 715 715 ', allowed range: 0-9' 716 716 CALL message( 'netcdf_define_header', 'PA0355', 2, 2, 0, 6, 0 ) … … 1192 1192 WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ), & 1193 1193 ' data for mask', mid, ' from previous run found,', & 1194 ' 1195 'mismatch. 1194 '&but this file cannot be extended due to variable ', & 1195 'mismatch.&New file is created instead.' 1196 1196 CALL message( 'define_netcdf_header', 'PA0335', 0, 1, 0, 6, 0 ) 1197 1197 extend = .FALSE. … … 1218 1218 IF ( mask_size(mid,3) /= nz_old ) THEN 1219 1219 WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ), & 1220 ' 1220 '&data for mask', mid, ' from previous run found,', & 1221 1221 ' but this file cannot be extended due to mismatch in ', & 1222 1222 ' number of vertical grid points.', & 1223 ' 1223 '&New file is created instead.' 1224 1224 CALL message( 'define_netcdf_header', 'PA0336', 0, 1, 0, 6, 0 ) 1225 1225 extend = .FALSE. … … 1257 1257 WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ), & 1258 1258 ' data for mask', mid, ' from previous run found,', & 1259 ' 1259 '&but this file cannot be extended because the current ', & 1260 1260 'output time is less or equal than the last output time ', & 1261 'on this file. 1261 'on this file.&New file is created instead.' 1262 1262 CALL message( 'define_netcdf_header', 'PA0337', 0, 1, 0, 6, 0 ) 1263 1263 domask_time_count(mid,av) = 0 … … 1301 1301 WRITE ( message_string, * ) 'netCDF file for ', TRIM( var ), & 1302 1302 ' data for mask', mid, ' from previous run found.', & 1303 ' This file will be extended.'1303 ' &This file will be extended.' 1304 1304 CALL message( 'define_netcdf_header', 'PA0338', 0, 0, 0, 6, 0 ) 1305 1305 ! … … 1761 1761 message_string = 'netCDF file for volume data ' // & 1762 1762 TRIM( var ) // ' from previous run found,' // & 1763 ' 1763 '&but this file cannot be extended due to' // & 1764 1764 ' variable mismatch.' // & 1765 ' 1765 '&New file is created instead.' 1766 1766 CALL message( 'define_netcdf_header', 'PA0245', 0, 1, 0, 6, 0 ) 1767 1767 extend = .FALSE. … … 1786 1786 message_string = 'netCDF file for volume data ' // & 1787 1787 TRIM( var ) // ' from previous run found,' // & 1788 ' 1788 '&but this file cannot be extended due to' // & 1789 1789 ' mismatch in number of' // & 1790 1790 ' vertical grid points (nz_do3d).' // & 1791 ' 1791 '&New file is created instead.' 1792 1792 CALL message( 'define_netcdf_header', 'PA0246', 0, 1, 0, 6, 0 ) 1793 1793 extend = .FALSE. … … 1829 1829 message_string = 'netCDF file for volume data ' // & 1830 1830 TRIM( var ) // ' from previous run found,' // & 1831 ' 1831 '&but this file cannot be extended becaus' // & 1832 1832 'e the current output time' // & 1833 ' 1833 '&is less or equal than the last output t' // & 1834 1834 'ime on this file.' // & 1835 ' 1835 '&New file is created instead.' 1836 1836 CALL message( 'define_netcdf_header', 'PA0247', 0, 1, 0, 6, 0 ) 1837 1837 do3d_time_count(av) = 0 … … 1847 1847 message_string = 'netCDF file for volume data ' // & 1848 1848 TRIM( var ) // ' from previous run found,' // & 1849 ' 1849 '&but this file cannot be extended becaus' // & 1850 1850 'e the number of output time levels has b' // & 1851 1851 'een increased compared to the previous s' // & 1852 1852 'imulation.' // & 1853 ' 1853 '&New file is created instead.' 1854 1854 CALL message( 'define_netcdf_header', 'PA0388', 0, 1, 0, 6, 0 ) 1855 1855 do3d_time_count(av) = 0 … … 1917 1917 message_string = 'netCDF file for volume data ' // & 1918 1918 TRIM( var ) // ' from previous run found.' // & 1919 ' 1919 '&This file will be extended.' 1920 1920 CALL message( 'define_netcdf_header', 'PA0248', 0, 0, 0, 6, 0 ) 1921 1921 … … 2475 2475 message_string = 'netCDF file for cross-sections ' // & 2476 2476 TRIM( var ) // ' from previous run found,' // & 2477 ' 2477 '&but this file cannot be extended due to' // & 2478 2478 ' variable mismatch.' // & 2479 ' 2479 '&New file is created instead.' 2480 2480 CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) 2481 2481 extend = .FALSE. … … 2508 2508 message_string = 'netCDF file for cross-sections ' // & 2509 2509 TRIM( var ) // ' from previous run found,' // & 2510 ' 2510 '&but this file cannot be extended due to' // & 2511 2511 ' mismatch in number of' // & 2512 2512 ' cross sections.' // & 2513 ' 2513 '&New file is created instead.' 2514 2514 CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) 2515 2515 extend = .FALSE. … … 2589 2589 message_string = 'netCDF file for cross sections ' // & 2590 2590 TRIM( var ) // ' from previous run found,' // & 2591 ' 2591 '&but this file cannot be extended becaus' // & 2592 2592 'e the current output time' // & 2593 ' 2593 '&is less or equal than the last output t' // & 2594 2594 'ime on this file.' // & 2595 ' 2595 '&New file is created instead.' 2596 2596 CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) 2597 2597 do2d_xy_time_count(av) = 0 … … 2607 2607 message_string = 'netCDF file for cross sections ' // & 2608 2608 TRIM( var ) // ' from previous run found,' // & 2609 ' 2609 '&but this file cannot be extended becaus' // & 2610 2610 'e the number of output time levels has b' // & 2611 2611 'een increased compared to the previous s' // & 2612 2612 'imulation.' // & 2613 ' 2613 '&New file is created instead.' 2614 2614 CALL message( 'define_netcdf_header', 'PA0389', 0, 1, 0, 6, 0 ) 2615 2615 do2d_xy_time_count(av) = 0 … … 2679 2679 message_string = 'netCDF file for cross-sections ' // & 2680 2680 TRIM( var ) // ' from previous run found.' // & 2681 ' 2681 '&This file will be extended.' 2682 2682 CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) 2683 2683 … … 3118 3118 message_string = 'netCDF file for cross-sections ' // & 3119 3119 TRIM( var ) // ' from previous run found,' // & 3120 ' 3120 '&but this file cannot be extended due to' // & 3121 3121 ' variable mismatch.' // & 3122 ' 3122 '&New file is created instead.' 3123 3123 CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) 3124 3124 extend = .FALSE. … … 3151 3151 message_string = 'netCDF file for cross-sections ' // & 3152 3152 TRIM( var ) // ' from previous run found,' // & 3153 ' 3153 '&but this file cannot be extended due to' // & 3154 3154 ' mismatch in number of' // & 3155 3155 ' cross sections.' // & 3156 ' 3156 '&New file is created instead.' 3157 3157 CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) 3158 3158 extend = .FALSE. … … 3232 3232 message_string = 'netCDF file for cross sections ' // & 3233 3233 TRIM( var ) // ' from previous run found,' // & 3234 ' 3234 '&but this file cannot be extended becaus' // & 3235 3235 'e the current output time' // & 3236 ' 3236 '&is less or equal than the last output t' // & 3237 3237 'ime on this file.' // & 3238 ' 3238 '&New file is created instead.' 3239 3239 CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) 3240 3240 do2d_xz_time_count(av) = 0 … … 3250 3250 message_string = 'netCDF file for cross sections ' // & 3251 3251 TRIM( var ) // ' from previous run found,' // & 3252 ' 3252 '&but this file cannot be extended becaus' // & 3253 3253 'e the number of output time levels has b' // & 3254 3254 'een increased compared to the previous s' // & 3255 3255 'imulation.' // & 3256 ' 3256 '&New file is created instead.' 3257 3257 CALL message( 'define_netcdf_header', 'PA0390', 0, 1, 0, 6, 0 ) 3258 3258 do2d_xz_time_count(av) = 0 … … 3338 3338 message_string = 'netCDF file for cross-sections ' // & 3339 3339 TRIM( var ) // ' from previous run found.' // & 3340 ' 3340 '&This file will be extended.' 3341 3341 CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) 3342 3342 … … 3764 3764 message_string = 'netCDF file for cross-sections ' // & 3765 3765 TRIM( var ) // ' from previous run found,' // & 3766 ' 3766 '&but this file cannot be extended due to' // & 3767 3767 ' variable mismatch.' // & 3768 ' 3768 '&New file is created instead.' 3769 3769 CALL message( 'define_netcdf_header', 'PA0249', 0, 1, 0, 6, 0 ) 3770 3770 extend = .FALSE. … … 3797 3797 message_string = 'netCDF file for cross-sections ' // & 3798 3798 TRIM( var ) // ' from previous run found,' // & 3799 ' 3799 '&but this file cannot be extended due to' // & 3800 3800 ' mismatch in number of' // & 3801 3801 ' cross sections.' // & 3802 ' 3802 '&New file is created instead.' 3803 3803 CALL message( 'define_netcdf_header', 'PA0250', 0, 1, 0, 6, 0 ) 3804 3804 extend = .FALSE. … … 3878 3878 message_string = 'netCDF file for cross sections ' // & 3879 3879 TRIM( var ) // ' from previous run found,' // & 3880 ' 3880 '&but this file cannot be extended becaus' // & 3881 3881 'e the current output time' // & 3882 ' 3882 '&is less or equal than the last output t' // & 3883 3883 'ime on this file.' // & 3884 ' 3884 '&New file is created instead.' 3885 3885 CALL message( 'define_netcdf_header', 'PA0252', 0, 1, 0, 6, 0 ) 3886 3886 do2d_yz_time_count(av) = 0 … … 3896 3896 message_string = 'netCDF file for cross sections ' // & 3897 3897 TRIM( var ) // ' from previous run found,' // & 3898 ' 3898 '&but this file cannot be extended becaus' // & 3899 3899 'e the number of output time levels has b' // & 3900 3900 'een increased compared to the previous s' // & 3901 3901 'imulation.' // & 3902 ' 3902 '&New file is created instead.' 3903 3903 CALL message( 'define_netcdf_header', 'PA0391', 0, 1, 0, 6, 0 ) 3904 3904 do2d_yz_time_count(av) = 0 … … 3984 3984 message_string = 'netCDF file for cross-sections ' // & 3985 3985 TRIM( var ) // ' from previous run found.' // & 3986 ' 3986 '&This file will be extended.' 3987 3987 CALL message( 'define_netcdf_header', 'PA0253', 0, 0, 0, 6, 0 ) 3988 3988 … … 4117 4117 IF ( cross_profiles_count >= crmax ) THEN 4118 4118 message_string = 'It is not allowed to arrange more than ' & 4119 // '100 profiles with cross_profiles. Apart'&4120 // ' from that, all profiles are saved to '&4119 // '100 profiles with & cross_profiles. Apart' & 4120 // ' from that, all profiles are saved & to ' & 4121 4121 // 'the netCDF file.' 4122 4122 CALL message( 'define_netcdf_header', 'PA0354', 0, 0, 0, 6, 0 ) … … 4292 4292 message_string = 'netCDF file for vertical profiles ' // & 4293 4293 'from previous run found,' // & 4294 ' 4294 '&but this file cannot be extended due to' // & 4295 4295 ' variable mismatch.' // & 4296 ' 4296 '&New file is created instead.' 4297 4297 CALL message( 'define_netcdf_header', 'PA0254', 0, 1, 0, 6, 0 ) 4298 4298 extend = .FALSE. … … 4326 4326 message_string = 'netCDF file for vertical profiles ' // & 4327 4327 'from previous run found,' // & 4328 ' 4328 '&but this file cannot be extended becaus' // & 4329 4329 'e the current output time' // & 4330 ' 4330 '&is less or equal than the last output t' // & 4331 4331 'ime on this file.' // & 4332 ' 4332 '&New file is created instead.' 4333 4333 CALL message( 'define_netcdf_header', 'PA0255', 0, 1, 0, 6, 0 ) 4334 4334 dopr_time_count = 0 … … 4392 4392 message_string = 'netCDF file for vertical profiles ' // & 4393 4393 'from previous run found.' // & 4394 ' 4394 '&This file will be extended.' 4395 4395 CALL message( 'define_netcdf_header', 'PA0256', 0, 0, 0, 6, 0 ) 4396 4396 … … 4491 4491 message_string = 'netCDF file for time series ' // & 4492 4492 'from previous run found,' // & 4493 ' 4493 '&but this file cannot be extended due to' // & 4494 4494 ' variable mismatch.' // & 4495 ' 4495 '&New file is created instead.' 4496 4496 CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 ) 4497 4497 extend = .FALSE. … … 4525 4525 message_string = 'netCDF file for time series ' // & 4526 4526 'from previous run found,' // & 4527 ' 4527 '&but this file cannot be extended becaus' // & 4528 4528 'e the current output time' // & 4529 ' 4529 '&is less or equal than the last output t' // & 4530 4530 'ime on this file.' // & 4531 ' 4531 '&New file is created instead.' 4532 4532 CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 ) 4533 4533 dots_time_count = 0 … … 4574 4574 message_string = 'netCDF file for time series ' // & 4575 4575 'from previous run found.' // & 4576 ' 4576 '&This file will be extended.' 4577 4577 CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 ) 4578 4578 … … 4808 4808 message_string = 'netCDF file for spectra ' // & 4809 4809 'from previous run found,' // & 4810 ' 4810 '&but this file cannot be extended due to' // & 4811 4811 ' variable mismatch.' // & 4812 ' 4812 '&New file is created instead.' 4813 4813 CALL message( 'define_netcdf_header', 'PA0260', 0, 1, 0, 6, 0 ) 4814 4814 extend = .FALSE. … … 4842 4842 message_string = 'netCDF file for spectra ' // & 4843 4843 ' from previous run found,' // & 4844 ' 4844 '&but this file cannot be extended due to' // & 4845 4845 ' mismatch in number of' // & 4846 4846 ' vertical levels.' // & 4847 ' 4847 '&New file is created instead.' 4848 4848 CALL message( 'define_netcdf_header', 'PA0261', 0, 1, 0, 6, 0 ) 4849 4849 extend = .FALSE. … … 4862 4862 message_string = 'netCDF file for spectra ' // & 4863 4863 ' from previous run found,' // & 4864 ' 4864 '&but this file cannot be extended due to' // & 4865 4865 ' mismatch in heights of' // & 4866 4866 ' vertical levels.' // & 4867 ' 4867 '&New file is created instead.' 4868 4868 CALL message( 'define_netcdf_header', 'PA0262', 0, 1, 0, 6, 0 ) 4869 4869 extend = .FALSE. … … 4900 4900 message_string = 'netCDF file for spectra ' // & 4901 4901 'from previous run found,' // & 4902 ' 4902 '&but this file cannot be extended becaus' // & 4903 4903 'e the current output time' // & 4904 ' 4904 '&is less or equal than the last output t' // & 4905 4905 'ime on this file.' // & 4906 ' 4906 '&New file is created instead.' 4907 4907 CALL message( 'define_netcdf_header', 'PA0263', 0, 1, 0, 6, 0 ) 4908 4908 dosp_time_count = 0 … … 4964 4964 message_string = 'netCDF file for spectra ' // & 4965 4965 'from previous run found.' // & 4966 ' 4966 '&This file will be extended.' 4967 4967 CALL message( 'define_netcdf_header', 'PA0264', 0, 0, 0, 6, 0 ) 4968 4968 … … 5046 5046 ! message_string = 'netCDF file for particles ' // & 5047 5047 ! 'from previous run found,' // & 5048 ! ' 5048 ! '&but this file cannot be extended becaus' // & 5049 5049 ! 'e the current output time' // & 5050 ! ' 5050 ! '&is less or equal than the last output t' // & 5051 5051 ! 'ime on this file.' // & 5052 ! ' 5052 ! '&New file is created instead.' 5053 5053 ! CALL message( 'define_netcdf_header', 'PA0265', 0, 1, 0, 6, 0 ) 5054 5054 ! prt_time_count = 0 … … 5074 5074 ! message_string = 'netCDF file for particles ' // & 5075 5075 ! 'from previous run found.' // & 5076 ! ' 5076 ! '&This file will be extended.' 5077 5077 ! CALL message( 'define_netcdf_header', 'PA0266', 0, 0, 0, 6, 0 ) 5078 5078 … … 5182 5182 message_string = 'netCDF file for particle time series ' // & 5183 5183 'from previous run found,' // & 5184 ' 5184 '&but this file cannot be extended due to' // & 5185 5185 ' variable mismatch.' // & 5186 ' 5186 '&New file is created instead.' 5187 5187 CALL message( 'define_netcdf_header', 'PA0267', 0, 1, 0, 6, 0 ) 5188 5188 extend = .FALSE. … … 5216 5216 message_string = 'netCDF file for particle time series ' // & 5217 5217 'from previous run found,' // & 5218 ' 5218 '&but this file cannot be extended becaus' // & 5219 5219 'e the current output time' // & 5220 ' 5220 '&is less or equal than the last output t' // & 5221 5221 'ime on this file.' // & 5222 ' 5222 '&New file is created instead.' 5223 5223 CALL message( 'define_netcdf_header', 'PA0268', 0, 1, 0, 6, 0 ) 5224 5224 dopts_time_count = 0 … … 5269 5269 message_string = 'netCDF file for particle time series ' // & 5270 5270 'from previous run found.' // & 5271 ' 5271 '&This file will be extended.' 5272 5272 CALL message( 'netcdf_define_header', 'PA0269', 0, 0, 0, 6, 0 ) 5273 5273 … … 5362 5362 message_string = 'netCDF file for flight time series ' // & 5363 5363 'from previous run found,' // & 5364 ' 5364 '&but this file cannot be extended due to' // & 5365 5365 ' variable mismatch.' // & 5366 ' 5366 '&New file is created instead.' 5367 5367 CALL message( 'define_netcdf_header', 'PA0257', 0, 1, 0, 6, 0 ) 5368 5368 extend = .FALSE. … … 5396 5396 message_string = 'netCDF file for flight-time series ' // & 5397 5397 'from previous run found,' // & 5398 ' 5398 '&but this file cannot be extended becaus' // & 5399 5399 'e the current output time' // & 5400 ' 5400 '&is less or equal than the last output t' // & 5401 5401 'ime on this file.' // & 5402 ' 5402 '&New file is created instead.' 5403 5403 CALL message( 'define_netcdf_header', 'PA0258', 0, 1, 0, 6, 0 ) 5404 5404 dofl_time_count = 0 … … 5448 5448 message_string = 'netCDF file for flight-time series ' // & 5449 5449 'from previous run found.' // & 5450 ' 5450 '&This file will be extended.' 5451 5451 CALL message( 'define_netcdf_header', 'PA0259', 0, 0, 0, 6, 0 ) 5452 5452 -
palm/trunk/SOURCE/package_parin.f90
r2932 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 340 340 341 341 message_string = 'namelist particles_par is deprecated and will be ' // & 342 'removed in near future. Please &use namelist ' //&342 'removed in near future. Please use namelist ' // & 343 343 'particle_parameters instead' 344 344 CALL message( 'package_parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/parin.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 679 679 IF ( ioerr /= 0 ) THEN 680 680 message_string = 'local file ENVPAR not found' // & 681 ' 681 '&some variables for steering may not be properly set' 682 682 CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 ) 683 683 ELSE … … 685 685 IF ( ioerr < 0 ) THEN 686 686 message_string = 'no envpar-NAMELIST found in local file ' // & 687 'ENVPAR or some variables for steering may ' //&687 'ENVPAR& or some variables for steering may ' // & 688 688 'not be properly set' 689 689 CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 ) 690 690 ELSEIF ( ioerr > 0 ) THEN 691 691 message_string = 'errors in local file ENVPAR' // & 692 ' 692 '&some variables for steering may not be properly set' 693 693 CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 ) 694 694 ENDIF … … 745 745 GOTO 12 746 746 747 10 message_string = 'errors in &initialization_parameters or no ' //&748 ' &initialization_parameters-namelist ' // &747 10 message_string = 'errors in initialization_parameters & or no ' // & 748 'initialization_parameters-namelist ' // & 749 749 'found (CRAY-machines only)' 750 750 CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 ) … … 753 753 READ ( 11, inipar, ERR=13, END=14 ) 754 754 755 message_string = 'namelist &inipar is deprecated and will be ' // &756 'removed in near future. Please use namelist ' //&757 ' &initialization_parameters instead'755 message_string = 'namelist inipar is deprecated and will be ' // & 756 'removed in near future. & Please use namelist ' // & 757 'initialization_parameters instead' 758 758 CALL message( 'parin', 'PA0017', 0, 1, 0, 6, 0 ) 759 759 760 760 GOTO 12 761 761 762 13 message_string = 'errors in inipar or no inipar-namelist ' //&762 13 message_string = 'errors in inipar & or no inipar-namelist ' // & 763 763 'found (CRAY-machines only)' 764 764 CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 ) 765 765 766 14 message_string = 'no &initialization_parameters-namelist found'766 14 message_string = 'no initialization_parameters-namelist found' 767 767 CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 ) 768 768 … … 799 799 800 800 message_string = 'namelist d3par is deprecated and will be ' // & 801 'removed in near future. Please &use namelist ' // &801 'removed in near future. &Please use namelist ' // & 802 802 'runtime_parameters instead' 803 803 CALL message( 'parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 362 362 IF ( canopy_drag_coeff == 0.0_wp ) THEN 363 363 message_string = 'plant_canopy = .TRUE. requires a non-zero drag '// & 364 'coefficient ,given value is canopy_drag_coeff = 0.0'364 'coefficient & given value is canopy_drag_coeff = 0.0' 365 365 CALL message( 'pcm_check_parameters', 'PA0041', 1, 2, 0, 6, 0 ) 366 366 ENDIF … … 1053 1053 1054 1054 message_string = 'namelist canopy_par is deprecated and will be ' // & 1055 'removed in near future. Please &use namelist ' //&1055 'removed in near future. Please use namelist ' // & 1056 1056 'plant_canopy_parameters instead' 1057 1057 CALL message( 'pcm_parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/pmc_interface_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 4110 4110 IF ( end_time /= end_time_root ) THEN 4111 4111 WRITE( message_string, * ) 'mismatch between root model and ', & 4112 'child settings: end_time(root) = ', end_time_root,&4113 ' end_time(child) = ', end_time, ' child value is set',&4112 'child settings:& end_time(root) = ', end_time_root, & 4113 '& end_time(child) = ', end_time, '& child value is set', & 4114 4114 ' to root value' 4115 4115 CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, & … … 4126 4126 IF ( restart_time /= restart_time_root ) THEN 4127 4127 WRITE( message_string, * ) 'mismatch between root model and ', & 4128 'child settings: restart_time(root) = ', restart_time_root,&4129 ' restart_time(child) = ', restart_time, ' child ',&4128 'child settings: & restart_time(root) = ', restart_time_root, & 4129 '& restart_time(child) = ', restart_time, '& child ', & 4130 4130 'value is set to root value' 4131 4131 CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, & … … 4142 4142 IF ( dt_restart /= dt_restart_root ) THEN 4143 4143 WRITE( message_string, * ) 'mismatch between root model and ', & 4144 'child settings: dt_restart(root) = ', dt_restart_root,&4145 ' dt_restart(child) = ', dt_restart, ' child ',&4144 'child settings: & dt_restart(root) = ', dt_restart_root, & 4145 '& dt_restart(child) = ', dt_restart, '& child ', & 4146 4146 'value is set to root value' 4147 4147 CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, & … … 4158 4158 IF ( time_restart /= time_restart_root ) THEN 4159 4159 WRITE( message_string, * ) 'mismatch between root model and ', & 4160 'child settings: time_restart(root) = ', time_restart_root,&4161 ' time_restart(child) = ', time_restart, ' child ',&4160 'child settings: & time_restart(root) = ', time_restart_root, & 4161 '& time_restart(child) = ', time_restart, '& child ', & 4162 4162 'value is set to root value' 4163 4163 CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, & -
palm/trunk/SOURCE/pmc_parent_mod.f90
r2841 r3046 21 21 ! Current revisions: 22 22 ! ------------------ 23 ! 23 ! Comment extended 24 24 ! 25 25 ! Former revisions: … … 599 599 ENDDO 600 600 ! 601 !-- Create RMA (one sided communication ) data buffer.601 !-- Create RMA (one sided communication, RMA = Remote Memory Access) data buffer. 602 602 !-- The buffer for MPI_GET can be PE local, i.e. it can but must not be part of 603 603 !-- the MPI RMA window -
palm/trunk/SOURCE/pmc_particle_interface.f90
r2967 r3046 21 21 ! Current revisions: 22 22 ! ------------------ 23 ! 23 ! Error messages revised 24 24 ! 25 25 ! Former revisions: … … 206 206 IF ( ibc_par_t /= 3 ) THEN 207 207 ibc_par_t = 3 208 message_string = 'In Child model: bc_par_t is automatically set to nested '209 CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 ) ! PA number has to be adjusted208 message_string = 'In Child model: ibc_par_t is automatically set to nested ' 209 CALL message( 'pmcp_g_init ', 'PA0477', 0, 1, 0, 6, 0 ) 210 210 ENDIF 211 211 212 212 IF ( ibc_par_lr /= 3 ) THEN 213 213 ibc_par_lr = 3 214 message_string = 'In Child model: bc_par_lr is automatically set to nested '215 CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 ) ! PA number has to be adjusted214 message_string = 'In Child model: ibc_par_lr is automatically set to nested ' 215 CALL message( 'pmcp_g_init ', 'PA0478', 0, 1, 0, 6, 0 ) 216 216 ENDIF 217 217 218 218 IF ( ibc_par_ns /= 3 ) THEN 219 219 ibc_par_ns = 3 220 message_string = 'In Child model: bc_par_ns is automatically set to nested '221 CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 ) ! PA number has to be adjusted220 message_string = 'In Child model: ibc_par_ns is automatically set to nested ' 221 CALL message( 'pmcp_g_init ', 'PA0479', 0, 1, 0, 6, 0 ) 222 222 ENDIF 223 223 … … 476 476 max_nr_particle_per_pe, max_nr_particle_in_rma_win 477 477 message_string = 'RMA window too small on child' 478 CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 ) ! PA number has to be adjusted478 CALL message( 'pmci_create_child_arrays', 'PA0480', 3, 2, 0, 6, 0 ) 479 479 ENDIF 480 480 CALL MPI_WIN_LOCK( MPI_LOCK_SHARED , ip - 1, 0, & -
palm/trunk/SOURCE/radiation_model_mod.f90
r3045 r3046 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! 25 ! Error messages revised 26 26 ! 27 27 ! Former revisions: … … 2721 2721 2722 2722 message_string = 'namelist radiation_par is deprecated and will be ' // & 2723 'removed in near future. Please &use namelist ' //&2723 'removed in near future. Please use namelist ' // & 2724 2724 'radiation_parameters instead' 2725 2725 CALL message( 'radiation_parin', 'PA0487', 0, 1, 0, 6, 0 ) … … 2733 2733 message_string = 'surface_reflections is allowed only when ' // & 2734 2734 'radiation_interactions_on is set to TRUE' 2735 CALL message( 'radiation_parin', 'PA0 487',1, 2, 0, 6, 0 )2735 CALL message( 'radiation_parin', 'PA0293',1, 2, 0, 6, 0 ) 2736 2736 ENDIF 2737 2737 … … 5599 5599 zns = pi / REAL(nzn, wp) 5600 5600 CASE DEFAULT 5601 WRITE(message_string, *) 'ERROR: the surface type ',td , ' is not supported for calculating SVF' 5601 WRITE(message_string, *) 'ERROR: the surface type ', td, & 5602 ' is not supported for calculating',& 5603 ' SVF' 5602 5604 CALL message( 'radiation_calc_svf', 'PA0488', 1, 2, 0, 6, 0 ) 5603 5605 END SELECT … … 6760 6762 ! ------------ 6761 6763 !> Soubroutine reads svf and svfsurf data from saved file 6764 !> SVF means sky view factors and CSF means canopy sink factors 6762 6765 !------------------------------------------------------------------------------! 6763 6766 SUBROUTINE radiation_read_svf -
palm/trunk/SOURCE/read_restart_data_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 169 169 WRITE( message_string, * ) 'version mismatch concerning ', & 170 170 'binary_version_global:', & 171 ' 171 '&version on file = "', & 172 172 TRIM( version_on_file ), '"', & 173 ' 173 '&version on program = "', & 174 174 TRIM( binary_version_global ), '"' 175 175 CALL message( 'rrd_global', 'PA0296', 1, 2, 0, 6, 0 ) … … 891 891 WRITE( message_string, * ) 'mismatch concerning number of ', & 892 892 'gridpoints along z:', & 893 ' 894 ' 893 '&nz on file = "', nz_on_file, '"', & 894 '&nz from run = "', nz, '"' 895 895 CALL message( 'rrd_read_parts_of_global', 'PA0304', 1, 2, 0, 6, 0 ) 896 896 ENDIF … … 907 907 WRITE( message_string, * ) 'number of user profiles on res', & 908 908 'tart data file differs from the ', & 909 'current run: 909 'current run:&max_pr_user on file = "',& 910 910 max_pr_user_on_file, '"', & 911 ' 911 '&max_pr_user from run = "', & 912 912 max_pr_user, '"' 913 913 CALL message( 'rrd_read_parts_of_global', 'PA0306', 0, 0, 0, 6, 0 ) … … 928 928 WRITE( message_string, * ) 'statistic regions on restart data file ',& 929 929 'differ from the current run:', & 930 ' 930 '&statistic regions on file = "', & 931 931 statistic_regions_on_file, '"', & 932 ' 932 '&statistic regions from run = "', & 933 933 statistic_regions, '"', & 934 ' 934 '&statistic data may be lost!' 935 935 CALL message( 'rrd_read_parts_of_global', 'PA0308', 0, 1, 0, 6, 0 ) 936 936 tmp_sr = MIN( statistic_regions_on_file, statistic_regions ) … … 952 952 IF ( average_count_pr /= 0 ) THEN 953 953 WRITE( message_string, * ) 'inflow profiles not ', & 954 'temporally averaged. 954 'temporally averaged. &Averaging will be ', & 955 955 'done now using', average_count_pr, & 956 956 ' samples.' … … 1276 1276 WRITE( message_string, * ) 'version mismatch concerning ', & 1277 1277 'binary_version_local:', & 1278 ' 1279 ' 1278 '&version on file = "', TRIM( version_on_file ), '"', & 1279 '&version in program = "', TRIM( binary_version_local ), '"' 1280 1280 CALL message( 'rrd_local', 'PA0286', 1, 2, 0, 6, 0 ) 1281 1281 ENDIF … … 1290 1290 WRITE( message_string, * ) 'problem with index bound nxl on ', & 1291 1291 'restart file "', myid_char, '"', & 1292 ' 1293 ' 1294 ' 1292 '&nxl = ', nxl_on_file, ' but it should be', & 1293 '&= ', hor_index_bounds_previous_run(1,j), & 1294 '&from the index bound information array' 1295 1295 CALL message( 'rrd_local', 'PA0287', 2, 2, -1, 6, 1 ) 1296 1296 ENDIF … … 1309 1309 WRITE( message_string, * ) 'problem with index bound nys on ', & 1310 1310 'restart file "', myid_char, '"', & 1311 ' 1312 ' 1313 ' 1311 '&nys = ', nys_on_file, ' but it should be', & 1312 '&= ', hor_index_bounds_previous_run(3,j), & 1313 '&from the index bound information array' 1314 1314 CALL message( 'rrd_local', 'PA0289', 2, 2, -1, 6, 1 ) 1315 1315 ENDIF … … 1318 1318 WRITE( message_string, * ) 'problem with index bound nyn on ', & 1319 1319 'restart file "', myid_char, '"', & 1320 ' 1321 ' 1322 ' 1320 '&nyn = ', nyn_on_file, ' but it should be', & 1321 '&= ', hor_index_bounds_previous_run(4,j), & 1322 '&from the index bound information array' 1323 1323 CALL message( 'rrd_local', 'PA0290', 2, 2, -1, 6, 1 ) 1324 1324 ENDIF … … 1327 1327 WRITE( message_string, * ) 'mismatch between actual data and data ', & 1328 1328 'from prior run on PE ', myid, & 1329 ' 1330 ' 1329 '&nzb on file = ', nzb_on_file, & 1330 '&nzb = ', nzb 1331 1331 CALL message( 'rrd_local', 'PA0291', 1, 2, 0, 6, 0 ) 1332 1332 ENDIF … … 1335 1335 WRITE( message_string, * ) 'mismatch between actual data and data ', & 1336 1336 'from prior run on PE ', myid, & 1337 ' 1338 ' 1337 '&nzt on file = ', nzt_on_file, & 1338 '&nzt = ', nzt 1339 1339 CALL message( 'rrd_local', 'PA0292', 1, 2, 0, 6, 0 ) 1340 1340 ENDIF -
palm/trunk/SOURCE/spectra_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 264 264 265 265 message_string = 'namelist spectra_par is deprecated and will be ' // & 266 'removed in near future. Please &use namelist ' //&266 'removed in near future. Please use namelist ' // & 267 267 'spectra_parameters instead' 268 268 CALL message( 'spectra_parin', 'PA0487', 0, 1, 0, 6, 0 ) … … 475 475 476 476 message_string = 'non-cyclic lateral boundaries along x do'// & 477 ' not allow calculation of spectra along x'477 ' not & allow calculation of spectra along x' 478 478 CALL message( 'calc_spectra', 'PA0160', 1, 2, 0, 6, 0 ) 479 479 ENDIF … … 491 491 #else 492 492 message_string = 'sorry, calculation of spectra in non paral' // & 493 'lel mode is still not realized'493 'lel mode& is still not realized' 494 494 CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 ) 495 495 #endif … … 507 507 IF ( myid == 0 ) THEN 508 508 message_string = 'non-cyclic lateral boundaries along y' // & 509 ' do not allow calculation of spectra' //&509 ' do not & allow calculation of spectra' //& 510 510 ' along y' 511 511 CALL message( 'calc_spectra', 'PA0162', 1, 2, 0, 6, 0 ) … … 521 521 #else 522 522 message_string = 'sorry, calculation of spectra in non paral' // & 523 'lel mode is still not realized'523 'lel mode& is still not realized' 524 524 CALL message( 'calc_spectra', 'PA0161', 1, 2, 0, 6, 0 ) 525 525 #endif -
palm/trunk/SOURCE/surface_coupler.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 173 173 TRIM( coupling_mode_remote ), & 174 174 '" terminated', & 175 ' 175 '&with terminate_coupled_remote = ', & 176 176 terminate_coupled_remote, & 177 ' 177 '&local model "', TRIM( coupling_mode ), & 178 178 '" has', & 179 ' 179 '&terminate_coupled = ', & 180 180 terminate_coupled 181 181 CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 339 339 .AND. INDEX( initializing_actions, 'read_restart_data' ) == 0 ) THEN 340 340 message_string = 'Using synthetic turbulence generator ' // & 341 'requires &initializing_actions = ' // &341 'requires %initializing_actions = ' // & 342 342 '"set_constant_profiles" or "read_restart_data"' 343 343 CALL message( 'stg_check_parameters', 'PA0015', 1, 2, 0, 6, 0 ) … … 346 346 IF ( bc_lr /= 'dirichlet/radiation' ) THEN 347 347 message_string = 'Using synthetic turbulence generator ' // & 348 'requires bc_lr = "dirichlet/radiation"'348 'requires &bc_lr = "dirichlet/radiation"' 349 349 CALL message( 'stg_check_parameters', 'PA0035', 1, 2, 0, 6, 0 ) 350 350 ENDIF 351 351 IF ( bc_ns /= 'cyclic' ) THEN 352 352 message_string = 'Using synthetic turbulence generator ' // & 353 'requires bc_ns = "cyclic"'353 'requires &bc_ns = "cyclic"' 354 354 CALL message( 'stg_check_parameters', 'PA0037', 1, 2, 0, 6, 0 ) 355 355 ENDIF -
palm/trunk/SOURCE/temperton_fft_mod.f90
r3045 r3046 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! Error messages revised 7 7 ! 8 8 ! Former revisions: … … 2166 2166 message_string = 'number of gridpoints along x or/and y ' // & 2167 2167 'contain illegal factors' // & 2168 ' 2168 '&only factors 2, 3, 5 are allowed' 2169 2169 CALL message( 'temperton_fft', 'PA0311', 1, 2, 0, 6, 0 ) 2170 2170 -
palm/trunk/SOURCE/timestep.f90
r3045 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 333 333 334 334 WRITE( message_string, * ) 'Time step has reached minimum limit.', & 335 ' 336 ' 337 ' 338 ' 339 ' 340 ' 341 ' 335 '&dt = ', dt_3d, ' s Simulation is terminated.', & 336 '&old_dt = ', old_dt, ' s', & 337 '&dt_u = ', dt_u, ' s', & 338 '&dt_v = ', dt_v, ' s', & 339 '&dt_w = ', dt_w, ' s', & 340 '&dt_diff = ', dt_diff, ' s', & 341 '&u_max = ', u_max, ' m/s k=', u_max_ijk(1), & 342 342 ' j=', u_max_ijk(2), ' i=', u_max_ijk(3), & 343 ' 343 '&v_max = ', v_max, ' m/s k=', v_max_ijk(1), & 344 344 ' j=', v_max_ijk(2), ' i=', v_max_ijk(3), & 345 ' 345 '&w_max = ', w_max, ' m/s k=', w_max_ijk(1), & 346 346 ' j=', w_max_ijk(2), ' i=', w_max_ijk(3) 347 347 CALL message( 'timestep', 'PA0312', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/urban_surface_mod.f90
r3045 r3046 23 23 ! Current revisions: 24 24 ! ------------------ 25 ! 25 ! Error messages revised 26 26 ! 27 27 ! Former revisions: … … 5261 5261 5262 5262 message_string = 'namelist urban_surface_par is deprecated and will be ' // & 5263 'removed in near future. Please &use namelist ' //&5263 'removed in near future. Please use namelist ' // & 5264 5264 'urban_surface_parameters instead' 5265 5265 CALL message( 'usm_parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/user_data_output_dvrp.f90
r2718 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 106 106 !-- wrong character string that is neither recognized in data_output_dvrp 107 107 !-- nor here in user_data_output_dvrp. 108 WRITE( message_string, * ) 'no output possible for: ', &108 WRITE( message_string, * ) 'no output possible for: ', & 109 109 output_variable 110 CALL message( 'user_data_output_dvrp', 'UI0003', 0, 0, 0, 6, 0 )110 CALL message( 'user_data_output_dvrp', 'UI0003', 0, 1, 0, 6, 0 ) 111 111 112 112 -
palm/trunk/SOURCE/user_parin.f90
r2932 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 155 155 156 156 message_string = 'namelist userpar is deprecated and will be ' // & 157 'removed in near future. Please &use namelist ' // &157 'removed in near future. &Please use namelist ' // & 158 158 'user_parameters instead' 159 159 CALL message( 'user_parin', 'PA0487', 0, 1, 0, 6, 0 ) … … 191 191 IF ( max_pr_user /= max_pr_user_tmp ) THEN 192 192 WRITE( message_string, * ) 'the number of user-defined profiles ',& 193 'given in &data_output_pr (', max_pr_user_tmp, ') doe',&193 'given in data_output_pr (', max_pr_user_tmp, ') doe', & 194 194 'snot match the one ', & 195 ' &found in the restart file (', max_pr_user,&195 'found in the restart file (', max_pr_user, & 196 196 ')' 197 197 CALL message( 'user_parin', 'UI0009', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/user_spectra.f90
r2718 r3046 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 113 113 message_string = 'Spectra of ' // & 114 114 TRIM( data_output_sp(m) ) // ' can not be calculated' 115 CALL message( 'user_spectra', 'UI0010', 0, 0, 0, 6, 0 )115 CALL message( 'user_spectra', 'UI0010', 0, 1, 0, 6, 0 ) 116 116 117 117 END SELECT -
palm/trunk/SOURCE/vertical_nesting_mod.f90
r3045 r3046 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! 23 ! Error messages revised 24 24 ! 25 25 ! Former revisions: … … 283 283 TRIM( coupling_mode_remote ), & 284 284 '" terminated', & 285 ' 285 '&with terminate_coupled_remote = ', & 286 286 terminate_coupled_remote, & 287 ' 287 '&local model "', TRIM( coupling_mode ), & 288 288 '" has', & 289 ' 289 '&terminate_coupled = ', & 290 290 terminate_coupled 291 291 CALL message( 'vnest_init_fine', 'PA0310', 1, 2, 0, 6, 0 ) … … 2783 2783 TRIM( coupling_mode_remote ), & 2784 2784 '" terminated', & 2785 ' 2785 '&with terminate_coupled_remote = ', & 2786 2786 terminate_coupled_remote, & 2787 ' 2787 '&local model "', TRIM( coupling_mode ), & 2788 2788 '" has', & 2789 ' 2789 '&terminate_coupled = ', & 2790 2790 terminate_coupled 2791 2791 CALL message( 'vnest_anterpolate', 'PA0310', 1, 2, 0, 6, 0 ) … … 3331 3331 TRIM( coupling_mode_remote ), & 3332 3332 '" terminated', & 3333 ' 3333 '&with terminate_coupled_remote = ', & 3334 3334 terminate_coupled_remote, & 3335 ' 3335 '&local model "', TRIM( coupling_mode ), & 3336 3336 '" has', & 3337 ' 3337 '&terminate_coupled = ', & 3338 3338 terminate_coupled 3339 3339 CALL message( 'vnest_anterpolate_e', 'PA0310', 1, 2, 0, 6, 0 ) -
palm/trunk/SOURCE/virtual_flight_mod.f90
r2932 r3046 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Error messages revised 23 23 ! 24 24 ! Former revisions: … … 267 267 268 268 message_string = 'namelist flight_par is deprecated and will be ' // & 269 'removed in near future. Please &use namelist ' // &269 'removed in near future.& Please use namelist ' // & 270 270 'virtual_flight_parameters instead' 271 271 CALL message( 'flight_parin', 'PA0487', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/wind_turbine_model_mod.f90
r2932 r3046 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! 23 ! Error messages revised 24 24 ! 25 25 ! Former revisions: … … 561 561 562 562 message_string = 'namelist wind_tubrine_par is deprecated and will ' // & 563 'be removed in near future. Please &use namelist ' // &563 'be removed in near future. &Please use namelist ' // & 564 564 'wind_turbine_parameters instead' 565 565 CALL message( 'wtm_parin', 'PA0487', 0, 1, 0, 6, 0 )
Note: See TracChangeset
for help on using the changeset viewer.
