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

Timestamp:

Dec 18, 2017 11:26:23 AM (6 years ago)

Author:

maronga

Message:

minor bugfix for restarts

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix for reading initial profiles from ls/nuding file
+! 
+! 2701 2017-12-15 15:40:50Z suehring
 ! Bugfix, missing initialization of surface attributes in case of 
 ! inifor-initialization branch
@@ -1024 +1027 @@
 
 !
+!-- Initialize nudging if required
+    IF ( nudging )  THEN
+       CALL nudge_init
+    ENDIF
+
+!
+!-- Initialize reading of large scale forcing from external file - if required
+    IF ( large_scale_forcing  .OR.  forcing )  THEN
+       CALL lsf_init
+    ENDIF
+
+!
 !-- Allocate arrays containing the RK coefficient for calculation of 
 !-- perturbation pressure and turbulent fluxes. At this point values are
@@ -2173 +2188 @@
 
 !
-!-- Initialize nudging if required
-    IF ( nudging )  THEN
-       CALL nudge_init
-    ENDIF
-
-!
-!-- Initialize reading of large scale forcing from external file - if required
-    IF ( large_scale_forcing  .OR.  forcing )  THEN
-       CALL lsf_init
-    ENDIF
-!
 !-- Initialize surface forcing corresponding to large-scale forcing. Therein, 
 !-- initialize heat-fluxes, etc. via datatype. Revise it later!