Changeset 4741 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Oct 14, 2020 2:32:50 PM (4 years ago)

Author:

suehring

Message:

radiation: Add option to force calculation of horizontal mean profiles independent on data output

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $Id$
+! Add option to force calculation of horizontal mean profiles independent on data output
+!
+! 4717 2020-09-30 22:27:40Z pavelkrc
 ! Fixes and optimizations of OpenMP parallelization, formatting of OpenMP
 ! directives (J. Resler)
@@ -4240 +4243 @@
 !
 !--       Calculate mean pt profile.
-          CALL calc_mean_profile( pt, 4 )
+          CALL calc_mean_profile( pt, 4, .TRUE. )
           pt_av = hom(:, 1, 4, 0)
 
           IF ( humidity )  THEN
-             CALL calc_mean_profile( q, 41 )
+             CALL calc_mean_profile( q, 41, .TRUE. )
              q_av  = hom(:, 1, 41, 0)
           ENDIF
@@ -4253 +4256 @@
           IF ( bulk_cloud_model )  THEN
 
-             CALL calc_mean_profile( ql, 54 )
+             CALL calc_mean_profile( ql, 54, .TRUE. )
              ! average ql is now in hom(:, 1, 54, 0)
              ql_av = hom(:, 1, 54, 0)