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

Timestamp:

Mar 3, 2020 10:38:41 AM (4 years ago)

Author:

raasch

Message:

bugfix for message that reports about files that are read from in case that the virtual PE grid has chenged (in case of large number of files format was exceeded), detailed messages about the files are now output to the debug file, temporary bugfix to avoid compile problems with older NetCDFD libraries on IMUK machines

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! temporary bugfix to avoid compile problems with older NetCDFD libraries on IMUK machines
+! 
+! 4434 2020-03-03 10:02:18Z oliver.maas
 ! added optional netcdf data input for wtm array input parameters
 ! 
@@ -5642 +5645 @@
        INTEGER(iwp)              ::  id_var      !< netCDF variable id (varid)
 
+#if defined( __imuk_old )
+       INTEGER(iwp)              ::  fill_value_int  !< fill value workaround
+#endif
        REAL(wp), INTENT(OUT)     ::  fill_value  !< fill value
 
 #if defined( __netcdf )
        nc_stat = NF90_INQ_VARID( id, TRIM( var_name ), id_var )
+#if defined( __imuk_old )
+       nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value_int )
+       fill_value = fill_value_int
+#else
        nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value )
+#endif
 #endif
 !