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

    r4346 r4356  
    2525! -----------------
    2626! $Id$
     27! Bugfix, hour_call_emis uninitialized at first call of time_integration
     28!
     29! 4346 2019-12-18 11:55:56Z motisi
    2730! Introduction of wall_flags_total_0, which currently sets bits based on static
    2831! topography information used in wall_flags_static_0
     
    390393    CHARACTER (LEN=9) ::  time_to_string   !<
    391394
    392     INTEGER(iwp) ::  hour            !< hour of current time
    393     INTEGER(iwp) ::  hour_call_emis !< last hour where emission was called
    394     INTEGER(iwp) ::  ib              !< index for aerosol size bins
    395     INTEGER(iwp) ::  ic              !< index for aerosol mass bins
    396     INTEGER(iwp) ::  icc             !< additional index for aerosol mass bins
    397     INTEGER(iwp) ::  ig              !< index for salsa gases
    398     INTEGER(iwp) ::  lsp             !<
    399     INTEGER(iwp) ::  lsp_usr         !<
    400     INTEGER(iwp) ::  mid             !< masked output running index
    401     INTEGER(iwp) ::  n               !< loop counter for chemistry species
     395    INTEGER(iwp) ::  hour                !< hour of current time
     396    INTEGER(iwp) ::  hour_call_emis = -1 !< last hour where emission was called
     397    INTEGER(iwp) ::  ib                  !< index for aerosol size bins
     398    INTEGER(iwp) ::  ic                  !< index for aerosol mass bins
     399    INTEGER(iwp) ::  icc                 !< additional index for aerosol mass bins
     400    INTEGER(iwp) ::  ig                  !< index for salsa gases
     401    INTEGER(iwp) ::  lsp                 !<
     402    INTEGER(iwp) ::  lsp_usr             !<
     403    INTEGER(iwp) ::  mid                 !< masked output running index
     404    INTEGER(iwp) ::  n                   !< loop counter for chemistry species
    402405
    403406    REAL(wp) ::  dt_3d_old  !< temporary storage of timestep to be used for
Note: See TracChangeset for help on using the changeset viewer.