Changeset 4512 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Apr 30, 2020 12:55:34 PM (5 years ago)

Author:

monakurppa

Message:

bug fix in salsa_mod: segmentation fault in initialising chemical components when all possible chemical components were used

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Fixed a bug in component_index_constructor: index out of bounds if all chemical
+! components are used
+! 
+! 4508 2020-04-24 13:32:20Z raasch
 ! decycling replaced by explicit setting of lateral boundary conditions (Siggi)
 ! 
@@ -12663 +12667 @@
     DO WHILE ( listcomp(ncomp+1) /= '  ' .AND. ncomp < nlist )
        ncomp = ncomp + 1
+       IF ( ncomp > 6 )  EXIT
     ENDDO