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

Timestamp:

May 29, 2018 8:02:15 AM (6 years ago)

Author:

Giersch

Message:

Remaining error messages revised, comments extended

File:

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

palm/trunk/SOURCE/surface_coupler.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -173 +173 @@
                                   TRIM( coupling_mode_remote ),                &
                                   '" terminated',                              &
-                                  ' with terminate_coupled_remote = ',         &
+                                  '&with terminate_coupled_remote = ',         &
                                   terminate_coupled_remote,                    &
-                                  ' local model  "', TRIM( coupling_mode ),    &
+                                  '&local model  "', TRIM( coupling_mode ),    &
                                   '" has',                                     &
-                                  ' terminate_coupled = ',                     &
+                                  '&terminate_coupled = ',                     &
                                    terminate_coupled
        CALL message( 'surface_coupler', 'PA0310', 1, 2, 0, 6, 0 )