Changeset 3014 for palm/trunk/SOURCE/user_data_output_2d.f90

Timestamp:

May 9, 2018 8:42:38 AM (6 years ago)

Author:

maronga

Message:

series of bugfixes

File:

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

palm/trunk/SOURCE/user_data_output_2d.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: domain bounds of local_pf corrected
+! 
+! 3004 2018-04-27 12:33:25Z Giersch
 ! Further allocation checks implemented (averaged data will be assigned to fill
 ! values if no allocation happened so far)
@@ -100 +103 @@
     REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
 
-    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf !< 
+    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<