Changeset 3601 for palm/trunk

Timestamp:

Dec 4, 2018 4:00:04 PM (6 years ago)

Author:

sward

Message:

Added check for missing NAVIGATION_DATA input file

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-! 
+! Added check for missing NAVIGATION_DATA input file
 ! 
 ! Former revisions:
@@ -3036 +3036 @@
        INTEGER(iwp) ::  ioerr         !< IOSTAT flag for IO-commands ( 0 = no error )
 
+       LOGICAL ::  navigation_data_present  !< Flag: check for input file
+
        REAL(wp) ::  zdum  !< dummy for measurement height
        REAL(wp) ::  avg_agt_height = 1.8_wp
@@ -3172 +3174 @@
           DO ii = 0, io_blocks-1
              IF ( ii == io_group )  THEN
+!
+!--             Check for naviation input file and open it
+                INQUIRE( FILE='NAVIGATION_DATA' // TRIM( coupling_char ), EXIST=navigation_data_present )
+                IF ( .NOT. navigation_data_present )  THEN
+                   message_string = 'Input file NAVIGATION_DATA' //                &
+                                     TRIM( coupling_char ) // ' for MAS missing. ' // &
+                                     '&Please run agent_preprocessing before the job to create it.'
+                   CALL message( 'mas_init', 'PA0525', 1, 2, 0, 6, 0 )
+                ENDIF
                 OPEN ( 119, FILE='NAVIGATION_DATA'//TRIM( coupling_char ),     &
                             FORM='UNFORMATTED', IOSTAT=ioerr )