Changeset 2550 for palm/trunk/SOURCE/modules.f90

Timestamp:

Oct 16, 2017 5:12:01 PM (7 years ago)

Author:

boeske

Message:

enable simulations with complex terrain

File:

• palm/trunk/SOURCE/modules.f90 (modified) (3 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! complex_terrain namelist parameter added
+! 
+! 2508 2017-10-02 08:57:09Z suehring
 ! Change default value for pt/q/s/sa_vertical_gradient_level
 ! 
@@ -1154 +1157 @@
     LOGICAL ::  cloud_physics = .FALSE.                      !< namelist parameter
     LOGICAL ::  cloud_top_radiation = .FALSE.                !< namelist parameter
+    LOGICAL ::  complex_terrain = .FALSE.                    !< namelist parameter
     LOGICAL ::  conserve_volume_flow = .FALSE.               !< namelist parameter
     LOGICAL ::  constant_diffusion = .FALSE.                 !< diffusion coefficient constant?
@@ -1923 +1927 @@
 
     CHARACTER (LEN=40) ::  region(0:9)  !< label for statistic region
-    
-    INTEGER(iwp) ::  pr_palm = 130          !< maximum number of output profiles
+ 
+    INTEGER(iwp) ::  pr_palm = 200          !< maximum number of output profiles
     INTEGER(iwp) ::  statistic_regions = 0  !< identifier for statistic regions
-    
+
     INTEGER(iwp) ::  u_max_ijk(3) = -1  !< index values (i,j,k) of location where u_max occurs
     INTEGER(iwp) ::  v_max_ijk(3) = -1  !< index values (i,j,k) of location where v_max occurs