Changeset 4155 for palm/trunk/SOURCE/data_output_3d.f90

Timestamp:

Aug 14, 2019 6:25:18 AM (5 years ago)

Author:

raasch

Message:

bugfix for 3d-output in serial mode (ghost points must not be written)

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for 3d-output in serial mode (ghost points must not be written)
+! 
+! 4127 2019-07-30 14:47:10Z suehring
 ! Adjustment for top boundary index for plant-canopy model outputs 
 ! (merge from branch resler)
@@ -874 +877 @@
 #if defined( __netcdf )
        nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_do3d(av,ivar),        &
-                         local_pf(nxl:nxr+1,nys:nyn+1,nzb_do:nzt_do),        &
-                         start = (/ 1, 1, 1, do3d_time_count(av) /),     &
-                         count = (/ nx+1, ny+1, nzt_do-nzb_do+1, 1 /) )
+                         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 /) )
        CALL netcdf_handle_error( 'data_output_3d', 446 )
 #endif