Changeset 4548

Timestamp:

May 28, 2020 7:36:45 PM (4 years ago)

Author:

suehring

Message:

Bugfix, move call for lsf_forcing_surf after lsf_init is called

File:

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

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, move call for lsf_forcing_surf after lsf_init is called
+! 
+! 4514 2020-04-30 16:29:59Z suehring
 ! Add possibility to initialize surface sensible and latent heat fluxes via
 ! a static driver.
@@ -1853 +1856 @@
     DEALLOCATE( mean_surface_level_height_l, ngp_2dh_l, ngp_2dh_outer_l,       &
                 ngp_3d_inner_l, ngp_3d_inner_tmp )
-!
-!-- Initialize surface forcing corresponding to large-scale forcing. Therein, 
-!-- initialize heat-fluxes, etc. via datatype. Revise it later!
-    IF ( large_scale_forcing .AND. lsf_surf )  THEN
-       IF ( use_surface_fluxes  .AND.  constant_heatflux )  THEN
-          CALL ls_forcing_surf ( simulated_time )
-       ENDIF
-    ENDIF
+
 !
 !-- Initializae 3D offline nesting in COSMO model and read data from 
@@ -1965 +1961 @@
 
 !
+!-- Initialize surface forcing corresponding to large-scale forcing. Therein, 
+!-- initialize heat-fluxes, etc. via datatype. Revise it later!
+    IF ( large_scale_forcing .AND. lsf_surf )  THEN
+       IF ( use_surface_fluxes  .AND.  constant_heatflux )  THEN
+          CALL ls_forcing_surf ( simulated_time )
+       ENDIF
+    ENDIF
+!
 !-- Setting weighting factors for calculation of perturbation pressure 
 !-- and turbulent quantities from the RK substeps