Changeset 685 for palm


Ignore:
Timestamp:
Feb 9, 2011 6:07:35 PM (14 years ago)
Author:
gryschka
Message:

Error message PA0343 was double

File:
1 edited

Legend:

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

    r681 r685  
    569569        message_string = 'psolver must be called at each RK3 substep when "'//&
    570570                      TRIM(momentum_advec) // ' "is used for momentum_advec'
    571         CALL message( 'check_parameters', 'PA0343', 1, 2, 0, 6, 0 )
     571        CALL message( 'check_parameters', 'PA0344', 1, 2, 0, 6, 0 )
    572572    END IF
    573573!
Note: See TracChangeset for help on using the changeset viewer.