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

Timestamp:

Apr 30, 2020 4:29:59 PM (5 years ago)

Author:

suehring

Message:

Bugfix in plant-canopy model for output of averaged transpiration rate after a restart; Revise check for output for plant heating rate and rename error message number; Surface-data output: enable output of mixing ratio and passive scalar concentration at the surface; Surface-data input: Add possibility to prescribe surface sensible and latent heat fluxes via static input file

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Enable output of qsurf and ssurf
+! 
+! 4509 2020-04-26 15:57:55Z raasch
 ! file re-formatted to follow the PALM coding standard
 ! 
@@ -284 +287 @@
              ENDIF
 
+         CASE ( 'qsurf*' )
+             IF ( ALLOCATED( qsurf_av ) )  THEN
+                DO  i = nxlg, nxrg
+                   DO  j = nysg, nyng
+                      qsurf_av(j,i) = qsurf_av(j,i) / REAL( average_count_3d, KIND=wp )
+                   ENDDO
+                ENDDO
+                CALL exchange_horiz_2d( qsurf_av )
+             ENDIF
+
          CASE ( 'r_a*' )
              IF ( ALLOCATED( r_a_av ) )  THEN
@@ -315 +328 @@
              ENDIF
 
+          CASE ( 'ssurf*' )
+             IF ( ALLOCATED( ssurf_av ) )  THEN
+                DO  i = nxlg, nxrg
+                   DO  j = nysg, nyng
+                      ssurf_av(j,i) = ssurf_av(j,i) / REAL( average_count_3d, KIND=wp )
+                   ENDDO
+                ENDDO
+                CALL exchange_horiz_2d( ssurf_av )
+             ENDIF
+
           CASE ( 'ssws*' )
              IF ( ALLOCATED( ssws_av ) )  THEN