Ignore:
Timestamp:
Mar 13, 2009 12:36:03 PM (12 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine.

File:
1 edited

Legend:

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

    r226 r258  
    22
    33!------------------------------------------------------------------------------!
    4 ! Actual revisions:
     4! Current revisions:
    55! -----------------
    6 !
     6! Output of messages replaced by message handling routine.
     7!
    78!
    89! Former revisions:
     
    5253                       0, comm_inter, status, ierr )
    5354    IF ( terminate_coupled_remote > 0 )  THEN
    54        IF ( myid == 0 )  THEN
    55           PRINT*, '+++ surface_coupler:'
    56           PRINT*, '    remote model "', TRIM( coupling_mode_remote ), &
    57                '" terminated'
    58           PRINT*, '    with terminate_coupled_remote = ', &
    59                terminate_coupled_remote
    60           PRINT*, '    local model  "', TRIM( coupling_mode ), &
    61                '" has'
    62           PRINT*, '    terminate_coupled = ', &
    63                terminate_coupled
    64        ENDIF
    65        CALL local_stop
     55       WRITE( message_string, * ) 'remote model "', TRIM( coupling_mode_remote ), &
     56                                  '" terminated',                                 &
     57                                  '&with terminate_coupled_remote = ',            &
     58                                  terminate_coupled_remote,                       &
     59                                  '&local model  "', TRIM( coupling_mode ),       &
     60                                  '" has',                                        &
     61                                  '&terminate_coupled = ',                        &
     62                                  terminate_coupled
     63       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
    6664       RETURN
    6765    ENDIF
Note: See TracChangeset for help on using the changeset viewer.