Changeset 3630 for palm

Timestamp:

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

Author:

knoop

Message:

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

Location:

palm/trunk/SOURCE

Files:

• radiation_model_mod.f90 (modified) (1 diff)
• salsa_mod.f90 (modified) (1 diff)
• salsa_util_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)

palm/trunk/SOURCE/salsa_mod.f90

@@ -7860 +7860 @@
        iend = get_n_comp( prtcl ) 
     ELSE
-       STOP 'bin_mixrat: Error in itype'
+       STOP 1 ! "INFO for Developer: please use the message routine to pass the output string" bin_mixrat: Error in itype
     ENDIF
 

palm/trunk/SOURCE/salsa_util_mod.f90

@@ -144 +144 @@
           get_index = SELF%ncomp + 1
        ELSE
-          STOP 'get_index: FAILED, no such component -'
+          STOP 1 ! "INFO for Developer: please use the message routine to pass the output string" get_index: FAILED, no such component -
        ENDIF