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

Timestamp:

Dec 10, 2019 6:25:02 PM (4 years ago)

Author:

suehring

Message:

New diagnostic output for 10-m wind speed; Diagnostic output of 2-m potential temperature moved to diagnostic output

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Move 2-m potential temperature output to diagnostic_output_quantities
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -315 +318 @@
              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 ( 't*' )
              IF ( ALLOCATED( ts_av ) ) THEN