Changeset 4155


Ignore:
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:
1 edited

Legend:

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

    r4127 r4155  
    2525! -----------------
    2626! $Id$
     27! bugfix for 3d-output in serial mode (ghost points must not be written)
     28!
     29! 4127 2019-07-30 14:47:10Z suehring
    2730! Adjustment for top boundary index for plant-canopy model outputs
    2831! (merge from branch resler)
     
    874877#if defined( __netcdf )
    875878       nc_stat = NF90_PUT_VAR( id_set_3d(av), id_var_do3d(av,ivar),        &
    876                          local_pf(nxl:nxr+1,nys:nyn+1,nzb_do:nzt_do),        &
    877                          start = (/ 1, 1, 1, do3d_time_count(av) /),     &
    878                          count = (/ nx+1, ny+1, nzt_do-nzb_do+1, 1 /) )
     879                         local_pf(nxl:nxr,nys:nyn,nzb_do:nzt_do),          &
     880                         start = (/ 1, 1, 1, do3d_time_count(av) /),       &
     881                         count = (/ nx, ny, nzt_do-nzb_do+1, 1 /) )
    879882       CALL netcdf_handle_error( 'data_output_3d', 446 )
    880883#endif
Note: See TracChangeset for help on using the changeset viewer.