Changeset 3046 for palm/trunk/SOURCE/vertical_nesting_mod.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/vertical_nesting_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/vertical_nesting_mod.f90

@@ -21 +21 @@
 ! Current revisions:
 ! -----------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -283 +283 @@
                 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( 'vnest_init_fine', 'PA0310', 1, 2, 0, 6, 0 )
@@ -2783 +2783 @@
                 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( 'vnest_anterpolate', 'PA0310', 1, 2, 0, 6, 0 )
@@ -3331 +3331 @@
                 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( 'vnest_anterpolate_e', 'PA0310', 1, 2, 0, 6, 0 )