- Timestamp:
- Mar 5, 2018 2:39:31 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_parameters.f90
r2836 r2851 25 25 ! ----------------- 26 26 ! $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 27 31 ! dt_dopr_listing is set to the default value zero 28 32 ! … … 3673 3677 CALL check_dt_do( dt_do2d_yz, 'dt_do2d_yz' ) 3674 3678 3675 ntdim_3d(0) = INT( ( end_time - skip_time_do3d ) / dt_do3d )3679 ntdim_3d(0) = CEILING( ( end_time - skip_time_do3d ) / dt_do3d ) 3676 3680 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 ) & 3678 3682 / 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 ) 3682 3686 IF ( do2d_at_begin ) THEN 3683 3687 ntdim_2d_xy(0) = ntdim_2d_xy(0) + 1
Note: See TracChangeset
for help on using the changeset viewer.