Changeset 3881 for palm/trunk/SOURCE/prognostic_equations.f90

Timestamp:

Apr 10, 2019 9:31:22 AM (5 years ago)

Author:

suehring

Message:

Make level 3 initialization of urban-surfaces consistent to input data standard; revise flagging of ground-floor level surfaces at buidlings; bugfixes in level 3 initialization of albedo; bugfix in OpenMP directive; check for zero output timestep in surface output; assure that Obukhov lenght does not become zero

File:

• palm/trunk/SOURCE/prognostic_equations.f90 (modified) (2 diffs)

palm/trunk/SOURCE/prognostic_equations.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in OpenMP directive
+! 
+! 3880 2019-04-08 21:43:02Z knoop
 ! Moved wtm_tendencies to module_interface_actions
 ! 
@@ -589 +592 @@
 !
 !-- Loop over all prognostic equations
-!-- b, c ang g added for SALSA
-    !$OMP PARALLEL PRIVATE (i,i_omp_start,j,k,loop_start,tn,b,c,g)
+    !$OMP PARALLEL PRIVATE (i,i_omp_start,j,k,loop_start,tn)
 
     !$  tn = omp_get_thread_num()