Ignore:
Timestamp:
Feb 2, 2009 7:39:34 AM (13 years ago)
Author:
raasch
Message:

preparations for the next release

File:
1 edited

Legend:

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

    r221 r226  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: abort in case that absolute temperature is below zero
     6!
    77!
    88! Former revisions:
    99! ------------------
    1010! $Id$
     11!
     12! 221 2009-01-12 15:32:23Z raasch
     13! Bugfix: abort in case that absolute temperature is below zero
    1114!
    1215! 95 2007-06-02 16:48:38Z raasch
     
    6770          WRITE( message_string, * )  'absolute temperature < 0.0 at zu(', k, &
    6871                                      ') = ', zu(k)
    69           CALL handle_palm_message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, &
    70                                     0 )
     72          CALL message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, 0 )
    7173       ENDIF
    7274       hyp(k)    = surface_pressure * 100.0 * &
Note: See TracChangeset for help on using the changeset viewer.