Changeset 4743 for palm/trunk/SOURCE/calc_mean_profile.f90

Timestamp:

Oct 14, 2020 4:40:58 PM (4 years ago)

Author:

suehring

Message:

Bugfix in calc_mean_profile (won't resolve the failure of the urban_environment_restart test case)

File:

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

palm/trunk/SOURCE/calc_mean_profile.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix for last commit
 !
 ! Former revisions:
@@ -113 +113 @@
 !--    i.e. independent on flow_statistics, add a special control flag.
        IF ( PRESENT( force_calc ) )  THEN
-          IF ( force_calc )  force_calc_l = .TRUE.
+          force_calc_l = force_calc
+       ELSE
+          force_calc_l = .FALSE.
        ENDIF