Changeset 1986 for palm


Ignore:
Timestamp:
Aug 10, 2016 2:07:17 PM (8 years ago)
Author:
gronemeier
Message:

Bugfix: check if output can be opened in newly created directory

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/Makefile

    r1976 r1986  
    2020# Current revisions:
    2121# ------------------
    22 #
     22# POSIX-calls module added
    2323#
    2424# Former revisions:
     
    326326        pmc_child_mod.f90 pmc_general_mod.f90 pmc_handle_communicator_mod.f90 \
    327327        pmc_mpi_wrapper_mod.f90 pmc_parent_mod.f90 poisfft_mod.f90 poismg_mod.f90 \
    328         poismg_noopt.f90 pres.f90 print_1d.f90 production_e.f90 \
     328        poismg_noopt.f90 posix_calls_from_fortran.f90 pres.f90 print_1d.f90 production_e.f90 \
    329329        prognostic_equations.f90 progress_bar_mod.f90 radiation_model_mod.f90 \
    330330        random_function_mod.f90 random_gauss.f90 random_generator_parallel_mod.f90 \
     
    408408calc_radiation.o: modules.o mod_kinds.o
    409409check_for_restart.o: modules.o mod_kinds.o pmc_interface_mod.o
    410 check_open.o: modules.o mod_kinds.o mod_particle_attributes.o netcdf_interface_mod.o
     410check_open.o: modules.o mod_kinds.o mod_particle_attributes.o \
     411        netcdf_interface_mod.o posix_calls_from_fortran.o
    411412check_parameters.o: modules.o mod_kinds.o land_surface_model_mod.o \
    412413        netcdf_interface_mod.o plant_canopy_model_mod.o pmc_interface_mod.o radiation_model_mod.o \
     
    529530poismg_mod.o: modules.o cpulog_mod.o mod_kinds.o
    530531poismg_noopt.o: modules.o cpulog_mod.o mod_kinds.o
     532posix_calls_from_fortran.o: posix_calls_from_fortran.f90
    531533pres.o: modules.o cpulog_mod.o mod_kinds.o poisfft_mod.o poismg_mod.o pmc_interface_mod.o
    532534print_1d.o: modules.o cpulog_mod.o mod_kinds.o
  • palm/trunk/SOURCE/check_open.f90

    r1975 r1986  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Bugfix: check if output can be opened in newly created directory. If not
     22! wait one second and try again.
    2223!
    2324! Former revisions:
     
    146147    USE pegrid
    147148
     149    USE posix_calls_from_fortran,                                              &
     150        ONLY:  fortran_sleep
     151
    148152    USE profil_parameter,                                                      &
    149153        ONLY:  cross_ts_numbers, cross_ts_number_count
     
    175179    INTEGER(iwp) ::  i           !<
    176180    INTEGER(iwp) ::  iaddres     !<
     181    INTEGER(iwp) ::  ioerr       !< IOSTAT flag for IO-commands ( 0 = no error )
    177182    INTEGER(iwp) ::  iusern      !<
    178183    INTEGER(iwp) ::  j           !<
     
    327332             CALL MPI_BARRIER( comm2d, ierr )
    328333#endif
    329              OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char,    &
    330                         FORM='UNFORMATTED' )
     334             ioerr = 1
     335             DO WHILE ( ioerr /= 0 )
     336                OPEN ( 14, FILE='BINOUT'//TRIM(coupling_char)//'/'//myid_char, &
     337                           FORM='UNFORMATTED', IOSTAT=ioerr )
     338                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     339             ENDDO
     340
    331341          ENDIF
    332342
     
    370380             CALL MPI_BARRIER( comm2d, ierr )
    371381#endif
    372              OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/'//          &
    373                         myid_char, FORM='UNFORMATTED', POSITION='APPEND' )
     382             ioerr = 1
     383             DO WHILE ( ioerr /= 0 )
     384                OPEN ( 20, FILE='DATA_LOG'//TRIM( coupling_char )//'/'//       &
     385                           myid_char, FORM='UNFORMATTED', POSITION='APPEND',   &
     386                           IOSTAT=ioerr )
     387                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     388             ENDDO
     389
    374390          ENDIF
    375391
     
    614630             CALL MPI_BARRIER( comm2d, ierr )
    615631#endif
    616              OPEN ( 85, FILE='PARTICLE_DATA'//TRIM( coupling_char )//'/'//     &
    617                         myid_char,                                             &
    618                         FORM='UNFORMATTED', POSITION='APPEND' )
     632             ioerr = 1
     633             DO WHILE ( ioerr /= 0 )
     634                OPEN ( 85, FILE='PARTICLE_DATA'//TRIM( coupling_char )//'/'//  &
     635                           myid_char,                                          &
     636                           FORM='UNFORMATTED', POSITION='APPEND', IOSTAT=ioerr )
     637                IF ( ioerr /= 0 )  CALL fortran_sleep( 1 )
     638             ENDDO
     639
    619640          ENDIF
    620641
Note: See TracChangeset for help on using the changeset viewer.