Changeset 3642

Timestamp:

Dec 23, 2018 11:20:22 PM (6 years ago)

Author:

knoop

Message:

Bugfix: prevent index out of bound error in radiation model

File:

• palm/trunk/SOURCE/radiation_model_mod.f90 (modified) (1 diff)

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -8772 +8772 @@
         k = len(TRIM(var))
         j = len(TRIM(dirname(i)))
-        IF ( TRIM(var(k-j+1:k)) == TRIM(dirname(i)) )  THEN
-            ids = i
-            idsint_u = dirint_u(ids)
-            idsint_l = dirint_l(ids)
-            var = var(:k-j)
-            EXIT
+        IF ( k-j+1 >= 1_iwp ) THEN
+           IF ( TRIM(var(k-j+1:k)) == TRIM(dirname(i)) )  THEN
+               ids = i
+               idsint_u = dirint_u(ids)
+               idsint_l = dirint_l(ids)
+               var = var(:k-j)
+               EXIT
+           ENDIF
         ENDIF
     ENDDO