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

palm/trunk/SOURCE/pmc_interface_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error messages revised
+! 
+! 3022 2018-05-18 11:12:35Z suehring
 ! Minor fix - working precision added to real number
 ! 
@@ -4107 +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, &
@@ -4123 +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, &
@@ -4139 +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, &
@@ -4155 +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, &