Ignore:
Timestamp:
Mar 26, 2009 3:11:21 PM (12 years ago)
Author:
heinze
Message:

Indentation of the message calls corrected

File:
1 edited

Legend:

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

    r258 r274  
    5353                       0, comm_inter, status, ierr )
    5454    IF ( terminate_coupled_remote > 0 )  THEN
    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 = ',                        &
     55       WRITE( message_string, * ) 'remote model "',                         &
     56                                  TRIM( coupling_mode_remote ),             &
     57                                  '" terminated',                           &
     58                                  '&with terminate_coupled_remote = ',      &
     59                                  terminate_coupled_remote,                 &
     60                                  '&local model  "', TRIM( coupling_mode ), &
     61                                  '" has',                                  &
     62                                  '&terminate_coupled = ',                  &
    6263                                  terminate_coupled
    6364       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.