Ignore:
Timestamp:
Dec 17, 2018 11:04:17 AM (4 years ago)
Author:
knoop
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3620 r3630  
    79107910                        acsf(ncsfl)%ity = rt2_track(1,i)
    79117911                        acsf(ncsfl)%itz = iz
    7912                         IF ( itarget(k) /= -1 )  ERROR STOP !FIXME remove after test
     7912                        IF ( itarget(k) /= -1 ) STOP 1 !FIXME remove after test
    79137913                        acsf(ncsfl)%isurfs = -1
    79147914                        acsf(ncsfl)%rcvf = (1._wp - curtrans)*transparency(k)*aorig*vffrac(k)
Note: See TracChangeset for help on using the changeset viewer.