Changeset 3208 for palm/trunk/UTIL
- Timestamp:
- Aug 27, 2018 1:10:50 PM (6 years ago)
- Location:
- palm/trunk/UTIL
- Files:
-
- 1 deleted
- 1 edited
- 1 copied
- 1 moved
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/Makefile_utilities
r2718 r3208 23 23 # ----------------- 24 24 # $Id$ 25 # Added make directive for agent_preprocessing tool 26 # 27 # 2718 2018-01-02 08:49:38Z maronga 25 28 # Corrected "Former revisions" section 26 29 # … … 50 53 PROG1 = combine_plot_fields.x 51 54 PROG2 = compare_palm_logs.x 55 PROG3 = agent_preprocessing 52 56 53 57 OBJS1 = combine_plot_fields.o 54 58 OBJS2 = compare_palm_logs.o 59 OBJS3 = agent_preprocessing.o 55 60 56 61 CC = cc -
palm/trunk/UTIL/agent_preprocessing/agent_preprocessing.f90
r3207 r3208 1 !> @ nav_mesh.f901 !> @agent_preprocessing.f90 2 2 !------------------------------------------------------------------------------! 3 3 ! This file is part of the PALM model system. … … 25 25 ! -----------------! 26 26 ! $Id$ 27 ! Renamed nav_mesh to agent_preprocessing, adapted terminal output 28 ! 29 ! 3198 2018-08-15 09:23:10Z sward 27 30 ! Reduced tolerance_dp to 3 entries, fixed its initialization 28 31 ! … … 507 510 508 511 nc_stat = NF90_OPEN( filename, NF90_NOWRITE, id ) 509 WRITE(*,'(A,X,A)') 'Reading from file', filename510 512 511 513 CALL handle_error( 'open_read_file', 536 ) … … 1253 1255 "o----------------------------------------------o", & 1254 1256 "| o------------------------------------------o |", & 1255 "| | o o o o o | |", & 1256 "| | |\ | |\ /| | | |", & 1257 "| | | \ | oo o o | o | o-o o-o o--o | |", & 1258 "| | | \| | | \ / | | |-o \ | | | |", & 1259 "| | o o o-o- o o o o-o o-o o o | |", & 1257 "| | __ ____ ____ ____ | |", & 1258 "| | / _\ ( _ \(_ _) ___ ( _ \ | |", & 1259 "| | / \ ) __/ )( (___) ) __/ | |", & 1260 "| | \_/\_/(__) (__) (__) | |", & 1260 1261 "| | | |", & 1261 "| | Starting NavMesh-tool for PALM| |", &1262 "| | Agent Preprocessing Tool for PALM | |", & 1262 1263 "| o------------------------------------------o |", & 1263 1264 "o----------------------------------------------o" 1264 ! 1265 !-- Remove module files 1266 CALL SYSTEM('rm -f *.mod') 1267 WRITE(*,'((/,X,A,/))') 'Looking for input files' 1265 1268 1266 ! 1269 1267 !-- Identify run name and Input files … … 1272 1270 ie = INDEX(dirname, '/', BACK=.TRUE.) 1273 1271 is = INDEX(dirname(1:ie-1), '/', BACK=.TRUE.) 1272 IF ( TRIM(ADJUSTL(dirname(ie+1:))) /= 'INPUT' ) THEN 1273 WRITE(*,'(3X,A)') 'NavMesh was called from', & 1274 ' ', TRIM(ADJUSTL(dirname)), ' ', & 1275 'and is now aborting. Please call this tool', & 1276 'from the INPUT-folder of your job directory.' 1277 STOP 1278 ENDIF 1274 1279 runname = TRIM(ADJUSTL(dirname(is+1:ie-1))) 1275 1280 rundir = TRIM(ADJUSTL(dirname(1:ie))) 1276 1281 input_trunk = TRIM(rundir)//'INPUT/'//TRIM(runname) 1282 1277 1283 ! 1278 1284 !-- Check for parameter file
Note: See TracChangeset
for help on using the changeset viewer.