Changeset 257 for palm/trunk/SOURCE/plant_canopy_model.f90

Timestamp:

Mar 11, 2009 3:17:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine

File:

• palm/trunk/SOURCE/plant_canopy_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/plant_canopy_model.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Bugfix: remove IF statement in plant_canopy_model_ij
@@ -187 +188 @@
           CASE DEFAULT
 
-             IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
-                                      component
-             CALL local_stop
+             WRITE( message_string, * ) 'wrong component: ', component
+             CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 ) 
 
        END SELECT
@@ -324 +324 @@
        CASE DEFAULT
 
-          IF ( myid == 0 )  PRINT*,'+++ pcm:  wrong component: ', &
-                                      component
-          CALL local_stop
+          WRITE( message_string, * ) 'wrong component: ', component
+          CALL message( 'plant_canopy_model', 'PA0279', 1, 2, 0, 6, 0 ) 
 
        END SELECT