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

Timestamp:

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

Author:

maronga

Message:

series of bugfixes

File:

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

palm/trunk/SOURCE/gust_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: domain bounds of local_pf corrected
+! 
+! 
 ! Interfaces concerning data output updated
 ! 
@@ -408 +411 @@
        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 !<