Changeset 3630 for palm/trunk/SOURCE/radiation_model_mod.f90

Timestamp:

Dec 17, 2018 11:04:17 AM (5 years ago)

Author:

knoop

Message:

Bugfix: changed ERROR STOP to STOP 1 as PGI currently can not handle it.

File:

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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -7910 +7910 @@
                         acsf(ncsfl)%ity = rt2_track(1,i)
                         acsf(ncsfl)%itz = iz
-                        IF ( itarget(k) /= -1 )  ERROR STOP !FIXME remove after test
+                        IF ( itarget(k) /= -1 ) STOP 1 !FIXME remove after test
                         acsf(ncsfl)%isurfs = -1
                         acsf(ncsfl)%rcvf = (1._wp - curtrans)*transparency(k)*aorig*vffrac(k)