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

Timestamp:

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

Author:

kanani

Message:

Bugfixes and clean-up for output quantity theta_2m*

File:

• palm/trunk/SOURCE/average_3d_data.f90 (modified) (4 diffs)

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in CASE theta_2m*, removal of redundant code
+! 
+! 3773 2019-03-01 08:56:57Z maronga
 ! Added output of theta_2m*_xy_av
 ! 
@@ -440 +443 @@
 
          CASE ( 'theta_2m*' )
-             IF ( ALLOCATED( tsurf_av ) ) THEN
+             IF ( ALLOCATED( pt_2m_av ) ) THEN
                 DO  i = nxlg, nxrg
                    DO  j = nysg, nyng
@@ -448 +451 @@
                 CALL exchange_horiz_2d( pt_2m_av, nbgp )
              ENDIF
-             
+
           CASE ( 't*' )
              IF ( ALLOCATED( ts_av ) ) THEN
@@ -512 +515 @@
              ENDIF
 
-          CASE ( 'theta_2m' )
-             IF ( ALLOCATED( pt_2m_av ) ) THEN
-                DO  i = nxlg, nxrg
-                   DO  j = nysg, nyng
-                      pt_2m_av(j,i) = pt_2m_av(j,i) / REAL( average_count_3d, KIND=wp )
-                   ENDDO
-                ENDDO
-                CALL exchange_horiz_2d( pt_2m_av, nbgp )
-             ENDIF
-             
           CASE ( 'w' )
              IF ( ALLOCATED( w_av ) ) THEN