Changeset 2044 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Nov 2, 2016 4:44:25 PM (8 years ago)

Author:

knoop

Message:

Added error code for anelastic approximation

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (7 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Added error code for anelastic approximation
 ! 
 ! Former revisions:
@@ -855 +855 @@
        message_string = 'unknown approximation: approximation = "' //    &
                         TRIM( approximation ) // '"'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0446', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -864 +864 @@
        message_string = 'Anelastic approximation requires: ' //                &
                         'momentum_advec = "ws-scheme"'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0447', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( TRIM( approximation ) == 'anelastic'   .AND.   &
@@ -872 +872 @@
                         'psolver = "sor" and ' // &
                         'psolver = "multigrid_noopt"'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0448', 1, 2, 0, 6, 0 )
     ENDIF
     IF ( TRIM( approximation ) == 'anelastic'   .AND.   &
@@ -878 +878 @@
        message_string = 'Anelastic approximation is not allowed with:' //      &
                         'conserve_volume_flow = .TRUE.'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0449', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -888 +888 @@
        message_string = 'unknown flux input mode: flux_input_mode = "' //      &
                         TRIM( flux_input_mode ) // '"'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0450', 1, 2, 0, 6, 0 )
     ENDIF
 !-- Set flux input mode according to approximation if applicable
@@ -906 +906 @@
        message_string = 'unknown flux output mode: flux_output_mode = "' //    &
                         TRIM( flux_output_mode ) // '"'
-       CALL message( 'check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'check_parameters', 'PA0451', 1, 2, 0, 6, 0 )
     ENDIF
 !-- Set flux output mode according to approximation if applicable