Changeset 291 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Apr 16, 2009 12:07:26 PM (15 years ago)

Author:

raasch

Message:

changes for coupling with independent precursor runs; z_i calculation with Sullivan criterion

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (4 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! Bugfix: output if particle time series only if particle advection is switched
+! Coupling with independent precursor runs.
+! Bugfix: output of particle time series only if particle advection is switched
 !         on
 !
@@ -88 +89 @@
 !-- Data exchange between coupled models in case that a call has been omitted 
 !-- at the end of the previous run of a job chain.
-    IF ( coupling_mode /= 'uncoupled' )  THEN
+    IF ( coupling_mode /= 'uncoupled'  .AND.  run_coupled )  THEN
 !
 !--    In case of model termination initiated by the local model the coupler 
@@ -295 +296 @@
 !
 !--    Increase simulation time and output times
-       current_timestep_number = current_timestep_number + 1
-       simulated_time     = simulated_time   + dt_3d
-       simulated_time_chr = time_to_string( simulated_time )
+       current_timestep_number    = current_timestep_number + 1
+       simulated_time             = simulated_time   + dt_3d
+       simulated_time_chr         = time_to_string( simulated_time )
+       time_since_reference_point = simulated_time - coupling_start_time
+
        IF ( simulated_time >= skip_time_data_output_av )  THEN
           time_do_av         = time_do_av       + dt_3d
@@ -329 +332 @@
 !
 !--    Data exchange between coupled models
-       IF ( coupling_mode /= 'uncoupled' )  THEN
+       IF ( coupling_mode /= 'uncoupled'  .AND.  run_coupled )  THEN
           time_coupling = time_coupling + dt_3d
 !