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

Timestamp:

May 9, 2018 8:42:38 AM (6 years ago)

Author:

maronga

Message:

series of bugfixes

File:

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

palm/trunk/SOURCE/modules.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Added default values of u_max, v_max, and w_max to avoid floating invalid
+! during spinup
+! 
+! 3004 2018-04-27 12:33:25Z Giersch
 ! precipitation_rate removed
 ! 
@@ -2043 +2047 @@
                                                   !< (after each timestep)
     
-    REAL(wp) ::  u_max  !< maximum of absolute u-veloctiy in entire domain
-    REAL(wp) ::  v_max  !< maximum of absolute v-veloctiy in entire domain
-    REAL(wp) ::  w_max  !< maximum of absolute w-veloctiy in entire domain
+    REAL(wp) ::  u_max = 0.0_wp  !< maximum of absolute u-veloctiy in entire domain
+    REAL(wp) ::  v_max = 0.0_wp  !< maximum of absolute v-veloctiy in entire domain
+    REAL(wp) ::  w_max = 0.0_wp  !< maximum of absolute w-veloctiy in entire domain
 
     REAL(wp), DIMENSION(2) ::  z_i  !< inversion height