Changeset 3004 for palm/trunk/SOURCE/user_data_output_3d.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_data_output_3d.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_data_output_3d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Further allocation checks implemented (averaged data will be assigned to fill
+! values if no allocation happened so far)
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Corrected "Former revisions" section
 ! 
@@ -87 +91 @@
     LOGICAL      ::  found !< 
 
-   REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !< 
+    REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
+
+    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !< 
 
 
@@ -109 +115 @@
 !             ENDDO
 !          ELSE
+!             IF ( .NOT. ALLOCATED( u2_av ) ) THEN
+!                ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
+!                u2_av = REAL( fill_value, KIND = wp )
+!             ENDIF
 !             DO  i = nxl, nxr
 !                DO  j = nys, nyn