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

Timestamp:

Jul 27, 2007 9:09:17 AM (17 years ago)

Author:

raasch

Message:

preliminary version for coupled runs

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Call of new routine surface_coupler
 !
 ! Former revisions:
@@ -303 +303 @@
 
 !
+!--    Data exchange between coupled models
+       IF ( coupling_mode /= 'uncoupled' )  THEN
+          time_coupling = time_coupling + dt_3d
+          DO WHILE ( time_coupling >= dt_coupling )
+             CALL surface_coupler
+             time_coupling = time_coupling - dt_coupling
+          ENDDO
+       ENDIF
+
+!
 !--    Execute user-defined actions
        CALL user_actions( 'after_integration' )