Changeset 4392 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jan 31, 2020 4:14:57 PM (5 years ago)

Author:

pavelkrc

Message:

Merge branch resler (updated documentation, optional flux tracing, bugfix)

Location:

palm/trunk

Files:

• . (modified) (1 prop)
• SOURCE (modified) (1 prop)
• SOURCE/netcdf_data_input_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! (resler) Decrease length of reading buffer (fix problem of ifort/icc compilers)
+! 
+! 4389 2020-01-29 08:22:42Z raasch
 ! Error messages refined for reading ASCII topo file, also reading of topo file revised so that
 ! statement labels and goto statements are not required any more
@@ -4703 +4706 @@
        IMPLICIT NONE
 
-       INTEGER, PARAMETER ::  nsurf_pars_read = 1024**2 !< read buffer size
+       INTEGER(iwp), PARAMETER                   ::  nsurf_pars_read = 2**15 !< read buffer size (value > 10^15 makes problem with ifort)
 
        CHARACTER(LEN=*)                          ::  variable_name !< variable name