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/large_scale_forcing_nudging_mod.f90

    r3045 r3046  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Error messages revised
    2323!
    2424! Former revisions:
     
    735735!--    Check nudging and large scale forcing from external file
    736736       IF ( nudging  .AND.  (  .NOT.  large_scale_forcing ) )  THEN
    737           message_string = 'Nudging requires large_scale_forcing = .T.. '//    &
    738                         'Surface fluxes and geostrophic wind should be '//     &
     737          message_string = 'Nudging requires large_scale_forcing = .T.. &'//   &
     738                        'Surface fluxes and geostrophic wind should be &'//    &
    739739                        'prescribed in file LSF_DATA'
    740740          CALL message( 'check_parameters', 'PA0374', 1, 2, 0, 6, 0 )
     
    743743       IF ( large_scale_forcing  .AND.  ( bc_lr /= 'cyclic'  .OR.              &
    744744                                          bc_ns /= 'cyclic' ) )  THEN
    745           message_string = 'Non-cyclic lateral boundaries do not allow for  '//&
     745          message_string = 'Non-cyclic lateral boundaries do not allow for &'//&
    746746                        'the usage of large scale forcing from external file.'
    747747          CALL message( 'check_parameters', 'PA0375', 1, 2, 0, 6, 0 )
     
    749749
    750750       IF ( large_scale_forcing  .AND.  (  .NOT.  humidity ) )  THEN
    751           message_string = 'The usage of large scale forcing from external  '//&
     751          message_string = 'The usage of large scale forcing from external &'//&
    752752                        'file LSF_DATA requires humidity = .T..'
    753753          CALL message( 'check_parameters', 'PA0376', 1, 2, 0, 6, 0 )
     
    755755
    756756       IF ( large_scale_forcing  .AND.  passive_scalar )  THEN
    757           message_string = 'The usage of large scale forcing from external '// &
     757          message_string = 'The usage of large scale forcing from external &'// &
    758758                        'file LSF_DATA is not implemented for passive scalars'
    759759          CALL message( 'check_parameters', 'PA0440', 1, 2, 0, 6, 0 )
     
    762762       IF ( large_scale_forcing  .AND.  topography /= 'flat'                   &
    763763                              .AND.  .NOT.  lsf_exception )  THEN
    764           message_string = 'The usage of large scale forcing from external  '//&
     764          message_string = 'The usage of large scale forcing from external &'//&
    765765                        'file LSF_DATA is not implemented for non-flat topography'
    766766          CALL message( 'check_parameters', 'PA0377', 1, 2, 0, 6, 0 )
     
    768768
    769769       IF ( large_scale_forcing  .AND.  ocean )  THEN
    770           message_string = 'The usage of large scale forcing from external '// &
     770          message_string = 'The usage of large scale forcing from external &'//&
    771771                        'file LSF_DATA is not implemented for ocean runs'
    772772          CALL message( 'check_parameters', 'PA0378', 1, 2, 0, 6, 0 )
     
    12841284             IF ( ierrn /= 0 )  THEN
    12851285               WRITE ( message_string, * ) 'No time dependent surface ' //     &
    1286                                  'variables in LSF_DATA for end of run found'
     1286                                 'variables in & LSF_DATA for end of run found'
    12871287
    12881288                CALL message( 'ls_forcing', 'PA0363', 1, 2, 0, 6, 0 )
     
    12921292          IF ( time_surf(1) > end_time )  THEN
    12931293             WRITE ( message_string, * ) 'Time dependent surface variables in ' // &
    1294                                          'LSF_DATA set in after end of ' ,         &
     1294                                         '&LSF_DATA set in after end of ' ,        &
    12951295                                         'simulation - lsf_surf is set to FALSE'
    12961296             CALL message( 'ls_forcing', 'PA0371', 0, 0, 0, 6, 0 )
     
    13191319                IF ( ierrn < 0 )  THEN
    13201320                   WRITE( message_string, * ) 'No time dependent vertical profiles',&
    1321                                     ' in LSF_DATA for end of run found'
     1321                                    ' in & LSF_DATA for end of run found'
    13221322                   CALL message( 'ls_forcing', 'PA0372', 1, 2, 0, 6, 0 )
    13231323                ENDIF
Note: See TracChangeset for help on using the changeset viewer.