Ignore:
Timestamp:
May 29, 2018 8:02:15 AM (3 years ago)
Author:
Giersch
Message:

Remaining error messages revised, comments extended

File:
1 edited

Legend:

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

    r3045 r3046  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    465465            ntdim_2d_xy(av) )  THEN
    466466          WRITE ( message_string, * ) 'Output of xy cross-sections is not ',   &
    467                           'given at t=', simulated_time, ' because the',       &
     467                          'given at t=', simulated_time, '&because the',       &
    468468                          ' maximum number of output time levels is exceeded.'
    469469          CALL message( 'data_output_2d', 'PA0384', 0, 1, 0, 6, 0 )
     
    474474            ntdim_2d_xz(av) )  THEN
    475475          WRITE ( message_string, * ) 'Output of xz cross-sections is not ',   &
    476                           'given at t=', simulated_time, ' because the',       &
     476                          'given at t=', simulated_time, '&because the',       &
    477477                          ' maximum number of output time levels is exceeded.'
    478478          CALL message( 'data_output_2d', 'PA0385', 0, 1, 0, 6, 0 )
     
    483483            ntdim_2d_yz(av) )  THEN
    484484          WRITE ( message_string, * ) 'Output of yz cross-sections is not ',   &
    485                           'given at t=', simulated_time, ' because the',       &
     485                          'given at t=', simulated_time, '&because the',       &
    486486                          ' maximum number of output time levels is exceeded.'
    487487          CALL message( 'data_output_2d', 'PA0386', 0, 1, 0, 6, 0 )
Note: See TracChangeset for help on using the changeset viewer.