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

Timestamp:

Jun 24, 2009 12:59:09 PM (15 years ago)

Author:

maronga

Message:

adjustments for lcxt4 and ibmy, allow user 2d xy cross section output at z=nzb+1

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -116 +116 @@
 !--    Determine size of next time step
        IF ( simulated_time /= 0.0 )  CALL timestep
-
 !
 !--    Execute the user-defined actions
@@ -334 +333 @@
        IF ( coupling_mode /= 'uncoupled'  .AND.  run_coupled )  THEN
           time_coupling = time_coupling + dt_3d
+
 !
 !--       In case of model termination initiated by the local model