Changeset 2274 for palm/trunk
- Timestamp:
- Jun 9, 2017 1:27:48 PM (7 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 7 edited
-
check_parameters.f90 (modified) (12 diffs)
-
data_output_dvrp.f90 (modified) (4 diffs)
-
fft_xy_mod.f90 (modified) (2 diffs)
-
init_grid.f90 (modified) (7 diffs)
-
lpm_droplet_collision.f90 (modified) (3 diffs)
-
lpm_init.f90 (modified) (2 diffs)
-
plant_canopy_model_mod.f90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r2271 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2271 2017-06-09 12:34:55Z sward 27 30 ! roughness-length check altered 28 31 ! Error messages fixed … … 957 960 ! 958 961 !-- Check ocean setting 959 IF ( ocean ) THEN 960 961 action = ' ' 962 IF ( action /= ' ' ) THEN 963 message_string = 'ocean = .T. does not allow ' // TRIM( action ) 964 CALL message( 'check_parameters', 'PA0015', 1, 2, 0, 6, 0 ) 965 ENDIF 966 967 ELSEIF ( TRIM( coupling_mode ) == 'uncoupled' .AND. & 968 TRIM( coupling_char ) == '_O' ) THEN 962 IF ( TRIM( coupling_mode ) == 'uncoupled' .AND. & 963 TRIM( coupling_char ) == '_O' .AND. & 964 .NOT. ocean ) THEN 969 965 970 966 ! … … 1072 1068 ) THEN 1073 1069 use_upstream_for_tke = .TRUE. 1074 message_string = 'use_upstream_for_tke set .TRUE. because ' //&1070 message_string = 'use_upstream_for_tke is set to .TRUE. because ' // & 1075 1071 'use_sgs_for_particles = .TRUE. ' // & 1076 1072 'and scalar_advec /= ws-scheme' … … 1173 1169 1174 1170 CASE ( 'set_constant_profiles', 'set_1d-model_profiles', & 1175 'by_user', 'initialize_vortex', 1171 'by_user', 'initialize_vortex', 'initialize_ptanom' ) 1176 1172 action = action(position+1:) 1177 1173 … … 3503 3499 IF ( bc_lr /= 'cyclic' ) THEN 3504 3500 IF ( pt_damping_width < 0.0_wp .OR. & 3505 pt_damping_width > REAL( nx* dx ) ) THEN3501 pt_damping_width > REAL( (nx+1) * dx ) ) THEN 3506 3502 message_string = 'pt_damping_width out of range' 3507 3503 CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 ) … … 3511 3507 IF ( bc_ns /= 'cyclic' ) THEN 3512 3508 IF ( pt_damping_width < 0.0_wp .OR. & 3513 pt_damping_width > REAL( ny* dy ) ) THEN3509 pt_damping_width > REAL( (ny+1) * dy ) ) THEN 3514 3510 message_string = 'pt_damping_width out of range' 3515 3511 CALL message( 'check_parameters', 'PA0124', 1, 2, 0, 6, 0 ) … … 3594 3590 IF ( disturbance_level_ind_t < disturbance_level_ind_b ) THEN 3595 3591 WRITE( message_string, * ) 'disturbance_level_ind_t = ', & 3596 disturbance_level_ind_t, ' must be >= disturbance_level_ b = ', &3597 disturbance_level_ b3592 disturbance_level_ind_t, ' must be >= disturbance_level_ind_b = ', & 3593 disturbance_level_ind_b 3598 3594 CALL message( 'check_parameters', 'PA0130', 1, 2, 0, 6, 0 ) 3599 3595 ENDIF … … 3696 3692 initializing_actions /= 'read_restart_data' ) THEN 3697 3693 message_string = 'turbulent_inflow = .T. requires ' // & 3698 'initializing_actions = ''cyclic_fill'' ' 3694 'initializing_actions = ''cyclic_fill'' or ' // & 3695 'initializing_actions = ''read_restart_data'' ' 3699 3696 CALL message( 'check_parameters', 'PA0055', 1, 2, 0, 6, 0 ) 3700 3697 ENDIF … … 3703 3700 !-- In case of turbulent inflow calculate the index of the recycling plane 3704 3701 IF ( turbulent_inflow ) THEN 3705 IF ( recycling_width < dx .OR. recycling_width >nx * dx ) THEN3702 IF ( recycling_width <= dx .OR. recycling_width >= nx * dx ) THEN 3706 3703 WRITE( message_string, * ) 'illegal value for recycling_width:', & 3707 3704 ' ', recycling_width … … 3749 3746 ELSEIF ( damp_level_1d < 0.0_wp .OR. damp_level_1d > zu(nzt+1) ) THEN 3750 3747 WRITE( message_string, * ) 'damp_level_1d = ', damp_level_1d, & 3751 ' must be > 0.0 and <', zu(nzt+1), '(zu(nzt+1))'3748 ' must be >= 0.0 and <= ', zu(nzt+1), '(zu(nzt+1))' 3752 3749 CALL message( 'check_parameters', 'PA0136', 1, 2, 0, 6, 0 ) 3753 3750 ELSE … … 3797 3794 ELSE 3798 3795 termination_time_needed = 35.0_wp 3799 ENDIF3800 ENDIF3801 3802 !3803 !-- Check the time needed to terminate a model run3804 IF ( host(1:3) == 't3e' ) THEN3805 !3806 !-- Time needed must be at least 30 seconds on all CRAY machines, because3807 !-- MPP_TREMAIN gives the remaining CPU time only in steps of 30 seconds3808 IF ( termination_time_needed <= 30.0_wp ) THEN3809 WRITE( message_string, * ) 'termination_time_needed = ', &3810 termination_time_needed, ' must be > 30.0 on host "', &3811 TRIM( host ), '"'3812 CALL message( 'check_parameters', 'PA0139', 1, 2, 0, 6, 0 )3813 ENDIF3814 ELSEIF ( host(1:3) == 'ibm' ) THEN3815 !3816 !-- On IBM-regatta machines the time should be at least 300 seconds,3817 !-- because the job time consumed before executing palm (for compiling,3818 !-- copying of files, etc.) has to be regarded3819 IF ( termination_time_needed < 300.0_wp ) THEN3820 WRITE( message_string, * ) 'termination_time_needed = ', &3821 termination_time_needed, ' should be >= 300.0 on host "', &3822 TRIM( host ), '"'3823 CALL message( 'check_parameters', 'PA0140', 1, 2, 0, 6, 0 )3824 3796 ENDIF 3825 3797 ENDIF … … 4013 3985 IF ( dt_fixed ) THEN 4014 3986 WRITE( message_string, '(A,F9.4,A)' ) 'Output at every ' // & 4015 'timestep is desired (' // dt_do_name // ' = 0.0).&'//&3987 'timestep is wanted (' // dt_do_name // ' = 0.0).&'// & 4016 3988 'Setting the output interval to the fixed timestep '// & 4017 3989 'dt = ', dt, 's.' -
palm/trunk/SOURCE/data_output_dvrp.f90
r2101 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2101 2017-01-05 16:42:31Z suehring 27 30 ! 28 31 ! 2000 2016-08-20 18:09:15Z knoop … … 353 356 ELSE 354 357 message_string = 'if humidity = ' // & 355 ' FALSEoutput of ' // TRIM( output_variable ) // &358 '.FALSE. output of ' // TRIM( output_variable ) // & 356 359 'is not provided' 357 360 CALL message( 'data_output_dvrp', 'PA0183',& … … 369 372 ENDDO 370 373 ELSE 371 message_string = 'if cloud_physics = FALSE ' // & 374 message_string = 'if cloud_physics = .FALSE. and ' // & 375 'cloud_droplets = .FALSE. ' 372 376 'output of ' // TRIM( output_variable) // & 373 377 'is not provided' … … 387 391 ELSE 388 392 message_string = 'if passive_scalar = ' // & 389 ' FALSEoutput of ' // TRIM( output_variable ) // &393 '.FALSE. output of ' // TRIM( output_variable ) // & 390 394 'is not provided' 391 395 CALL message( 'data_output_dvrp', 'PA0183',& -
palm/trunk/SOURCE/fft_xy_mod.f90
r2119 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2119 2017-01-17 16:51:50Z raasch 27 30 ! 28 31 ! 2118 2017-01-17 16:38:49Z raasch … … 1793 1796 message_string = 'fft method "' // TRIM( fft_method) // & 1794 1797 '" not available' 1795 CALL message( 'fft_ x_m', 'PA0189', 1, 2, 0, 6, 0 )1798 CALL message( 'fft_y_m', 'PA0189', 1, 2, 0, 6, 0 ) 1796 1799 1797 1800 ENDIF -
palm/trunk/SOURCE/init_grid.f90
r2233 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2233 2017-05-30 18:08:54Z suehring 27 30 ! 28 31 ! 2232 2017-05-30 17:47:52Z suehring … … 726 729 tunnel_width_y == 9999999.9_wp ) THEN 727 730 message_string = 'No tunnel width is given. ' 728 CALL message( 'init_grid', 'PA02 07', 1, 2, 0, 6, 0 )731 CALL message( 'init_grid', 'PA0280', 1, 2, 0, 6, 0 ) 729 732 ENDIF 730 733 IF ( tunnel_width_x /= 9999999.9_wp .AND. & … … 733 736 'tunnel can only be oriented' // & 734 737 'either in x- or in y-direction.' 735 CALL message( 'init_grid', 'PA02 07', 1, 2, 0, 6, 0 )738 CALL message( 'init_grid', 'PA0281', 1, 2, 0, 6, 0 ) 736 739 ENDIF 737 740 ! … … 740 743 IF ( tunnel_width_x > ( nx + 1 ) * dx ) THEN 741 744 message_string = 'Tunnel width too large' 742 CALL message( 'init_grid', 'PA02 07', 1, 2, 0, 6, 0 )745 CALL message( 'init_grid', 'PA0282', 1, 2, 0, 6, 0 ) 743 746 ENDIF 744 747 … … 758 761 tunnel_width_x - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dx ) THEN 759 762 message_string = 'Tunnel width too small' 760 CALL message( 'init_grid', 'PA0 207', 1, 2, 0, 6, 0 )763 CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 ) 761 764 ENDIF 762 765 IF ( tunnel_width_y /= 9999999.9_wp .AND. & 763 766 tunnel_width_y - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dy ) THEN 764 767 message_string = 'Tunnel width too small' 765 CALL message( 'init_grid', 'PA0 207', 1, 2, 0, 6, 0 )768 CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 ) 766 769 ENDIF 767 770 ! … … 770 773 IF ( tunnel_width_y > ( ny + 1 ) * dy ) THEN 771 774 message_string = 'Tunnel width too large' 772 CALL message( 'init_grid', 'PA0 207', 1, 2, 0, 6, 0 )775 CALL message( 'init_grid', 'PA0456', 1, 2, 0, 6, 0 ) 773 776 ENDIF 774 777 … … 910 913 message_string = 'NetCDF attribute lod ' // & 911 914 '(level of detail) is not set properly.' 912 CALL message( 'init_grid', 'PA0 208', 1, 2, 0, 6, 0 ) !Error number still need to be set properly915 CALL message( 'init_grid', 'PA0457', 1, 2, 0, 6, 0 ) 913 916 ENDIF 914 917 ! -
palm/trunk/SOURCE/lpm_droplet_collision.f90
r2123 r2274 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 23 ! 22 ! 23 ! 24 24 ! Former revisions: 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2123 2017-01-18 12:34:59Z hoffmann 27 30 ! 28 31 ! 2122 2017-01-18 12:22:54Z hoffmann … … 330 333 331 334 IF ( ANY(weight < 0.0_wp) ) THEN 332 WRITE( message_string, * ) 'negative weighting '335 WRITE( message_string, * ) 'negative weighting factor' 333 336 CALL message( 'lpm_droplet_collision', 'PA0028', & 334 337 2, 2, -1, 6, 1 ) … … 498 501 499 502 IF ( ANY(weight < 0.0_wp) ) THEN 500 WRITE( message_string, * ) 'negative weighting '503 WRITE( message_string, * ) 'negative weighting factor' 501 504 CALL message( 'lpm_droplet_collision', 'PA0028', & 502 505 2, 2, -1, 6, 1 ) -
palm/trunk/SOURCE/lpm_init.f90
r2265 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2265 2017-06-08 16:58:28Z schwenkel 27 30 ! Unused variables removed. 28 31 ! … … 301 304 !-- propably (not realized so far). 302 305 IF ( surf_def_h(1)%ns >= 1 ) THEN 303 WRITE( message_string, * ) 'Overhanging topograp yhdo not work '// &306 WRITE( message_string, * ) 'Overhanging topography do not work '// & 304 307 'with particles' 305 308 CALL message( 'lpm_init', 'PA0212', 0, 1, 0, 6, 0 ) -
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r2233 r2274 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Changed error messages 28 ! 29 ! 2233 2017-05-30 18:08:54Z suehring 27 30 ! 28 31 ! 2232 2017-05-30 17:47:52Z suehring … … 301 304 302 305 IF ( calc_beta_lad_profile .AND. lad_surface /= 0.0_wp ) THEN 303 message_string = 'simultaneous setting of alpha_lad /= 9999999.9' // & 306 message_string = 'simultaneous setting of alpha_lad /= 9999999.9 '// & 307 'combined with beta_lad /= 9999999.9 ' // & 304 308 'and lad_surface /= 0.0 is not possible, ' // & 305 309 'use either vertical gradients or the beta ' // &
Note: See TracChangeset
for help on using the changeset viewer.
