Changeset 1960 for palm/trunk/SOURCE/palm.f90

Timestamp:

Jul 12, 2016 4:34:24 PM (8 years ago)

Author:

suehring

Message:

Separate balance equations for humidity and passive_scalar

File:

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

palm/trunk/SOURCE/palm.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Separate humidity and passive scalar
 ! 
 ! Former revisions:
@@ -361 +361 @@
           ENDIF
           IF ( .NOT. constant_diffusion )  CALL exchange_horiz( e, nbgp )
-          IF (humidity  .OR.  passive_scalar)  THEN
-             CALL exchange_horiz( q, nbgp )
-          ENDIF
+          IF ( humidity       )  CALL exchange_horiz( q, nbgp )
+          IF ( passive_scalar )  CALL exchange_horiz( s, nbgp )
        ENDIF