fixed compilation error

This commit is contained in:
Pratheek Shanthraj 2014-10-10 15:58:18 +00:00
parent d095c2484d
commit eacb048c83
1 changed files with 3 additions and 1 deletions

View File

@ -112,12 +112,14 @@ subroutine IO_init
#ifdef PETSc #ifdef PETSc
call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,ierr);CHKERRQ(ierr) call MPI_Comm_rank(PETSC_COMM_WORLD,worldrank,ierr);CHKERRQ(ierr)
#endif
mainProcess: if (worldrank == 0) then mainProcess: if (worldrank == 0) then
write(6,'(/,a)') ' <<<+- IO init -+>>>' write(6,'(/,a)') ' <<<+- IO init -+>>>'
write(6,'(a)') ' $Id$' write(6,'(a)') ' $Id$'
write(6,'(a15,a)') ' Current time: ',IO_timeStamp() write(6,'(a15,a)') ' Current time: ',IO_timeStamp()
#include "compilation_info.f90" #include "compilation_info.f90"
endif endif mainProcess
#ifdef HDF #ifdef HDF
call HDF5_createJobFile call HDF5_createJobFile