- Timestamp:
- Mar 3, 2020 10:38:41 AM (5 years ago)
- Location:
- palm/trunk/SOURCE
- Files:
-
- 2 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 ! -
palm/trunk/SOURCE/read_restart_data_mod.f90
r4431 r4435 25 25 ! ----------------- 26 26 ! $Id$ 27 ! bugfix for message that reports about files that are read from in case that the virtual PE grid 28 ! has chenged (in case of large number of files format was exceeded), detailed messages about the 29 ! files are now output to the debug file 30 ! 31 ! 4431 2020-02-27 23:23:01Z gronemeier 27 32 ! added u_center_av, v_center_av, wspeed_av 28 33 ! … … 1169 1174 1170 1175 IF ( files_to_be_opened /= 1 .OR. numprocs /= numprocs_previous_run ) THEN 1171 WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed ',&1172 ' in restart run & PE', myid, ' will read from files ',&1173 file_list(1:files_to_be_opened)1176 WRITE( message_string, * ) 'number of PEs or virtual PE-grid changed in restart run. & ', & 1177 'Set debug_output =.T. to get a list of files from which the & ',& 1178 'single PEs will read respectively' 1174 1179 CALL message( 'rrd_local', 'PA0285', 0, 0, 0, 6, 0 ) 1180 IF ( debug_output ) THEN 1181 IF ( files_to_be_opened <= 120 ) THEN 1182 WRITE( debug_string, '(2A,1X,120(I6.6,1X))' ) & 1183 'number of PEs or virtual PE-grid changed in restart run. PE will read from ', & 1184 'files ', file_list(1:files_to_be_opened) 1185 ELSE 1186 WRITE( debug_string, '(3A,1X,120(I6.6,1X),A)' ) & 1187 'number of PEs or virtual PE-grid changed in restart run. PE will read from ', & 1188 'files ', file_list(1:120), '... and more' 1189 ENDIF 1190 CALL debug_message( 'rrd_local', 'info' ) 1191 ENDIF 1175 1192 ENDIF 1176 1193
Note: See TracChangeset
for help on using the changeset viewer.