- Timestamp:
- Apr 16, 2018 3:22:20 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r2967 r2975 25 25 ! ----------------- 26 26 ! $Id$ 27 ! - Informative message when initializing_actions has been changed 28 ! to set_constant_profile in child domain 29 ! - Change location in message call 30 ! 31 ! 2967 2018-04-13 11:22:08Z raasch 27 32 ! bugfix: missing parallel cpp-directives added 28 33 ! … … 925 930 TRIM( initializing_actions ) == 'read_restart_data' .OR. & 926 931 TRIM( initializing_actions ) == 'by_user' ) ) THEN 932 message_string = 'initializing_actions = ' // & 933 TRIM( initializing_actions ) // ' has been ' // & 934 'changed to set_constant_profiles in child ' // & 935 'domain.' 936 CALL message( 'parin', 'PA0492', 0, 0, 0, 6, 0 ) 937 927 938 initializing_actions = 'set_constant_profiles' 928 939 ENDIF … … 937 948 message_string = 'unknown boundary condition: bc_lr = "' // & 938 949 TRIM( bc_lr ) // '"' 939 CALL message( ' check_parameters', 'PA0049', 1, 2, 0, 6, 0 )950 CALL message( 'parin', 'PA0049', 1, 2, 0, 6, 0 ) 940 951 ENDIF 941 952 IF ( bc_ns /= 'cyclic' .AND. bc_ns /= 'dirichlet/radiation' .AND. & … … 944 955 message_string = 'unknown boundary condition: bc_ns = "' // & 945 956 TRIM( bc_ns ) // '"' 946 CALL message( ' check_parameters', 'PA0050', 1, 2, 0, 6, 0 )957 CALL message( 'parin', 'PA0050', 1, 2, 0, 6, 0 ) 947 958 ENDIF 948 959 !
Note: See TracChangeset
for help on using the changeset viewer.