Changeset 1402 for palm/trunk/SOURCE/parin.f90
- Timestamp:
- May 9, 2014 2:25:13 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/parin.f90
r1385 r1402 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! location messages modified, batch_job included in envpar-NAMELIST 23 23 ! 24 24 ! Former revisions: … … 245 245 ONLY: cross_profiles, cross_ts_uymax, cross_ts_uymin, & 246 246 profile_columns, profile_rows 247 248 USE progress_bar, & 249 ONLY : batch_job 247 250 248 251 USE statistics, & … … 333 336 334 337 335 NAMELIST /envpar/ host, local_dvrserver_running, maximum_cpu_time_allowed,&336 maximum_ parallel_io_streams, revision, return_addres, &337 re turn_username, run_identifier, tasks_per_node, &338 write_binary338 NAMELIST /envpar/ batch_job, host, local_dvrserver_running, & 339 maximum_cpu_time_allowed, maximum_parallel_io_streams, & 340 revision, return_addres, return_username, & 341 run_identifier, tasks_per_node, write_binary 339 342 340 343 ! 341 344 !-- First read values of environment variables (this NAMELIST file is 342 345 !-- generated by mrun) 343 CALL location_message( 'reading environment parameters from ENVPAR' )346 CALL location_message( 'reading environment parameters from ENVPAR', .FALSE. ) 344 347 OPEN ( 90, FILE='ENVPAR', STATUS='OLD', FORM='FORMATTED', ERR=30 ) 345 348 READ ( 90, envpar, ERR=31, END=32 ) 346 349 CLOSE ( 90 ) 347 CALL location_message( 'finished' )350 CALL location_message( 'finished', .TRUE. ) 348 351 349 352 ! … … 368 371 io_group = MOD( myid+1, io_blocks ) 369 372 370 CALL location_message( 'reading NAMELIST parameters from PARIN' )373 CALL location_message( 'reading NAMELIST parameters from PARIN', .FALSE. ) 371 374 ! 372 375 !-- Data is read in parallel by groups of PEs … … 487 490 ENDDO 488 491 489 CALL location_message( 'finished' )492 CALL location_message( 'finished', .TRUE. ) 490 493 491 494 RETURN
Note: See TracChangeset
for help on using the changeset viewer.