Changeset 2044
- Timestamp:
- Nov 2, 2016 4:44:25 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r2043 r2044 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! Added error code for anelastic approximation 23 23 ! 24 24 ! Former revisions: … … 855 855 message_string = 'unknown approximation: approximation = "' // & 856 856 TRIM( approximation ) // '"' 857 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )857 CALL message( 'check_parameters', 'PA0446', 1, 2, 0, 6, 0 ) 858 858 ENDIF 859 859 … … 864 864 message_string = 'Anelastic approximation requires: ' // & 865 865 'momentum_advec = "ws-scheme"' 866 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )866 CALL message( 'check_parameters', 'PA0447', 1, 2, 0, 6, 0 ) 867 867 ENDIF 868 868 IF ( TRIM( approximation ) == 'anelastic' .AND. & … … 872 872 'psolver = "sor" and ' // & 873 873 'psolver = "multigrid_noopt"' 874 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )874 CALL message( 'check_parameters', 'PA0448', 1, 2, 0, 6, 0 ) 875 875 ENDIF 876 876 IF ( TRIM( approximation ) == 'anelastic' .AND. & … … 878 878 message_string = 'Anelastic approximation is not allowed with:' // & 879 879 'conserve_volume_flow = .TRUE.' 880 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )880 CALL message( 'check_parameters', 'PA0449', 1, 2, 0, 6, 0 ) 881 881 ENDIF 882 882 … … 888 888 message_string = 'unknown flux input mode: flux_input_mode = "' // & 889 889 TRIM( flux_input_mode ) // '"' 890 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )890 CALL message( 'check_parameters', 'PA0450', 1, 2, 0, 6, 0 ) 891 891 ENDIF 892 892 !-- Set flux input mode according to approximation if applicable … … 906 906 message_string = 'unknown flux output mode: flux_output_mode = "' // & 907 907 TRIM( flux_output_mode ) // '"' 908 CALL message( 'check_parameters', 'PA0 000', 1, 2, 0, 6, 0 )908 CALL message( 'check_parameters', 'PA0451', 1, 2, 0, 6, 0 ) 909 909 ENDIF 910 910 !-- Set flux output mode according to approximation if applicable
Note: See TracChangeset
for help on using the changeset viewer.