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

Timestamp:

Jul 7, 2009 8:01:16 PM (14 years ago)

Author:

maronga

Message:

bugfix for coupled restart runs

File:

• palm/trunk/SOURCE/time_integration.f90 (modified) (1 diff)

palm/trunk/SOURCE/time_integration.f90

@@ -97 +97 @@
           time_coupling = time_coupling - dt_coupling
        ENDDO
+       IF (time_coupling == 0.0 .AND. time_since_reference_point < dt_coupling)&
+       THEN
+          time_coupling = time_since_reference_point
+       ENDIF
     ENDIF