SUBROUTINE write_array(array_dim,array,filename)

USE Numeric_Kinds_Module
USE CommonInfo_Module

IMPLICIT NONE

!=========================================================================================
!     I N P U T

CHARACTER(LEN=*) filename
INTEGER,INTENT(IN) :: array_dim
REAL(dp),INTENT(IN) :: array(array_dim)

!=========================================================================================
!     I N T E R N A L S

INTEGER ipt, istat

!=========================================================================================
!     A L L O C A T A B L E

!============================================================
!     N A M E L I S T S

!============================================================
! Read in APH information

  OPEN(UNIT=23,FILE=TRIM(outdir)//TRIM(filename),IOSTAT=istat,STATUS='replace',ACTION='write')

  DO ipt=1,array_dim
    
    WRITE(23,*) ipt,array(ipt)

  ENDDO

  CLOSE(UNIT=23,STATUS='keep')

END SUBROUTINE write_array