Changeset 4383 for palm/trunk/SOURCE

Timestamp:

Jan 22, 2020 10:55:45 AM (4 years ago)

Author:

Giersch

Message:

Error numbers related to closed channel flow revised to prevent double usage

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! 4172 2019-08-20 11:55:33Z oliver.maas
+! Some error numbers revised to prevent double usage
+! 
+! 11:55:33Z oliver.maas
 ! Checks for closed channel flow implemented
 ! 
@@ -515 +518 @@
           symmetry_flag = 1
           message_string = 'Bottom and top boundary are treated equal'
-          CALL message( 'check_parameters', 'PA0676', 0, 0, 0, 6, 0 )
+          CALL message( 'check_parameters', 'PA0699', 0, 0, 0, 6, 0 )
        
           IF ( dz(1) /= dz(COUNT( dz /= -1.0_wp )) .OR.                        &
@@ -521 +524 @@
              WRITE( message_string, * )  'dz should be equal close to the ' // &
                                          'boundaries due to symmetrical problem'
-             CALL message( 'check_parameters', 'PA0313', 1, 2, 0, 6, 0 )
+             CALL message( 'check_parameters', 'PA0700', 1, 2, 0, 6, 0 )
           ENDIF
        
@@ -528 +531 @@
                                          'allowed if a closed channel '//      &
                                          'shall be used'
-             CALL message( 'check_parameters', 'PA0688', 1, 2, 0, 6, 0 )
+             CALL message( 'check_parameters', 'PA0701', 1, 2, 0, 6, 0 )
           ENDIF
        
@@ -534 +537 @@
              WRITE( message_string, * )  'The ocean mode is not allowed if '// &
                                          'a closed channel shall be used'
-             CALL message( 'check_parameters', 'PA0689', 1, 2, 0, 6, 0 )
+             CALL message( 'check_parameters', 'PA0702', 1, 2, 0, 6, 0 )
           ENDIF
        
@@ -542 +545 @@
                                          'upwind scheme of Wicker and ' //     &
                                          'Skamarock as the advection scheme'
-             CALL message( 'check_parameters', 'PA0690', 1, 2, 0, 6, 0 )
+             CALL message( 'check_parameters', 'PA0703', 1, 2, 0, 6, 0 )
           ENDIF
        ENDIF