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

palm/trunk/SOURCE/indoor_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable 3D data output also with 64-bit precision
+!
+! 4750 2020-10-16 14:27:48Z suehring
 ! - Namelist parameter added to switch-off/on the indoor model during wall/soil spinup
 ! - Bugfix in window-wall treatment during spinup - in the urban-surface model the window fraction
@@ -1996 +1999 @@
     REAL(wp), INTENT(IN) ::  fill_value !< value for the _FillValue attribute
 
-    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<
+    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<
 
     local_pf = fill_value