- Timestamp:
- May 9, 2019 4:04:34 PM (6 years ago)
- Location:
- palm/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SCRIPTS/.palm.iofiles
r3965 r3967 63 63 SURFACE_DATA_AV_NETCDF* out:tr * $base_data/$run_identifier/OUTPUT _av_surf nc 64 64 # 65 VIRTUAL_MEAS_BIN* out * $base_data/$run_identifier/OUTPUT _vmeas bin65 VIRTUAL_MEAS_BIN* out:lnpe * $base_data/$run_identifier/OUTPUT _vmeas 66 66 # 67 67 DATA_1D_FL_NETCDF* out:tr * $base_data/$run_identifier/OUTPUT _fl nc -
palm/trunk/SOURCE/check_open.f90
r3812 r3967 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Save binary data of virtual measurements within separate folder 28 ! 29 ! 3812 2019-03-25 07:10:12Z gronemeier 27 30 ! Open binary surface output data within separate folder 28 31 ! … … 538 541 ! 539 542 !-- Binary files for virtual measurement data 540 OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM( coupling_char )//myid_char,& 541 FORM='UNFORMATTED', POSITION='APPEND' ) 543 IF ( myid_char == '' ) THEN 544 OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM( coupling_char )// & 545 myid_char, FORM='UNFORMATTED', POSITION='APPEND' ) 546 ELSE 547 548 IF ( myid == 0 .AND. .NOT. openfile(file_id)%opened_before ) THEN 549 CALL local_system( 'mkdir VIRTUAL_MEAS_BIN' // & 550 TRIM( coupling_char ) ) 551 ENDIF 552 #if defined( __parallel ) 553 ! 554 !-- Set a barrier in order to allow that all other processors in the 555 !-- directory created by PE0 can open their file 556 CALL MPI_BARRIER( comm2d, ierr ) 557 #endif 558 ioerr = 1 559 DO WHILE ( ioerr /= 0 ) 560 OPEN ( 27, FILE='VIRTUAL_MEAS_BIN'//TRIM(coupling_char)// & 561 '/'//myid_char, & 562 FORM='UNFORMATTED', IOSTAT=ioerr ) 563 IF ( ioerr /= 0 ) THEN 564 WRITE( 9, * ) '*** could not open "VIRTUAL_MEAS_BIN'// & 565 TRIM(coupling_char)//'/'//myid_char// & 566 '"! Trying again in 1 sec.' 567 CALL fortran_sleep( 1 ) 568 ENDIF 569 ENDDO 570 571 ENDIF 542 572 543 573 CASE ( 30 )
Note: See TracChangeset
for help on using the changeset viewer.