Changeset 2864 for palm

Timestamp:

Mar 8, 2018 11:57:45 AM (7 years ago)

Author:

suehring

Message:

Bugfix, move call of user_init in front of initialization of grid-point arrays

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, move call of user_init in front of initialization of grid-point 
+! arrays
+! 
+! 2817 2018-02-19 16:32:21Z knoop
 ! Preliminary gust module interface implemented
 ! 
@@ -2174 +2178 @@
     ENDDO
 
+!
+!-- User-defined initializing actions
+    CALL user_init
+!
+!-- Initialize arrays encompassing number of grid-points in inner and outer
+!-- domains, statistic regions, etc. Mainly used for horizontal averaging
+!-- of turbulence statistics. Please note, user_init must be called before
+!-- doing this.   
     sr = statistic_regions + 1
 #if defined( __parallel )
@@ -2518 +2530 @@
        ENDDO
     ENDIF
-
-!
-!-- User-defined initializing actions. Check afterwards, if maximum number
-!-- of allowed timeseries is exceeded
-    CALL user_init
-
+!
+!-- Check if maximum number of allowed timeseries is exceeded
     IF ( dots_num > dots_max )  THEN
        WRITE( message_string, * ) 'number of time series quantities exceeds',  &