Ignore:
Timestamp:
Jun 2, 2007 4:48:38 PM (14 years ago)
Author:
raasch
Message:

further preliminary uncomplete changes for ocean version

File:
1 edited

Legend:

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

    r90 r95  
    44! Actual revisions:
    55! -----------------
    6 !
     6! Ghostpoint exchange for salinity and density
    77!
    88! Former revisions:
     
    150150          CALL exchange_horiz( pt_p )
    151151          IF ( .NOT. constant_diffusion       )  CALL exchange_horiz( e_p )
     152          IF ( ocean )  THEN
     153             CALL exchange_horiz( sa_p )
     154             CALL exchange_horiz( rho )
     155          ENDIF
    152156          IF ( humidity  .OR.  passive_scalar )  CALL exchange_horiz( q_p )
    153157          IF ( cloud_droplets )  THEN
Note: See TracChangeset for help on using the changeset viewer.