Ignore:
Timestamp:
Apr 16, 2009 12:07:26 PM (12 years ago)
Author:
raasch
Message:

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

File:
1 edited

Legend:

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

    r253 r291  
    44! Actual revisions:
    55! -----------------
    6 ! Bugfix: output if particle time series only if particle advection is switched
     6! Coupling with independent precursor runs.
     7! Bugfix: output of particle time series only if particle advection is switched
    78!         on
    89!
     
    8889!-- Data exchange between coupled models in case that a call has been omitted
    8990!-- at the end of the previous run of a job chain.
    90     IF ( coupling_mode /= 'uncoupled' )  THEN
     91    IF ( coupling_mode /= 'uncoupled'  .AND.  run_coupled )  THEN
    9192!
    9293!--    In case of model termination initiated by the local model the coupler
     
    295296!
    296297!--    Increase simulation time and output times
    297        current_timestep_number = current_timestep_number + 1
    298        simulated_time     = simulated_time   + dt_3d
    299        simulated_time_chr = time_to_string( simulated_time )
     298       current_timestep_number    = current_timestep_number + 1
     299       simulated_time             = simulated_time   + dt_3d
     300       simulated_time_chr         = time_to_string( simulated_time )
     301       time_since_reference_point = simulated_time - coupling_start_time
     302
    300303       IF ( simulated_time >= skip_time_data_output_av )  THEN
    301304          time_do_av         = time_do_av       + dt_3d
     
    329332!
    330333!--    Data exchange between coupled models
    331        IF ( coupling_mode /= 'uncoupled' )  THEN
     334       IF ( coupling_mode /= 'uncoupled'  .AND.  run_coupled )  THEN
    332335          time_coupling = time_coupling + dt_3d
    333336!
Note: See TracChangeset for help on using the changeset viewer.