Changeset 3933 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Apr 25, 2019 12:33:20 PM (5 years ago)

Author:

kanani

Message:

Bugfixes and clean-up for output quantity theta_2m*

File:

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

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Formatting
+! 
+! 3773 2019-03-01 08:56:57Z maronga
 ! Added output of theta_2m*_xy_av
 ! 
@@ -940 +943 @@
                       ELSEIF ( match_lsm  .AND.  .NOT. match_usm )  THEN
                          m = surf_lsm_h%end_index(j,i)
-                        pt_2m_av(j,i) = pt_2m_av(j,i) +                       &
+                         pt_2m_av(j,i) = pt_2m_av(j,i) +                       &
                                          surf_lsm_h%pt_2m(m)
                       ELSEIF ( match_usm )  THEN