Try adding AUTOMATIC to
REAL(EB) ::Z(1:I_Z_MAX - I_Z_MIN + 1),CP_MF,OMYYSUM
REAL(EB), AUTOMATIC ::Z(1:I_Z_MAX - I_Z_MIN + 1),CP_MF,OMYYSUM
Jim Dempsey
I have tried this, but it has no effect. The problem occurs at the same line in the code. Furthermore this could be no solution, because if the variables are correctly implemented in a serial version of the code, there should be no changes in the OpenMP code version. If I have to check all the variables, parallelization would be very difficult, becuase the code has more than 50.000 lines and more than 500 variables.
If it is helpful, I could submit the complete code.