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

Timestamp:

Oct 12, 2018 3:17:09 PM (6 years ago)

Author:

kanani

Message:

reintegrate branch resler to trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• modules.f90 (modified) (2 diffs)

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! (from branch resler)
+! Increase dimension of uv_heights etc.
+! 
+! 3302 2018-10-03 02:39:40Z raasch
 ! +u/v_stokes_zu, u/v_stokes_zw
 ! 
@@ -1566 +1570 @@
     REAL(wp) ::  tsc(10) = (/ 1.0_wp, 1.0_wp, 0.0_wp, 0.0_wp, &    !< array used for controlling time-integration at different substeps
                  0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp, 0.0_wp /)
-    REAL(wp) ::  u_profile(100) = 9999999.9_wp                     !< namelist parameter
-    REAL(wp) ::  uv_heights(100) = 9999999.9_wp                    !< namelist parameter
-    REAL(wp) ::  v_profile(100) = 9999999.9_wp                     !< namelist parameter
+    REAL(wp) ::  u_profile(200) = 9999999.9_wp                     !< namelist parameter
+    REAL(wp) ::  uv_heights(200) = 9999999.9_wp                    !< namelist parameter
+    REAL(wp) ::  v_profile(200) = 9999999.9_wp                     !< namelist parameter
     REAL(wp) ::  ug_vertical_gradient(10) = 0.0_wp                 !< namelist parameter
     REAL(wp) ::  ug_vertical_gradient_level(10) = -9999999.9_wp    !< namelist parameter