Changeset 4769

Timestamp:

Nov 3, 2020 1:51:23 PM (4 years ago)

Author:

suehring

Message:

Keep 32-bit output for netcdf_data_output < 5

File:

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

palm/trunk/SOURCE/data_output_3d.f90

@@ -24 +24 @@
 ! -----------------
 ! $Id$
+! Keep 32-bit output for netcdf_data_output < 5
+!
+! 4768 2020-11-02 19:11:23Z suehring
 ! Enable 3D data output also with 64-bit precision
 ! 
@@ -650 +653 @@
              IF ( i == io_group )  THEN
                 WRITE ( 30 )  nxl, nxr, nys, nyn, nzb_do, nzt_do
-                WRITE ( 30 )  local_pf(:,:,nzb_do:nzt_do)
+                WRITE ( 30 )  REAL( local_pf(:,:,nzb_do:nzt_do), KIND = sp )
              ENDIF