Ignore:
Timestamp:
Mar 3, 2020 10:38:41 AM (5 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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4434 r4435  
    2525! -----------------
    2626! $Id$
     27! temporary bugfix to avoid compile problems with older NetCDFD libraries on IMUK machines
     28!
     29! 4434 2020-03-03 10:02:18Z oliver.maas
    2730! added optional netcdf data input for wtm array input parameters
    2831!
     
    56425645       INTEGER(iwp)              ::  id_var      !< netCDF variable id (varid)
    56435646
     5647#if defined( __imuk_old )
     5648       INTEGER(iwp)              ::  fill_value_int  !< fill value workaround
     5649#endif
    56445650       REAL(wp), INTENT(OUT)     ::  fill_value  !< fill value
    56455651
    56465652#if defined( __netcdf )
    56475653       nc_stat = NF90_INQ_VARID( id, TRIM( var_name ), id_var )
     5654#if defined( __imuk_old )
     5655       nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value_int )
     5656       fill_value = fill_value_int
     5657#else
    56485658       nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value )
     5659#endif
    56495660#endif
    56505661!
Note: See TracChangeset for help on using the changeset viewer.