Multithreading OpenMP块给出错误的结果

如果您认为我使用OpenMP可能会出错，我将不胜感激。 我将这段代码向前并行化了，但是即使使用单线程（即调用omp_set_num_threads（1））我也会得到错误的结果

我已经与Intel Inspector进行了检查，并且我没有竞争条件，但是Inspector工具指示线程可能接近其他线程堆栈的警告（我在其他代码中有此警告，并且它在OpenMP中运行良好）。我认为这不是问题所在

SUBROUTINE GR(NUMBER_D, RAD_D, RAD_CC, SPECT)

  use TERM,only: DENSITY, TEMPERATURE, VISCOSITY, WATER_DENSITY, & 
                 PRESSURE, D_HOR, D_VER, D_TEMP, QQQ, UMU
  use SATUR,only: FF, A1, A2, AAA, BBB, SAT
  use DELTA,only: DDM, DT
  use CONST,only: PI, G

  IMPLICIT NONE

  INTEGER,INTENT(IN) :: NUMBER_D
  DOUBLE PRECISION,INTENT(IN) :: RAD_CC(NUMBER_D), SPECT(NUMBER_D)
  DOUBLE PRECISION,INTENT(INOUT) :: RAD_D(NUMBER_D)

  DOUBLE PRECISION :: R3, DR3, C2, C0, P, Q, RAD_CR, SAT_CR, C4, A, & 
                      C, D, CC, DD, CC2, DD2, RAD_ST, DRAA, DRA, DM, X1                    
  INTEGER :: I

  DDM = 0.0D0

  !$OMP PARALLEL DO DEFAULT(SHARED) & 
  !$OMP PRIVATE(I,R3,DR3,C2,C0,P,Q,SAT,SAT_CR,C4,A) &
  !$OMP PRIVATE (C,D,CC,DD,CC2,DD2,RAD_ST,DRAA,DRA,DM,RAD_CR,X1) &
  !$OMP REDUCTION (+:DDM)
  DO I=1,NUMBER_D
     R3   = RAD_CC(I)**3
     DR3  = RAD_D(I)**3-R3
     IF(DR3.LT.1.0D-100) DR3 = 1.0D-100

     C2 = -DSQRT(3.0D0*BBB*R3/AAA)
     C0 = -R3
     P  = -0.3333333333D0*C2**2
     Q  = C0+0.074074074D0*C2**3
     CALL CUBIC(P, Q, RAD_CR)
     RAD_CR = RAD_CR - 0.3333333333D0*C2
     SAT_CR = DEXP(AAA/RAD_CR-BBB*R3/(RAD_CR**3-R3))-1.0D0

     DRA  = DT*(SAT+1.0D0-DEXP(AAA/RAD_DROP(I)-BBB*R3/DR3))/ &
           (FF*RAD_D(I))

     IF(SAT.LT.SAT_CR) THEN

        IF(DABS(SAT).LT.1.0D-10) THEN
           P = -BBB*R3/AAA
           Q = -R3
           CALL CUBIC(P, Q, RAD_ST)
           GO TO 22
        END IF


        C4  = DLOG(SAT+1.0D0)
        A   = -AAA/C4
        C   = (BBB-C4)*R3/C4
        D   = -A*R3
        P   = A*C-4.0D0*D
        Q   = -(A**2*D+C**2)

        CALL CUBIC(P, Q, X1)

        CC  = DSQRT(A**2+4.D0*X1)
        DD  = DSQRT(X1**2-4.D0*D)
        CC2 = 0.5D0*(A-CC)
        IF(SAT.LT.0.0D0) THEN
           DD2    = 0.5D0*(X1-DD)
           RAD_ST = 0.5D0*(-CC2+DSQRT(CC2**2-4.0D0*DD2))
        ELSE
           DD2    = 0.5D0*(X1+DD)
           RAD_ST = 0.5D0*(-CC2-DSQRT(CC2**2-4.0D0*DD2))
        END IF

22       CONTINUE

        DRAA = RAD_ST-RAD_D(I)
        IF(ABS(DRAA).LT.ABS(DRA)) THEN
           DRA = DRAA
           DM  = 1.3333333333333333D0*PI*WATER_DENSITY* &
                (RAD_ST**3-RAD_D(I)**3)
        ELSE
           DM  = 4.0D0*PI*WATER_DENSITY*RAD_D(I)**2*DRA
        END IF
        DDM = DDM+SPECT(I)*DM
        RAD_D(I) = RAD_D(I) + DRA
     ELSE
        DM  = 4.0D0*PI*WATER_DENSITY*RAD_D(I)**2*DRA
        DDM = DDM+SPECT(I)*DM
        RAD_D(I) = RAD_D(I) + DRA
     END IF

  END DO
  !$OMP END PARALLEL DO

  RETURN
  END SUBROUTINE GR

SUBROUTINE CUBIC(P, Q, X)

  IMPLICIT NONE

  DOUBLE PRECISION,INTENT(IN) :: P, Q
  DOUBLE PRECISION,INTENT(OUT) :: X

  DOUBLE PRECISION :: DIS, PP, COSALFA,ALFA, QQ, U, V 

  DIS = (P/3.D0)**3+(0.5D0*Q)**2
  IF(DIS.LT.0.0D0) THEN
     PP      = -P/3.0D0
     COSALFA = -0.5D0*Q/DSQRT(PP**3)
     ALFA    = DACOS(COSALFA)
     X       = 2.0D0*DSQRT(PP)*DCOS(ALFA/3.0D0)
     RETURN
  ELSE
     QQ  = DSQRT(DIS)
     U   = -0.5D0*Q+QQ
     V   = -0.5D0*Q-QQ
     IF(U.GE.0.0D0) THEN
        U = U**0.333333333333333D0
     ELSE
        U = -(-U)**0.333333333333333D0
     END IF
     IF(V.GE.0.0D0) THEN
        V = V**0.333333333333333D0
     ELSE
        V = -(-V)**0.333333333333333D0
     END IF
     X = U+V
  END IF

RETURN
END SUBROUTINE CUBIC

---

哪里是立方的？它是干什么的？一个可编译且可运行的示例就好了。我建议您使用

log

和

sqrt

而不是

DLOG

和

DSQRT

和运算符

=

，以提高可读性。@VladimirF感谢您的说明。”CUBIC'是一个子程序，它获取两个实数（'P'，'Q'），并返回第三个实数。好的，构造一个完全可编译的示例，并提供所需的行为以及您不了解的实际行为。与Fortran源文件中的“隐式无”类似，您应该在OpenMP构造中使用默认值（无）。这将帮助您发现由错误的共享/私有导致的问题settings@FrancoisJacq谢谢，我试试这个。