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

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

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

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -167 +170 @@
 
     IF ( terminate_coupled_remote > 0 )  THEN
-       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 = ',                  &
+       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 )