Changeset 773 for palm

Timestamp:

Oct 27, 2011 11:47:37 AM (13 years ago)

Author:

heinze

Message:

Typo in number for error messages

Location:

palm/trunk/SOURCE

Files:

• check_parameters.f90 (modified) (1 diff)
• init_masks.f90 (modified) (1 diff)

palm/trunk/SOURCE/check_parameters.f90

@@ -2565 +2565 @@
              IF ( .NOT. cloud_physics )  THEN
                 message_string = 'output of "' // TRIM( var ) // '" requi' // &
-                         'res cloud_physics = .TRUE. or cloud_droplets = .TRUE.'
-                CALL message( 'check_parameters', 'PA0347', 1, 2, 0, 6, 0 )
+                         'res cloud_physics = .TRUE.'
+                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
              ENDIF
              unit = 'K'

palm/trunk/SOURCE/init_masks.f90

@@ -176 +176 @@
                    WRITE ( message_string, * ) 'output of "', TRIM( var ), &
                         '" requires cloud_physics = .TRUE.'
-                   CALL message( 'init_masks', 'PA0348', 1, 2, 0, 6, 0 )
+                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
                 ENDIF
                 unit = 'K'