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

Timestamp:

Dec 11, 2009 2:15:58 PM (14 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/check_parameters.f90 (modified) (3 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -5 +5 @@
 ! -----------------
 ! Enabled passive scalar/humidity wall fluxes for non-flat topography
+! Initialization of large scale vertical motion (subsidence/ascent)
 !
 ! Branch revisions:
@@ -114 +115 @@
     USE pegrid
     USE profil_parameter
+    USE subsidence_mod
     USE statistics
     USE transpose_indices
@@ -983 +985 @@
          
     ENDIF
+
+!
+!-- Initialize large scale subsidence if required
+    IF ( ws_vertical_gradient_level(1) /= -9999999.9 )  THEN
+       large_scale_subsidence = .TRUE.
+       CALL init_w_subsidence
+    END IF
+ 
              
 !