Changeset 3630 for palm/trunk


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

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

Location:
palm/trunk/SOURCE
Files:
3 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)
  • palm/trunk/SOURCE/salsa_mod.f90

    r3589 r3630  
    78607860       iend = get_n_comp( prtcl )
    78617861    ELSE
    7862        STOP 'bin_mixrat: Error in itype'
     7862       STOP 1 ! "INFO for Developer: please use the message routine to pass the output string" bin_mixrat: Error in itype
    78637863    ENDIF
    78647864
  • palm/trunk/SOURCE/salsa_util_mod.f90

    r3494 r3630  
    144144          get_index = SELF%ncomp + 1
    145145       ELSE
    146           STOP 'get_index: FAILED, no such component -'
     146          STOP 1 ! "INFO for Developer: please use the message routine to pass the output string" get_index: FAILED, no such component -
    147147       ENDIF
    148148       
Note: See TracChangeset for help on using the changeset viewer.