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

Timestamp:

Dec 11, 2009 2:15:58 PM (15 years ago)

Author:

heinze

Message:

Large scale vertical motion (subsidence/ascent) can be applied to the prognostic equation for the potential temperature

File:

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

palm/trunk/SOURCE/prognostic_equations.f90

@@ -4 +4 @@
 ! Actual revisions:
 ! -----------------
+! add call of subsidence in the prognostic equation for
+! the potential temperature
 ! 
 !
@@ -94 +96 @@
     USE plant_canopy_model_mod
     USE production_e_mod
+    USE subsidence_mod
     USE user_actions_mod
 
@@ -452 +455 @@
           IF ( plant_canopy .AND. ( cthf /= 0.0 ) ) THEN
              CALL plant_canopy_model( i, j, 4 )
+          ENDIF
+
+!
+!--       If required compute influence of large-scale subsidence/ascent
+          IF ( large_scale_subsidence ) THEN
+             CALL subsidence ( i, j, tend, pt, pt_init )
           ENDIF
 
@@ -1094 +1103 @@
           ENDIF
 
+
+!--       If required compute influence of large-scale subsidence/ascent
+          IF ( large_scale_subsidence ) THEN
+             CALL subsidence ( i, j, tend, pt, pt_init )
+          ENDIF
+
+
           CALL user_actions( i, j, 'pt-tendency' )
 
@@ -1680 +1696 @@
     ENDIF
 
+!--If required compute influence of large-scale subsidence/ascent
+   IF ( large_scale_subsidence ) THEN
+      CALL subsidence ( tend, pt, pt_init )
+   ENDIF
 
     CALL user_actions( 'pt-tendency' )