Changeset 2274 for palm/trunk/SOURCE/init_grid.f90

Timestamp:

Jun 9, 2017 1:27:48 PM (6 years ago)

Author:

Giersch

Message:

Changed error messages

File:

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

palm/trunk/SOURCE/init_grid.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Changed error messages
+! 
+! 2233 2017-05-30 18:08:54Z suehring
 !
 ! 2232 2017-05-30 17:47:52Z suehring
@@ -726 +729 @@
                tunnel_width_y == 9999999.9_wp  )  THEN
              message_string = 'No tunnel width is given. '
-             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+             CALL message( 'init_grid', 'PA0280', 1, 2, 0, 6, 0 )
           ENDIF
           IF ( tunnel_width_x /= 9999999.9_wp  .AND.                           &
@@ -733 +736 @@
                               'tunnel can only be oriented' //                 &
                               'either in x- or in y-direction.'
-             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+             CALL message( 'init_grid', 'PA0281', 1, 2, 0, 6, 0 )
           ENDIF
 !
@@ -740 +743 @@
              IF ( tunnel_width_x > ( nx + 1 ) * dx )  THEN
                 message_string = 'Tunnel width too large'
-                CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+                CALL message( 'init_grid', 'PA0282', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -758 +761 @@
                tunnel_width_x - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dx )  THEN
              message_string = 'Tunnel width too small'
-             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+             CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 )
           ENDIF
           IF ( tunnel_width_y /= 9999999.9_wp  .AND.                           &
                tunnel_width_y - 2.0_wp * tunnel_wall_depth <= 2.0_wp * dy )  THEN
              message_string = 'Tunnel width too small'
-             CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+             CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 )
           ENDIF
 !
@@ -770 +773 @@
              IF ( tunnel_width_y > ( ny + 1 ) * dy )  THEN
                 message_string = 'Tunnel width too large'
-                CALL message( 'init_grid', 'PA0207', 1, 2, 0, 6, 0 )
+                CALL message( 'init_grid', 'PA0456', 1, 2, 0, 6, 0 )
              ENDIF
 
@@ -910 +913 @@
                       message_string = 'NetCDF attribute lod ' //              &
                                        '(level of detail) is not set properly.'
-                      CALL message( 'init_grid', 'PA0208', 1, 2, 0, 6, 0 ) !Error number still need to be set properly 
+                      CALL message( 'init_grid', 'PA0457', 1, 2, 0, 6, 0 )
                    ENDIF
 !