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

Timestamp:

Jun 2, 2007 4:48:38 PM (17 years ago)

Author:

raasch

Message:

further preliminary uncomplete changes for ocean version

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
-! 
+! Ghostpoint exchange for salinity and density
 !
 ! Former revisions:
@@ -150 +150 @@
           CALL exchange_horiz( pt_p )
           IF ( .NOT. constant_diffusion       )  CALL exchange_horiz( e_p )
+          IF ( ocean )  THEN
+             CALL exchange_horiz( sa_p )
+             CALL exchange_horiz( rho )
+          ENDIF
           IF ( humidity  .OR.  passive_scalar )  CALL exchange_horiz( q_p )
           IF ( cloud_droplets )  THEN