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 ...@@ -31,6 +31,9 @@ CONTAINS
ENDIF ENDIF
INQUIRE(file=filename,exist=l_fileexist) INQUIRE(file=filename,exist=l_fileexist)
IF (.NOT.l_fileexist) RETURN !No previous data 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') OPEN(888,file=filename,status='old',form='unformatted')
READ(888) iter_stored READ(888) iter_stored
IF (.NOT.ALLOCATED(sm_store)) ALLOCATE(sm_store(maxiter),fsm_store(maxiter)) IF (.NOT.ALLOCATED(sm_store)) ALLOCATE(sm_store(maxiter),fsm_store(maxiter))
...@@ -39,6 +42,7 @@ CONTAINS ...@@ -39,6 +42,7 @@ CONTAINS
READ(888) fsm_store(n) READ(888) fsm_store(n)
ENDDO ENDDO
CLOSE(888) CLOSE(888)
#endif
END SUBROUTINE mixing_history_open END SUBROUTINE mixing_history_open
SUBROUTINE mixing_history_close(mpi) 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