Changeset 258 for palm/trunk/SOURCE/surface_coupler.f90

Timestamp:

Mar 13, 2009 12:36:03 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
-! 
+! Output of messages replaced by message handling routine.
+!
 !
 ! Former revisions:
@@ -52 +53 @@
                        0, comm_inter, status, ierr )
     IF ( terminate_coupled_remote > 0 )  THEN
-       IF ( myid == 0 )  THEN
-          PRINT*, '+++ surface_coupler:'
-          PRINT*, '    remote model "', TRIM( coupling_mode_remote ), &
-               '" terminated'
-          PRINT*, '    with terminate_coupled_remote = ', &
-               terminate_coupled_remote
-          PRINT*, '    local model  "', TRIM( coupling_mode ), &
-               '" has'
-          PRINT*, '    terminate_coupled = ', &
-               terminate_coupled
-       ENDIF
-       CALL local_stop
+       WRITE( message_string, * ) 'remote model "', TRIM( coupling_mode_remote ), &
+                                  '" terminated',                                 &
+                                  '&with terminate_coupled_remote = ',            &
+                                  terminate_coupled_remote,                       &
+                                  '&local model  "', TRIM( coupling_mode ),       &
+                                  '" has',                                        &
+                                  '&terminate_coupled = ',                        &
+                                  terminate_coupled
+       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
        RETURN
     ENDIF