Changeset 2867 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Mar 9, 2018 9:40:23 AM (6 years ago)

Author:

suehring

Message:

Revise mapping of 3D-buildings onto orography; further bugfix concering call of user_init (see commit -r 2865)

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further bugfix concerning call of user_init. 
+! 
+! 2864 2018-03-08 11:57:45Z suehring
 ! Bugfix, move call of user_init in front of initialization of grid-point 
 ! arrays
@@ -2119 +2122 @@
     rmask(:,nxlg:nxl-1,:) = 0.0_wp;  rmask(:,nxr+1:nxrg,:) = 0.0_wp
     rmask(nysg:nys-1,:,:) = 0.0_wp;  rmask(nyn+1:nyng,:,:) = 0.0_wp
-
+!
+!-- User-defined initializing actions
+    CALL user_init
 !
 !-- To do: New concept for these non-topography grid points!
@@ -2177 +2182 @@
        ENDDO
     ENDDO
-
-!
-!-- User-defined initializing actions
-    CALL user_init
 !
 !-- Initialize arrays encompassing number of grid-points in inner and outer