Changeset 3601 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 4, 2018 4:00:04 PM (3 years ago)
Author:
sward
Message:

Added check for missing NAVIGATION_DATA input file

File:
1 edited

Legend:

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

    r3593 r3601  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Added check for missing NAVIGATION_DATA input file
    2323!
    2424! Former revisions:
     
    30363036       INTEGER(iwp) ::  ioerr         !< IOSTAT flag for IO-commands ( 0 = no error )
    30373037
     3038       LOGICAL ::  navigation_data_present  !< Flag: check for input file
     3039
    30383040       REAL(wp) ::  zdum  !< dummy for measurement height
    30393041       REAL(wp) ::  avg_agt_height = 1.8_wp
     
    31723174          DO ii = 0, io_blocks-1
    31733175             IF ( ii == io_group )  THEN
     3176!
     3177!--             Check for naviation input file and open it
     3178                INQUIRE( FILE='NAVIGATION_DATA' // TRIM( coupling_char ), EXIST=navigation_data_present )
     3179                IF ( .NOT. navigation_data_present )  THEN
     3180                   message_string = 'Input file NAVIGATION_DATA' //                &
     3181                                     TRIM( coupling_char ) // ' for MAS missing. ' // &
     3182                                     '&Please run agent_preprocessing before the job to create it.'
     3183                   CALL message( 'mas_init', 'PA0525', 1, 2, 0, 6, 0 )
     3184                ENDIF
    31743185                OPEN ( 119, FILE='NAVIGATION_DATA'//TRIM( coupling_char ),     &
    31753186                            FORM='UNFORMATTED', IOSTAT=ioerr )
Note: See TracChangeset for help on using the changeset viewer.