- Timestamp:
- Aug 9, 2017 11:50:30 AM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r2339 r2345 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Remove error message PA0156 and the conserve_volume_flow_mode option 28 ! inflow_profile 29 ! 30 ! 2339 2017-08-07 13:55:26Z raasch 27 31 ! corrected timestamp in header 28 32 ! … … 3756 3760 3757 3761 ELSEIF ( TRIM( conserve_volume_flow_mode ) /= 'initial_profiles' .AND. & 3758 TRIM( conserve_volume_flow_mode ) /= 'inflow_profile' .AND. &3759 3762 TRIM( conserve_volume_flow_mode ) /= 'bulk_velocity' ) THEN 3760 3763 WRITE( message_string, * ) 'unknown conserve_volume_flow_mode: ', & … … 3767 3770 'require conserve_volume_flow_mode = ''initial_profiles''' 3768 3771 CALL message( 'check_parameters', 'PA0155', 1, 2, 0, 6, 0 ) 3769 ENDIF3770 IF ( bc_lr == 'cyclic' .AND. bc_ns == 'cyclic' .AND. &3771 TRIM( conserve_volume_flow_mode ) == 'inflow_profile' ) THEN3772 WRITE( message_string, * ) 'cyclic boundary conditions ', &3773 'require conserve_volume_flow_mode = ''initial_profiles''', &3774 ' or ''bulk_velocity'''3775 CALL message( 'check_parameters', 'PA0156', 1, 2, 0, 6, 0 )3776 3772 ENDIF 3777 3773 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.