Changeset 4768 for palm/trunk/SOURCE/biometeorology_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/biometeorology_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Enable 3D data output also with 64-bit precision
+!
+! 4633 2020-08-05 14:21:14Z suehring
 ! Bugfix in check for humidity
 !
@@ -1123 +1126 @@
     LOGICAL, INTENT(OUT) ::  found   !< Output found?
 
-    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf   !< Temp. result grid to return
+    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf   !< Temp. result grid to return
 !
 !-- Internal variables