Ignore:
Timestamp:
Jul 27, 2007 9:09:17 AM (14 years ago)
Author:
raasch
Message:

preliminary version for coupled runs

File:
1 edited

Legend:

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

    r98 r102  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Call of new routine surface_coupler
    77!
    88! Former revisions:
     
    303303
    304304!
     305!--    Data exchange between coupled models
     306       IF ( coupling_mode /= 'uncoupled' )  THEN
     307          time_coupling = time_coupling + dt_3d
     308          DO WHILE ( time_coupling >= dt_coupling )
     309             CALL surface_coupler
     310             time_coupling = time_coupling - dt_coupling
     311          ENDDO
     312       ENDIF
     313
     314!
    305315!--    Execute user-defined actions
    306316       CALL user_actions( 'after_integration' )
Note: See TracChangeset for help on using the changeset viewer.