Changeset 226 for palm/trunk/SOURCE/init_cloud_physics.f90

Timestamp:

Feb 2, 2009 7:39:34 AM (15 years ago)

Author:

raasch

Message:

preparations for the next release

File:

• palm/trunk/SOURCE/init_cloud_physics.f90 (modified) (2 diffs)

palm/trunk/SOURCE/init_cloud_physics.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: abort in case that absolute temperature is below zero
+! 
 !
 ! Former revisions:
 ! ------------------
 ! $Id$
+!
+! 221 2009-01-12 15:32:23Z raasch
+! Bugfix: abort in case that absolute temperature is below zero
 !
 ! 95 2007-06-02 16:48:38Z raasch
@@ -67 +70 @@
           WRITE( message_string, * )  'absolute temperature < 0.0 at zu(', k, &
                                       ') = ', zu(k)
-          CALL handle_palm_message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, &
-                                    0 )
+          CALL message( 'init_cloud_physics', 'PA0142', 1, 2, 0, 6, 0 )
        ENDIF
        hyp(k)    = surface_pressure * 100.0 * &