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

Timestamp:

Nov 2, 2020 7:11:23 PM (4 years ago)

Author:

suehring

Message:

Enable 3D data output also with 64-bit precision

File:

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

palm/trunk/SOURCE/gust_mod.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Enable 3D data output also with 64-bit precision
+!
+! 4646 2020-08-24 16:02:40Z raasch
 ! file re-formatted to follow the PALM coding standard
 !
@@ -543 +546 @@
        REAL(wp), INTENT(IN) ::  fill_value !< value for the _FillValue attribute
 
-       REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf   !< local
+       REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf   !< local
                                                                                         !< array to which output data is resorted to