Changeset 1106 for palm/trunk/SOURCE/data_output_profiles.f90

Timestamp:

Mar 4, 2013 5:31:38 AM (11 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:

• palm/trunk/SOURCE/data_output_profiles.f90 (modified) (2 diffs)

palm/trunk/SOURCE/data_output_profiles.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix: initial time for preruns of coupled runs is output as -coupling_start_time
 !
 ! Former revisions:
@@ -126 +126 @@
 #if defined( __netcdf )          
 !
-!--             Store initial time (t=0) to time axis, but only if an output
-!--             is required for at least one of the profiles
+!--             Store initial time to time axis, but only if an output
+!--             is required for at least one of the profiles. The initial time
+!--             is either 0, or, in case of a prerun for coupled atmosphere-ocean
+!--             runs, has a negative value
                 DO  i = 1, dopr_n
                 IF ( dopr_initial_index(i) /= 0 )  THEN
                    nc_stat = NF90_PUT_VAR( id_set_pr, id_var_time_pr,  &
-                                              (/ 0.0 /), start = (/ 1 /), &
-                                              count = (/ 1 /) )
+                                           (/ -coupling_start_time /), &
+                                           start = (/ 1 /), count = (/ 1 /) )
                       CALL handle_netcdf_error( 'data_output_profiles', 329 )
                       output_for_t0 = .TRUE.