Changeset 3004 for palm/trunk/SOURCE/user_3d_data_averaging.f90

Timestamp:

Apr 27, 2018 12:33:25 PM (6 years ago)

Author:

Giersch

Message:

precipitation_rate removed, further allocation checks for data output of averaged quantities implemented, double CALL of flow_statistics at the beginning of time_integration removed, further minor bugfixes, comments added

File:

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

palm/trunk/SOURCE/user_3d_data_averaging.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further allocation checks implemented
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -112 +115 @@
 !--       Sample for user-defined output:
 !          CASE ( 'u2' )
-!             DO  i = nxlg, nxrg
-!                DO  j = nysg, nyng
-!                   DO  k = nzb, nzt+1
-!                      u2_av(k,j,i) = u2_av(k,j,i) + u2(k,j,i)
+!             IF ( ALLOCATED( u2_av ) ) THEN
+!                DO  i = nxlg, nxrg
+!                   DO  j = nysg, nyng
+!                      DO  k = nzb, nzt+1
+!                         u2_av(k,j,i) = u2_av(k,j,i) + u2(k,j,i)
+!                      ENDDO
 !                   ENDDO
 !                ENDDO
-!             ENDDO
+!             ENDIF
 
           CASE DEFAULT
@@ -135 +140 @@
 !--       Sample for user-defined output:
 !          CASE ( 'u2' )
-!             DO  i = nxlg, nxrg
-!                DO  j = nysg, nyng
-!                   DO  k = nzb, nzt+1
-!                      u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d, KIND=wp )
+!             IF ( ALLOCATED( u2_av ) ) THEN
+!                DO  i = nxlg, nxrg
+!                   DO  j = nysg, nyng
+!                      DO  k = nzb, nzt+1
+!                         u2_av(k,j,i) = u2_av(k,j,i) / REAL( average_count_3d, KIND=wp )
+!                      ENDDO
 !                   ENDDO
 !                ENDDO
-!             ENDDO
+!             ENDIF
 
        END SELECT