Ignore:
Timestamp:
Jul 7, 2009 8:01:16 PM (12 years ago)
Author:
maronga
Message:

bugfix for coupled restart runs

File:
1 edited

Legend:

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

    r343 r348  
    9797          time_coupling = time_coupling - dt_coupling
    9898       ENDDO
     99       IF (time_coupling == 0.0 .AND. time_since_reference_point < dt_coupling)&
     100       THEN
     101          time_coupling = time_since_reference_point
     102       ENDIF
    99103    ENDIF
    100104
Note: See TracChangeset for help on using the changeset viewer.