Ignore:
Timestamp:
Apr 12, 2018 4:04:03 PM (3 years ago)
Author:
Giersch
Message:

Bugfix in the calculation of fixed number of output time levels for parallel netcdf output, error message related to reading sky view factors revised

File:
1 edited

Legend:

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

    r2932 r2964  
    2525! -----------------
    2626! $Id$
     27! Calculation of fixed number of output time levels for parallel netcdf output
     28! has been moved completely to check_parameters
     29!
     30! 2932 2018-03-26 09:39:22Z maronga
    2731! Renamed inipar to initialization_parameters.
    2832!
     
    18301834          IF ( netcdf_data_format > 4 )  THEN
    18311835!
    1832 !--          Set needed time levels (ntdim) to
    1833 !--          saved time levels + to be saved time levels.
    1834              IF ( av == 0 )  THEN
    1835                 ntdim_3d(0) = do3d_time_count(0) + CEILING(                &
    1836                               ( end_time - MAX( skip_time_do3d,            &
    1837                                                 simulated_time_at_begin )  &
    1838                               ) / dt_do3d )
    1839                 IF ( do3d_at_begin )  ntdim_3d(0) = ntdim_3d(0) + 1
    1840              ELSE
    1841                 ntdim_3d(1) = do3d_time_count(1) + CEILING(                &
    1842                               ( end_time - MAX( skip_time_data_output_av,  &
    1843                                                 simulated_time_at_begin )  &
    1844                               ) / dt_data_output_av )
    1845              ENDIF
    1846 
    1847 !
    18481836!--          Check if the needed number of output time levels is increased
    18491837!--          compared to the number of time levels in the existing file.
     
    26062594          IF ( netcdf_data_format > 4 )  THEN
    26072595!
    2608 !--          Set needed time levels (ntdim) to
    2609 !--          saved time levels + to be saved time levels.
    2610              IF ( av == 0 )  THEN
    2611                 ntdim_2d_xy(0) = do2d_xy_time_count(0) + CEILING(             &
    2612                                  ( end_time - MAX( skip_time_do2d_xy,         &
    2613                                                    simulated_time_at_begin )  &
    2614                                  ) / dt_do2d_xy )
    2615                 IF ( do2d_at_begin )  ntdim_2d_xy(0) = ntdim_2d_xy(0) + 1
    2616              ELSE
    2617                 ntdim_2d_xy(1) = do2d_xy_time_count(1) + CEILING(             &
    2618                                  ( end_time - MAX( skip_time_data_output_av,  &
    2619                                                    simulated_time_at_begin )  &
    2620                                  ) / dt_data_output_av )
    2621              ENDIF
    2622 
    2623 !
    26242596!--          Check if the needed number of output time levels is increased
    26252597!--          compared to the number of time levels in the existing file.
     
    32653237          IF ( netcdf_data_format > 4 )  THEN
    32663238!
    3267 !--          Set needed time levels (ntdim) to
    3268 !--          saved time levels + to be saved time levels.
    3269              IF ( av == 0 )  THEN
    3270                 ntdim_2d_xz(0) = do2d_xz_time_count(0) + CEILING(             &
    3271                                  ( end_time - MAX( skip_time_do2d_xz,         &
    3272                                                    simulated_time_at_begin )  &
    3273                                  ) / dt_do2d_xz )
    3274                 IF ( do2d_at_begin )  ntdim_2d_xz(0) = ntdim_2d_xz(0) + 1
    3275              ELSE
    3276                 ntdim_2d_xz(1) = do2d_xz_time_count(1) + CEILING(             &
    3277                                  ( end_time - MAX( skip_time_data_output_av,  &
    3278                                                    simulated_time_at_begin )  &
    3279                                  ) / dt_data_output_av )
    3280              ENDIF
    3281 
    3282 !
    32833239!--          Check if the needed number of output time levels is increased
    32843240!--          compared to the number of time levels in the existing file.
     
    39273883          IF ( netcdf_data_format > 4 )  THEN
    39283884!
    3929 !--          Set needed time levels (ntdim) to
    3930 !--          saved time levels + to be saved time levels.
    3931              IF ( av == 0 )  THEN
    3932                 ntdim_2d_yz(0) = do2d_yz_time_count(0) + CEILING(             &
    3933                                  ( end_time - MAX( skip_time_do2d_yz,         &
    3934                                                    simulated_time_at_begin )  &
    3935                                  ) / dt_do2d_yz )
    3936                 IF ( do2d_at_begin )  ntdim_2d_yz(0) = ntdim_2d_yz(0) + 1
    3937              ELSE
    3938                 ntdim_2d_yz(1) = do2d_yz_time_count(1) + CEILING(             &
    3939                                  ( end_time - MAX( skip_time_data_output_av,  &
    3940                                                    simulated_time_at_begin )  &
    3941                                  ) / dt_data_output_av )
    3942              ENDIF
    3943 
    3944 !
    39453885!--          Check if the needed number of output time levels is increased
    39463886!--          compared to the number of time levels in the existing file.
Note: See TracChangeset for help on using the changeset viewer.