Changeset 4162

Timestamp:

Aug 16, 2019 5:54:29 AM (5 years ago)

Author:

raasch

Message:

bugfix for r4155

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for r4155
+! 
+! 4155 2019-08-14 06:25:18Z raasch
 ! bugfix for 3d-output in serial mode (ghost points must not be written)
 ! 
@@ -879 +882 @@
                          local_pf(nxl:nxr,nys:nyn,nzb_do:nzt_do),          &
                          start = (/ 1, 1, 1, do3d_time_count(av) /),       &
-                         count = (/ nx, ny, nzt_do-nzb_do+1, 1 /) )
+                         count = (/ nx+1, ny+1, nzt_do-nzb_do+1, 1 /) )
        CALL netcdf_handle_error( 'data_output_3d', 446 )
 #endif