Ignore:
Timestamp:
Dec 20, 2019 5:09:33 PM (16 months ago)
Author:
suehring
Message:

Bugfix in message calls for local checks; error messages in init_grid slightly revised; bugfix in time_integration (uninitialized emission time index); read_restart_data (change from J.Resler): use dynamic array allocation rather than automatic arrays to avoid problems with stack memory

File:
1 edited

Legend:

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

    r4346 r4356  
    2525! -----------------
    2626! $Id$
     27! Correct single message calls, local checks must be given by the respective
     28! mpi rank.
     29!
     30! 4346 2019-12-18 11:55:56Z motisi
    2731! Introduction of wall_flags_total_0, which currently sets bits based on static
    2832! topography information used in wall_flags_static_0
     
    34953499                message_string = 'If vegetation_type = 0 at any location, ' // &
    34963500                                 'vegetation_pars is required'
    3497                 CALL message( 'netcdf_data_input_mod', 'PA0555', 2, 2, -1, 6, 0 )
     3501                CALL message( 'netcdf_data_input_mod', 'PA0555', 2, 2, myid, 6, 0 )
    34983502             ENDIF
    34993503             IF ( .NOT. root_area_density_lsm_f%from_file )  THEN
     
    35283532          message_string = 'If buildings are provided, also building_type ' // &
    35293533                           'is required'
    3530           CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, myid, 6, 0 )
     3534          CALL message( 'netcdf_data_input_mod', 'PA0581', 2, 2, 0, 6, 0 )
    35313535       ENDIF
    35323536!
     
    35353539          message_string = 'If buildings are provided, also building_id ' //   &
    35363540                           'is required'
    3537           CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, myid, 6, 0 )
     3541          CALL message( 'netcdf_data_input_mod', 'PA0582', 2, 2, 0, 6, 0 )
    35383542       ENDIF
    35393543!
     
    35553559          message_string = 'If building_type is provided, also building_id '// &
    35563560                           'is required'
    3557           CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, myid, 6, 0 )
     3561          CALL message( 'netcdf_data_input_mod', 'PA0519', 2, 2, 0, 6, 0 )
    35583562       ENDIF       
    35593563!
     
    48384842                   'non-building coordinates (xs, ys, zenith, azimuth): ',   &
    48394843                   xs(isurf), ys(isurf), zenith(isurf), azimuth(isurf)
    4840                 CALL message( 'get_variable_surf', 'PA0684', 2, 2, 0, 6, 0 )
     4844                CALL message( 'get_variable_surf', 'PA0684', 2, 2, myid, 6, 0 )
    48414845             ENDIF
    48424846!
Note: See TracChangeset for help on using the changeset viewer.