Changeset 773 for palm


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/check_parameters.f90

    r772 r773  
    25652565             IF ( .NOT. cloud_physics )  THEN
    25662566                message_string = 'output of "' // TRIM( var ) // '" requi' // &
    2567                          'res cloud_physics = .TRUE. or cloud_droplets = .TRUE.'
    2568                 CALL message( 'check_parameters', 'PA0347', 1, 2, 0, 6, 0 )
     2567                         'res cloud_physics = .TRUE.'
     2568                CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
    25692569             ENDIF
    25702570             unit = 'K'
  • palm/trunk/SOURCE/init_masks.f90

    r772 r773  
    176176                   WRITE ( message_string, * ) 'output of "', TRIM( var ), &
    177177                        '" requires cloud_physics = .TRUE.'
    178                    CALL message( 'init_masks', 'PA0348', 1, 2, 0, 6, 0 )
     178                   CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
    179179                ENDIF
    180180                unit = 'K'
Note: See TracChangeset for help on using the changeset viewer.