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

Timestamp:

Jan 7, 2021 7:15:12 AM (4 years ago)

Author:

raasch

Message:

bugfix in redblack algorithm: lower i,j indices need to start alternatively with even or odd value on the coarsest grid level, if the subdomain has an uneven number of gridpoints along x/y; some debug output flushed

File:

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

palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! some debug output flushed
+!
+! 4828 2021-01-05 11:21:41Z Giersch
 ! interface for 3d logical arrays added
 !
@@ -2355 +2358 @@
                                       INT( (iog%nx+1), KIND = rd_offset_kind ) * wp
 
-    write(9,*) 'array_position real3d ',trim(name),' ',array_position
+    IF ( debug_output )  THEN
+       WRITE (9,*) 'array_position real3d ', TRIM( name ), ' ', array_position
+       FLUSH( 9 )
+    ENDIF
 
  END SUBROUTINE wrd_mpi_io_real_3d