Changeset 4435 for palm


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

Location:
palm/trunk/SOURCE
Files:
2 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!
  • palm/trunk/SOURCE/read_restart_data_mod.f90

    r4431 r4435  
    2525! -----------------
    2626! $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
    2732! added u_center_av, v_center_av, wspeed_av
    2833!
     
    11691174
    11701175    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'
    11741179       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
    11751192    ENDIF
    11761193
Note: See TracChangeset for help on using the changeset viewer.