Changeset 3208 for palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90

Timestamp:

Aug 27, 2018 1:10:50 PM (6 years ago)

Author:

sward

Message:

Renamed nav_mesh to agent_preprocessing and added it to palmbuild

Location:

palm/trunk/UTIL/agent_preprocessing

Files:

• . (moved) (moved from palm/trunk/UTIL/nav_mesh)
• agent_preprocessing.f90 (copied) (copied from palm/trunk/UTIL/nav_mesh/nav_mesh.f90) (5 diffs)

palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90

@@ -1 @@
-!> @nav_mesh.f90
+!> @agent_preprocessing.f90
 !------------------------------------------------------------------------------!
 ! This file is part of the PALM model system.
@@ -25 +25 @@
 ! -----------------!
 ! $Id$
+! Renamed nav_mesh to agent_preprocessing, adapted terminal output
+! 
+! 3198 2018-08-15 09:23:10Z sward
 ! Reduced tolerance_dp to 3 entries, fixed its initialization
 ! 
@@ -507 +510 @@
 
        nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id )
-       WRITE(*,'(A,X,A)') 'Reading from file', filename
 
        CALL handle_error( 'open_read_file', 536 )
@@ -1253 +1255 @@
                  "o----------------------------------------------o",           &
                  "| o------------------------------------------o |",           &
-                 "| |    o   o           o   o         o       | |",           &
-                 "| |    |\  |           |\ /|         |       | |",           &
-                 "| |    | \ |  oo o   o | o | o-o o-o o--o    | |",           &
-                 "| |    |  \| | |  \ /  |   | |-o  \  |  |    | |",           &
-                 "| |    o   o o-o-  o   o   o o-o o-o o  o    | |",           &
+                 "| |         __   ____  ____       ____       | |",           &
+                 "| |        / _\ (  _ \(_  _) ___ (  _ \      | |",           &
+                 "| |       /    \ ) __/  )(  (___) ) __/      | |",           &
+                 "| |       \_/\_/(__)   (__)      (__)        | |",           &
                  "| |                                          | |",           &
-                 "| |      Starting NavMesh-tool for PALM      | |",           &
+                 "| |    Agent Preprocessing Tool for PALM     | |",           &
                  "| o------------------------------------------o |",           &
                  "o----------------------------------------------o"
-!
-!--    Remove module files
-       CALL SYSTEM('rm -f *.mod')
-       WRITE(*,'((/,X,A,/))') 'Looking for input files'
+
 !
 !--    Identify run name and Input files
@@ -1272 +1270 @@
        ie = INDEX(dirname, '/', BACK=.TRUE.)
        is = INDEX(dirname(1:ie-1), '/', BACK=.TRUE.)
+       IF ( TRIM(ADJUSTL(dirname(ie+1:))) /= 'INPUT' ) THEN
+          WRITE(*,'(3X,A)') 'NavMesh was called from',                         &
+                            ' ', TRIM(ADJUSTL(dirname)), ' ',                  &
+                            'and is now aborting. Please call this tool',      &
+                            'from the INPUT-folder of your job directory.'
+          STOP
+       ENDIF
        runname = TRIM(ADJUSTL(dirname(is+1:ie-1)))
        rundir  = TRIM(ADJUSTL(dirname(1:ie)))
        input_trunk = TRIM(rundir)//'INPUT/'//TRIM(runname)
+
 !
 !--    Check for parameter file