Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/pmc_interface_mod.f90

    r3022 r3045  
    2525! -----------------
    2626! $Id$
     27! Error messages revised
     28!
     29! 3022 2018-05-18 11:12:35Z suehring
    2730! Minor fix - working precision added to real number
    2831!
     
    41074110       IF ( end_time /= end_time_root )  THEN
    41084111          WRITE( message_string, * )  'mismatch between root model and ',      &
    4109                'child settings &   end_time(root) = ', end_time_root,          &
    4110                ' &   end_time(child) = ', end_time, ' & child value is set',   &
     4112               'child settings: end_time(root) = ', end_time_root,             &
     4113               ' end_time(child) = ', end_time, ' child value is set',         &
    41114114               ' to root value'
    41124115          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41234126       IF ( restart_time /= restart_time_root )  THEN
    41244127          WRITE( message_string, * )  'mismatch between root model and ',      &
    4125                'child settings &   restart_time(root) = ', restart_time_root,  &
    4126                ' &   restart_time(child) = ', restart_time, ' & child ',       &
     4128               'child settings: restart_time(root) = ', restart_time_root,     &
     4129               ' restart_time(child) = ', restart_time, ' child ',             &
    41274130               'value is set to root value'
    41284131          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41394142       IF ( dt_restart /= dt_restart_root )  THEN
    41404143          WRITE( message_string, * )  'mismatch between root model and ',      &
    4141                'child settings &   dt_restart(root) = ', dt_restart_root,      &
    4142                ' &   dt_restart(child) = ', dt_restart, ' & child ',           &
     4144               'child settings: dt_restart(root) = ', dt_restart_root,          &
     4145               ' dt_restart(child) = ', dt_restart, ' child ',                 &
    41434146               'value is set to root value'
    41444147          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
     
    41554158       IF ( time_restart /= time_restart_root )  THEN
    41564159          WRITE( message_string, * )  'mismatch between root model and ',      &
    4157                'child settings &  time_restart(root) = ', time_restart_root,  &
    4158                ' &   time_restart(child) = ', time_restart, ' & child ',       &
     4160               'child settings: time_restart(root) = ', time_restart_root,  &
     4161               ' time_restart(child) = ', time_restart, ' child ',             &
    41594162               'value is set to root value'
    41604163          CALL message( 'pmci_check_setting_mismatches', 'PA0419', 0, 1, 0, 6, &
Note: See TracChangeset for help on using the changeset viewer.