Hi,
I found the Problem in partel.f starting with line 964:
! Checking that there is not an error in the boundaries
IF(J.NE.NPTFR_P(I)) THEN
WRITE(LU,*) 'ERROR IN BOUNDARIES J=',J
WRITE(LU,*) 'WHILE NPTFR_P(I)=',NPTFR_P(I)
WRITE(LU,*) 'WHILE L=',L
CALL PLANTE(1)
STOP
ENDIF
Why is J not equal to NPTFR_P(I) in this case? Is NPTFR_P(I) in parallel still the number of the boundary node in the boundary file? I suppose yes.
Why is then J bigger than NPTFR_P(I) (the number of the boundary nodes correspond with the number of lines in the boundary file).
I attached the boundary file.
Best regards,
Gabi