Commit 78258156 authored by Vigeesh Gangadharan's avatar Vigeesh Gangadharan
Browse files

clean working version

parent efb56bb4
Pipeline #3116 passed with stage
in 3 minutes and 3 seconds
......@@ -240,11 +240,7 @@ PROGRAM VFISV_SPEC
DEALLOCATE(SI,SQ,SU,SV,INV,ICONT)
IF (STRAYCASE /= 0) DEALLOCATE(STRAY)
DEALLOCATE(SFIT,SIFIT,SQFIT,SUFIT,SVFIT)
PRINT*,'Disconnecting.1',MYTASK,NTASKS
!CALL MPI_BARRIER(intracomm, ierr)
print*,'after disconnect.1',ierr,MYTASK,NTASKS
CALL MPI_COMM_FREE(intracomm, ierr)
PRINT*,'after disconnect.2',ierr,MYTASK,NTASKS
CALL MPI_COMM_DISCONNECT(intercomm, ierr)
CALL MPI_FINALIZE(IERR)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment