Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r2718 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 2718 2018-01-02 08:49:38Z maronga
    2730! Corrected "Former revisions" section
    2831!
     
    167170
    168171    IF ( terminate_coupled_remote > 0 )  THEN
    169        WRITE( message_string, * ) 'remote model "',                         &
    170                                   TRIM( coupling_mode_remote ),             &
    171                                   '" terminated',                           &
    172                                   '&with terminate_coupled_remote = ',      &
    173                                   terminate_coupled_remote,                 &
    174                                   '&local model  "', TRIM( coupling_mode ), &
    175                                   '" has',                                  &
    176                                   '&terminate_coupled = ',                  &
     172       WRITE( message_string, * ) 'remote model "',                            &
     173                                  TRIM( coupling_mode_remote ),                &
     174                                  '" terminated',                              &
     175                                  ' with terminate_coupled_remote = ',         &
     176                                  terminate_coupled_remote,                    &
     177                                  ' local model  "', TRIM( coupling_mode ),    &
     178                                  '" has',                                     &
     179                                  ' terminate_coupled = ',                     &
    177180                                   terminate_coupled
    178181       CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.