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

    r4346 r4356  
    2727! -----------------
    2828! $Id$
     29! Correct single message call, local check must be given by the respective
     30! mpi rank.
     31!
     32! 4346 2019-12-18 11:55:56Z motisi
    2933! Introduction of wall_flags_total_0, which currently sets bits based on static
    3034! topography information used in wall_flags_static_0
     
    11261130!--          Check whether topography and local vegetation on top exceed
    11271131!--          height of the model domain.
    1128              k = topo_top_ind(j,i,0)
    1129              IF ( k + pch_index_ji(j,i) >= nzt + 1 )  THEN
     1132             IF ( topo_top_ind(j,i,0) + pch_index_ji(j,i) >= nzt + 1 )  THEN
    11301133                message_string =  'Local vegetation height on top of ' //      &
    11311134                                  'topography exceeds height of model domain.'
    1132                 CALL message( 'pcm_init', 'PA0674', 2, 2, 0, 6, 0 )
     1135                CALL message( 'pcm_init', 'PA0674', 2, 2, myid, 6, 0 )
    11331136             ENDIF
    11341137
Note: See TracChangeset for help on using the changeset viewer.