Changeset 531 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Apr 21, 2010 6:47:21 AM (14 years ago)

Author:

heinze

Message:

call of subsidence added in prognostic equations for humidity/passive scalar, some bugfixes

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (5 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! add call of subsidence in the equation for humidity / passive scalar
 !
 ! Former revisions:
@@ -658 +658 @@
 !--          Sink or source of scalar concentration due to canopy elements
              IF ( plant_canopy ) CALL plant_canopy_model( i, j, 5 )
+
+!
+!--          If required compute influence of large-scale subsidence/ascent
+             IF ( large_scale_subsidence ) THEN
+                CALL subsidence ( i, j, tend, q, q_init )
+             ENDIF
 
              CALL user_actions( i, j, 'q-tendency' )
@@ -1110 +1116 @@
           ENDIF
 
-
           CALL user_actions( i, j, 'pt-tendency' )
 
@@ -1223 +1228 @@
 !--          Sink or source of scalar concentration due to canopy elements
              IF ( plant_canopy ) CALL plant_canopy_model( i, j, 5 )
+
+
+!--          If required compute influence of large-scale subsidence/ascent
+             IF ( large_scale_subsidence ) THEN
+                CALL subsidence ( i, j, tend, q, q_init )
+             ENDIF
 
 
@@ -1907 +1918 @@
        IF ( plant_canopy ) CALL plant_canopy_model( 5 )
 
+!
+!--    If required compute influence of large-scale subsidence/ascent
+       IF ( large_scale_subsidence ) THEN
+         CALL subsidence ( tend, q, q_init )
+       ENDIF
+
        CALL user_actions( 'q-tendency' )