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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Error messages revised
 ! 
 ! Former revisions:
@@ -4110 +4110 @@
        IF ( end_time /= end_time_root )  THEN
           WRITE( message_string, * )  'mismatch between root model and ',      &
-               'child settings: end_time(root) = ', end_time_root,             &
-               ' end_time(child) = ', end_time, ' child value is set',         &
+               'child settings:& end_time(root) = ', end_time_root,            &
+               '& end_time(child) = ', end_time, '& child value is set',       &
                ' to root value'
           CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
@@ -4126 +4126 @@
        IF ( restart_time /= restart_time_root )  THEN
           WRITE( message_string, * )  'mismatch between root model and ',      &
-               'child settings: restart_time(root) = ', restart_time_root,     &
-               ' restart_time(child) = ', restart_time, ' child ',             &
+               'child settings: & restart_time(root) = ', restart_time_root,   &
+               '& restart_time(child) = ', restart_time, '& child ',           &
                'value is set to root value'
           CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
@@ -4142 +4142 @@
        IF ( dt_restart /= dt_restart_root )  THEN
           WRITE( message_string, * )  'mismatch between root model and ',      &
-               'child settings: dt_restart(root) = ', dt_restart_root,          &
-               ' dt_restart(child) = ', dt_restart, ' child ',                 &
+               'child settings: & dt_restart(root) = ', dt_restart_root,       &
+               '& dt_restart(child) = ', dt_restart, '& child ',               &
                'value is set to root value'
           CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
@@ -4158 +4158 @@
        IF ( time_restart /= time_restart_root )  THEN
           WRITE( message_string, * )  'mismatch between root model and ',      &
-               'child settings: time_restart(root) = ', time_restart_root,  &
-               ' time_restart(child) = ', time_restart, ' child ',             &
+               'child settings: & time_restart(root) = ', time_restart_root,   &
+               '& time_restart(child) = ', time_restart, '& child ',           &
                'value is set to root value'
           CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &