Changeset 4356 for palm/trunk/SOURCE/time_integration.f90

Timestamp:

Dec 20, 2019 5:09:33 PM (5 years 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:

• palm/trunk/SOURCE/time_integration.f90 (modified) (2 diffs)

palm/trunk/SOURCE/time_integration.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix, hour_call_emis uninitialized at first call of time_integration
+! 
+! 4346 2019-12-18 11:55:56Z motisi
 ! Introduction of wall_flags_total_0, which currently sets bits based on static
 ! topography information used in wall_flags_static_0
@@ -390 +393 @@
     CHARACTER (LEN=9) ::  time_to_string   !<
 
-    INTEGER(iwp) ::  hour            !< hour of current time
-    INTEGER(iwp) ::  hour_call_emis  !< last hour where emission was called
-    INTEGER(iwp) ::  ib              !< index for aerosol size bins
-    INTEGER(iwp) ::  ic              !< index for aerosol mass bins
-    INTEGER(iwp) ::  icc             !< additional index for aerosol mass bins
-    INTEGER(iwp) ::  ig              !< index for salsa gases
-    INTEGER(iwp) ::  lsp             !<
-    INTEGER(iwp) ::  lsp_usr         !<
-    INTEGER(iwp) ::  mid             !< masked output running index
-    INTEGER(iwp) ::  n               !< loop counter for chemistry species
+    INTEGER(iwp) ::  hour                !< hour of current time
+    INTEGER(iwp) ::  hour_call_emis = -1 !< last hour where emission was called
+    INTEGER(iwp) ::  ib                  !< index for aerosol size bins
+    INTEGER(iwp) ::  ic                  !< index for aerosol mass bins
+    INTEGER(iwp) ::  icc                 !< additional index for aerosol mass bins
+    INTEGER(iwp) ::  ig                  !< index for salsa gases
+    INTEGER(iwp) ::  lsp                 !<
+    INTEGER(iwp) ::  lsp_usr             !<
+    INTEGER(iwp) ::  mid                 !< masked output running index
+    INTEGER(iwp) ::  n                   !< loop counter for chemistry species
 
     REAL(wp) ::  dt_3d_old  !< temporary storage of timestep to be used for