错误

/home/theo/model/adcirc_v54.01/src/writer.F(122): error #7013: This module file was not generated by any release of this compiler.   [MPI]
          use mpi
--------------^
/home/theo/model/adcirc_v54.01/src/writer.F(131): error #6406: Conflicting attributes or multiple declaration of name.   [MYPROC]
          IF(myproc.EQ.0)THEN
-------------^
/home/theo/model/adcirc_v54.01/src/writer.F(132): error #6406: Conflicting attributes or multiple declaration of name.   [MNWPROC]
              DO I = 0,MNWPROC-1
-----------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(133): error #6406: Conflicting attributes or multiple declaration of name.   [NP_G]
                 CALL mpi_send(np_g,1,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
-------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(133): error #6404: This name does not have a type, and must have an explicit type.   [MPI_INTEGER]
                 CALL mpi_send(np_g,1,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
--------------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(133): error #6406: Conflicting attributes or multiple declaration of name.   [MNPROC]
                 CALL mpi_send(np_g,1,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
--------------------------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(133): error #6406: Conflicting attributes or multiple declaration of name.   [MPI_COMM_ADCIRC]
                 CALL mpi_send(np_g,1,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
-------------------------------------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(134): error #6406: Conflicting attributes or multiple declaration of name.   [LABELS_G]
                 CALL mpi_send(labels_g,np_g,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
-------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(134): error #6406: Conflicting attributes or multiple declaration of name.   [NP_G]
                 CALL mpi_send(labels_g,np_g,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
----------------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(134): error #6406: Conflicting attributes or multiple declaration of name.   [MNPROC]
                 CALL mpi_send(labels_g,np_g,mpi_integer,mnproc+i,0,mpi_comm_adcirc,ierr)
---------------------------------------------------------^
/home/theo/model/adcirc_v54.01/src/writer.F(134): error #6406: Conflicting attributes or multiple declaration of name.   [MPI_COMM_ADCIRC]