Ignore:
Timestamp:
Jan 26, 2021 7:24:41 AM (4 years ago)
Author:
raasch
Message:

bugfix: allocation of 3d-int4 array moved from particle output to standard output

File:
1 edited

Legend:

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

    r4832 r4857  
    2525! -----------------
    2626! $Id$
     27! bugfix: allocation of 3d-int4 array moved from particle output to standard output
     28!
     29! 4832 2021-01-07 07:15:12Z raasch
    2730! some debug output flushed
    2831!
     
    41124115       CALL sm_io%sm_allocate_shared( array_3d, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,  &
    41134116                                      sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3dr )
     4117       CALL sm_io%sm_allocate_shared( array_3di4, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
     4118                                      sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di4 )
    41144119#endif
    41154120    ELSE
     
    41174122       ALLOCATE( array_2di(nxl:nxr,nys:nyn) )
    41184123       ALLOCATE( array_3d(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
     4124       ALLOCATE( array_3di4(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
    41194125       sm_io%io_grid = iog
    41204126    ENDIF
     
    42754281    IF ( sm_io%is_sm_active() )  THEN
    42764282#if defined( __parallel )
    4277        CALL sm_io%sm_allocate_shared( array_3di4, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
    4278                                       sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di4 )
    42794283       CALL sm_io%sm_allocate_shared( array_3di8, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
    42804284                                      sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di8 )
    42814285#endif
    42824286    ELSE
    4283        ALLOCATE( array_3di4(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
    42844287       ALLOCATE( array_3di8(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
    42854288
Note: See TracChangeset for help on using the changeset viewer.