Changeset 1276 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Jan 15, 2014 1:40:41 PM (10 years ago)

Author:

heinze

Message:

Usage of Dirichlet bottom boundary condition for scalars in conjunction with large scale forcing enabled

File:

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

palm/trunk/SOURCE/time_integration.f90

@@ -20 +20 @@
 ! Current revisions:
 ! ------------------
-!
+! Use LSF_DATA also in case of Dirichlet bottom boundary condition for scalars
 !
 ! Former revisions:
@@ -574 +574 @@
 
 !
+!--          Determine surface fluxes shf and qsws and surface values 
+!--          pt_surface and q_surface in dependence on data from external 
+!--          file LSF_DATA respectively
+             IF ( ( large_scale_forcing .AND. lsf_surf ) .AND. &
+                 intermediate_timestep_count == intermediate_timestep_count_max )&
+             THEN
+                CALL ls_forcing_surf ( simulated_time )
+             ENDIF
+
+!
 !--          First the vertical fluxes in the Prandtl layer are being computed
              IF ( prandtl_layer )  THEN
@@ -579 +589 @@
                 CALL prandtl_fluxes
                 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'stop' )
-             ENDIF
-
-!
-!--          Determine shf and qsws in dependence on data from external file 
-!--          LSF_DATA
-             IF ( ( large_scale_forcing .AND. lsf_surf ) .AND. &
-                 intermediate_timestep_count == intermediate_timestep_count_max )&
-             THEN
-                CALL ls_forcing_surf ( simulated_time )
              ENDIF