Ignore:
Timestamp:
Mar 4, 2013 5:31:38 AM (8 years ago)
Author:
raasch
Message:

New:
---

Porting of FFT-solver for serial runs to GPU using CUDA FFT,
preprocessor lines in transpose routines rearranged, so that routines can also
be used in serial (non-parallel) mode,
transpositions also carried out in serial mode, routines fftx, fftxp replaced
by calls of fft_x, fft_x replaced by fft_x_1d in the 1D-decomposition routines
(Makefile, Makefile_check, fft_xy, poisfft, poisfft_hybrid, transpose, new: cuda_fft_interfaces)

--stdin argument for mpiexec on lckyuh, -y and -Y settings output to header (mrun)

Changed:


Module array_kind renamed precision_kind
(check_open, data_output_3d, fft_xy, modules, user_data_output_3d)

some format changes for coupled atmosphere-ocean runs (header)
small changes in code formatting (microphysics, prognostic_equations)

Errors:


bugfix: default value (0) assigned to coupling_start_time (modules)
bugfix: initial time for preruns of coupled runs is output as -coupling_start_time (data_output_profiles)

File:
1 edited

Legend:

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

    r1093 r1106  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix: initial time for preruns of coupled runs is output as -coupling_start_time
    2323!
    2424! Former revisions:
     
    126126#if defined( __netcdf )         
    127127!
    128 !--             Store initial time (t=0) to time axis, but only if an output
    129 !--             is required for at least one of the profiles
     128!--             Store initial time to time axis, but only if an output
     129!--             is required for at least one of the profiles. The initial time
     130!--             is either 0, or, in case of a prerun for coupled atmosphere-ocean
     131!--             runs, has a negative value
    130132                DO  i = 1, dopr_n
    131133                IF ( dopr_initial_index(i) /= 0 )  THEN
    132134                   nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,  &
    133                                               (/ 0.0 /), start = (/ 1 /), &
    134                                              count = (/ 1 /) )
     135                                           (/ -coupling_start_time /), &
     136                                           start = (/ 1 /), count = (/ 1 /) )
    135137                      CALL handle_netcdf_error( 'data_output_profiles', 329 )
    136138                      output_for_t0 = .TRUE.
Note: See TracChangeset for help on using the changeset viewer.