Changeset 4435 for palm/trunk/SOURCE/netcdf_data_input_mod.f90
- Timestamp:
- Mar 3, 2020 10:38:41 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/netcdf_data_input_mod.f90
r4434 r4435 25 25 ! ----------------- 26 26 ! $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 27 30 ! added optional netcdf data input for wtm array input parameters 28 31 ! … … 5642 5645 INTEGER(iwp) :: id_var !< netCDF variable id (varid) 5643 5646 5647 #if defined( __imuk_old ) 5648 INTEGER(iwp) :: fill_value_int !< fill value workaround 5649 #endif 5644 5650 REAL(wp), INTENT(OUT) :: fill_value !< fill value 5645 5651 5646 5652 #if defined( __netcdf ) 5647 5653 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 5648 5658 nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value ) 5659 #endif 5649 5660 #endif 5650 5661 !
Note: See TracChangeset
for help on using the changeset viewer.