Commit 5a4c2439 authored by Daniel Wortmann's avatar Daniel Wortmann

PGI compiler can not read types correctly. Hence reading of history is disabled.

parent a6fccc44
......@@ -31,6 +31,9 @@ CONTAINS
ENDIF
INQUIRE(file=filename,exist=l_fileexist)
IF (.NOT.l_fileexist) RETURN !No previous data
#ifdef __PGI
PRINT *,"Warning PGI compiler does not support reading of history"
#else
OPEN(888,file=filename,status='old',form='unformatted')
READ(888) iter_stored
IF (.NOT.ALLOCATED(sm_store)) ALLOCATE(sm_store(maxiter),fsm_store(maxiter))
......@@ -39,6 +42,7 @@ CONTAINS
READ(888) fsm_store(n)
ENDDO
CLOSE(888)
#endif
END SUBROUTINE mixing_history_open
SUBROUTINE mixing_history_close(mpi)
......
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