Changeset 2851 for palm


Ignore:
Timestamp:
Mar 5, 2018 2:39:31 PM (7 years ago)
Author:
maronga
Message:

bugfix: calculation of output time levels for restart runs (parallel NetCDF)

File:
1 edited

Legend:

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

    r2836 r2851  
    2525! -----------------
    2626! $Id$
     27! Bugfix: calculation of output time levels in case of restart runs (parallel
     28! NetCDF)
     29!
     30! 2836 2018-02-26 13:40:05Z Giersch
    2731! dt_dopr_listing is set to the default value zero
    2832!
     
    36733677       CALL check_dt_do( dt_do2d_yz, 'dt_do2d_yz' )
    36743678
    3675        ntdim_3d(0)    = INT( ( end_time - skip_time_do3d ) / dt_do3d )
     3679       ntdim_3d(0)    = CEILING( ( end_time - skip_time_do3d ) / dt_do3d )
    36763680       IF ( do3d_at_begin ) ntdim_3d(0) = ntdim_3d(0) + 1
    3677        ntdim_3d(1)    = INT( ( end_time - skip_time_data_output_av )           &
     3681       ntdim_3d(1)    = CEILING( ( end_time - skip_time_data_output_av )           &
    36783682                             / dt_data_output_av )
    3679        ntdim_2d_xy(0) = INT( ( end_time - skip_time_do2d_xy ) / dt_do2d_xy )
    3680        ntdim_2d_xz(0) = INT( ( end_time - skip_time_do2d_xz ) / dt_do2d_xz )
    3681        ntdim_2d_yz(0) = INT( ( end_time - skip_time_do2d_yz ) / dt_do2d_yz )
     3683       ntdim_2d_xy(0) = CEILING( ( end_time - skip_time_do2d_xy ) / dt_do2d_xy )
     3684       ntdim_2d_xz(0) = CEILING( ( end_time - skip_time_do2d_xz ) / dt_do2d_xz )
     3685       ntdim_2d_yz(0) = CEILING( ( end_time - skip_time_do2d_yz ) / dt_do2d_yz )
    36823686       IF ( do2d_at_begin )  THEN
    36833687          ntdim_2d_xy(0) = ntdim_2d_xy(0) + 1
Note: See TracChangeset for help on using the changeset viewer.