Changeset 3967


Ignore:
Timestamp:
May 9, 2019 4:04:34 PM (2 years ago)
Author:
gronemeier
Message:

Save binary data of virtual measurements within separate folder

Location:
palm/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SCRIPTS/.palm.iofiles

    r3965 r3967  
    6363SURFACE_DATA_AV_NETCDF*    out:tr   *         $base_data/$run_identifier/OUTPUT         _av_surf   nc
    6464#
    65 VIRTUAL_MEAS_BIN*          out   *            $base_data/$run_identifier/OUTPUT         _vmeas     bin
     65VIRTUAL_MEAS_BIN*          out:lnpe *         $base_data/$run_identifier/OUTPUT         _vmeas
    6666#
    6767DATA_1D_FL_NETCDF*         out:tr   *         $base_data/$run_identifier/OUTPUT         _fl        nc
  • palm/trunk/SOURCE/check_open.f90

    r3812 r3967  
    2525! -----------------
    2626! $Id$
     27! Save binary data of virtual measurements within separate folder
     28!
     29! 3812 2019-03-25 07:10:12Z gronemeier
    2730! Open binary surface output data within separate folder
    2831!
     
    538541!
    539542!--       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
    542572
    543573       CASE ( 30 )
Note: See TracChangeset for help on using the changeset viewer.