Ignore:
Timestamp:
Apr 12, 2018 4:04:03 PM (3 years ago)
Author:
Giersch
Message:

Bugfix in the calculation of fixed number of output time levels for parallel netcdf output, error message related to reading sky view factors revised

File:
1 edited

Legend:

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

    r2957 r2964  
    2525! -----------------
    2626! $Id$
     27! Error message moved to radiation_model_mod
     28!
     29! 2957 2018-04-11 08:48:06Z Giersch
    2730! Error message has been corrected in case of writing sky view factors
    2831!
     
    167170
    168171    USE control_parameters,                                                    &
    169         ONLY:  coupling_char, data_output_2d_on_each_pe, max_masks,            &
    170                message_string, mid, nz_do3d, openfile, run_description_header, &
    171                runnr
     172        ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
     173               max_masks, message_string, mid, nz_do3d, openfile,              &
     174               run_description_header, runnr
    172175
    173176    USE grid_variables,                                                        &
     
    546549       CASE ( 88 )
    547550
    548           IF (numprocs_previous_run /= numprocs) THEN
    549              WRITE( message_string, * ) 'A different number of processors',    &
    550                                         ' between the run that has written',   &
    551                                         ' the svf data and the one that will ',&
    552                                         ' read it is not allowed'
    553              CALL message( 'check_open', 'PA0484', 1, 2, 0, 6, 0 )
    554           ENDIF
    555 
    556551          IF ( myid_char == '' )  THEN
    557552             OPEN ( 88, FILE='SVFIN'//TRIM( coupling_char )//myid_char,        &
     
    887882!--       actual run.
    888883          INQUIRE( FILE=filename, EXIST=netcdf_extend )
    889 
    890884          IF ( netcdf_extend )  THEN
    891885!
Note: See TracChangeset for help on using the changeset viewer.