Ignore:
Timestamp:
Sep 15, 2011 1:58:31 PM (10 years ago)
Author:
raasch
Message:

New:
---

The number of parallel I/O operations can be limited with new mrun-option -w.
(advec_particles, data_output_2d, data_output_3d, header, init_grid, init_pegrid, init_3d_model, modules, palm, parin, write_3d_binary)

Changed:


mrun option -T is obligatory

Errors:


Bugfix: No zero assignments to volume_flow_initial and volume_flow_area in
case of normal restart runs. (init_3d_model)

initialization of u_0, v_0. This is just to avoid access of uninitialized
memory in exchange_horiz_2d, which causes respective error messages
when the Intel thread checker (inspector) is used. (production_e)

Bugfix for ts limitation (prandtl_fluxes)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/palm.f90

    r715 r759  
    44! Current revisions:
    55! -----------------
    6 !
     6! Splitting of parallel I/O, cpu measurement for write_3d_binary and opening
     7! of unit 14 moved to here
    78!
    89! Former revisions:
     
    175176!-- If required, write binary data for restart runs
    176177    IF ( write_binary(1:4) == 'true' )  THEN
    177 !
    178 !--    Write flow field data
    179        CALL write_3d_binary
     178
     179       CALL cpu_log( log_point(22), 'write_3d_binary', 'start' )
     180
     181       CALL check_open( 14 )
     182
     183       DO  i = 0, io_blocks-1
     184          IF ( i == io_group )  THEN
     185!
     186!--          Write flow field data
     187             CALL write_3d_binary
     188          ENDIF
     189#if defined( __parallel )
     190          CALL MPI_BARRIER( comm2d, ierr )
     191#endif
     192       ENDDO
     193
     194       CALL cpu_log( log_point(22), 'write_3d_binary', 'stop' )
     195
    180196!
    181197!--    If required, write particle data
     
    192208!-- unit in routine user_last_actions.
    193209    CALL cpu_log( log_point(4), 'last actions', 'start' )
    194     CALL user_last_actions
    195     IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
     210    DO  i = 0, io_blocks-1
     211       IF ( i == io_group )  THEN
     212          CALL user_last_actions
     213          IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
     214       ENDIF
     215#if defined( __parallel )
     216       CALL MPI_BARRIER( comm2d, ierr )
     217#endif
     218    ENDDO
    196219    CALL close_file( 0 )
    197220    CALL close_dvrp
Note: See TracChangeset for help on using the changeset viewer.