Changeset 4857 for palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

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:

• palm/trunk/SOURCE/restart_data_mpi_io_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: allocation of 3d-int4 array moved from particle output to standard output
+!
+! 4832 2021-01-07 07:15:12Z raasch
 ! some debug output flushed
 !
@@ -4112 +4115 @@
        CALL sm_io%sm_allocate_shared( array_3d, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,  &
                                       sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3dr )
+       CALL sm_io%sm_allocate_shared( array_3di4, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
+                                      sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di4 )
 #endif
     ELSE
@@ -4117 +4122 @@
        ALLOCATE( array_2di(nxl:nxr,nys:nyn) )
        ALLOCATE( array_3d(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
+       ALLOCATE( array_3di4(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
        sm_io%io_grid = iog
     ENDIF
@@ -4275 +4281 @@
     IF ( sm_io%is_sm_active() )  THEN
 #if defined( __parallel )
-       CALL sm_io%sm_allocate_shared( array_3di4, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
-                                      sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di4 )
        CALL sm_io%sm_allocate_shared( array_3di8, nzb, nzt+1, sm_io%io_grid%nxl, sm_io%io_grid%nxr,&
                                       sm_io%io_grid%nys, sm_io%io_grid%nyn, win_3di8 )
 #endif
     ELSE
-       ALLOCATE( array_3di4(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )
        ALLOCATE( array_3di8(nzb:nzt+1,iog%nxl:iog%nxr,iog%nys:iog%nyn) )