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/land_surface_model_mod.f90

    r4339 r4356  
    2525! -----------------
    2626! $Id$
     27! Correct single message calls, local checks must be given by the respective
     28! mpi rank.
     29!
     30! 4339 2019-12-13 18:18:30Z suehring
    2731! Bugfix, character length too short, caused crash on NEC.
    2832!
     
    48564860          message_string = 'For non-pavement surfaces the combination ' //     &
    48574861                           ' lai = 0.0 and c_veg = 1.0 is not allowed.'
    4858           CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
     4862          CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, myid, 6, 0 )
    48594863       ENDIF
    48604864
     
    48654869             message_string = 'For non-pavement surfaces the combination ' //  &
    48664870                              ' lai = 0.0 and c_veg = 1.0 is not allowed.'
    4867              CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, 0, 6, 0 )
     4871             CALL message( 'lsm_rrd_local', 'PA0671', 2, 2, myid, 6, 0 )
    48684872          ENDIF
    48694873       ENDDO
Note: See TracChangeset for help on using the changeset viewer.